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











