segue o código...
<% 'Abrindo a Conexão com o Banco Dim caminho, conexao caminho = Server.MapPath("Dados/eltonassuncao.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" 'Selecionando todos os Produtos da Tabela Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT * FROM TB_PORTFOTOS ORDER BY ID_FOTO" rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3 'Definindo o Numero de Paginas com a propriedade "PageSize" do objeto Recordset rsBuscaProdutos.PageSize = 10 'Criamos as Validações If rsBuscaProdutos.eof Then Mensagem = "Nenhum Registro Encontrado" Response.End Else 'Definimos em qual pagina o visitante está If Request.QueryString("pagina")="" Then intpagina = 1 Else If CInt(Request.QueryString("pagina"))<1 then intpagina = 1 Else If CInt(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount Then intpagina = rsBuscaProdutos.PageCount Else intpagina = Request.QueryString("pagina") End If End If End If End If %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>Tutorial de Paginação</title> <script src="lightbox/js/prototype.js" type="text/javascript"></script> <script src="lightbox/js/scriptaculous.js?load=effects,builder" type="text/javascript"></script> <script src="lightbox/js/lightbox.js" type="text/javascript"></script> <link href="css/estilo.css" rel="stylesheet" type="text/css" /> <link rel="stylesheet" href="lightbox/css/lightbox.css" type="text/css" media="screen" /> </head> <body> <% 'Iniciamos o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 While intrec<rsBuscaProdutos.PageSize And Not rsBuscaProdutos.eof %> <div id="corpo"> <a href="imgPortFotos/<%=rsBuscaProdutos("ARQUIVO")%>" rel="lightbox[roadtrip]"> <img src="imgPortFotos/<%=rsBuscaProdutos("ARQUIVO")%>"width="70" height="70" border="0" /> </a> </div> <% rsBuscaProdutos.MoveNext intrec = intrec + 1 If rsBuscaProdutos.eof Then response.write " " End If Wend 'Criamos as Validações para a navegação "Anterior" e "Próximo" If intpagina>1 Then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> <% End If If StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 Then %> <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próximo</a> <% End If rsBuscaProdutos.close Set rsBuscaProdutos = Nothing %> </body> </html>
Edição feita por: Renan L. Queiroz, 10/02/2010, 08:54.
Inclusão da tag [ code ] para postagem de scripts e identação do script para melhor entendimento