Link Para Paginação

[Guest - Rafael -]

Olá pessoal,

eu estou apanhando para fazer paginação. Agora que consegui um código legal que exibe, não sei como fazer o link para exibir os outros registros. Eu li um tópico aí sobre os links, mas não consegui implementar no meu código... deu erro!

Dexei comentado e com asteriscos onde seria o link. Valeu pessoal!

Se alguém puder me ajudar, estou postando o meu código:

<%

dim conexao, rsconsulta, strsql

If Session("PrimeiraVez") <> "não" then ' Se é a primeira vez que a página é carregada

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DBQ=c:\banco\clientes.mdb; Driver={Microsoft Access Driver (*.mdb)}"

conexao.CursorLocation = 3

Set rsconsulta = Server.CreateObject("ADODB.Recordset")

strsql = "SELECT * FROM cadastro"

set rsconsulta = conexao.execute(strsql)

rsconsulta.PageSize = 3 'Define o tamanho da página

rsconsulta.CacheSize = 3 'Define o tamanho do cache com o mesmo tamanho da página

rsconsulta.AbsolutePage = 1 'Informa que a primeira página de registros será mostrada

'rsconsulta.open strsql, conexao

session("pagina") = 1

MostraDados

Session("PrimeiraVez") = "não"

Else ' Se a página já foi carregada, verifica se deve incrementar ou decrementar o contador de páginas

if Request("Navegacao") = "Proxima" then

Session("Pagina") = Session("Pagina") + 1

Else

If Request("Navegacao") = "Anterior" then

Session("Pagina") = Session("Pagina") - 1

End If

End If

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.CursorLocation = 3 ' adUseClient

conexao.Open "DBQ=c:\banco\clientes.mdb; Driver={Microsoft Access Driver (*.mdb)}"

Set rsconsulta = Server.CreateObject("ADODB.Recordset")

rsconsulta.CacheSize = 3

rsconsulta.PageSize = 3

strsql = "Select * from cadastro"

rsconsulta.Open strsql, conexao

MostraDados

End If

Sub MostraDados()

Dim Contador

rsconsulta.AbsolutePage = Session("Pagina") ' vai para o número da página que está armazenado em session("pagina")

Response.Write "Existem " & rsconsulta.RecordCount & " registros na tabela - Mostrando página " & Session("Pagina") & " de " & rsconsulta.PageCount

If Session("Pagina") <> 1 then

'***response.write " [ Anterior ] " & "<br><br>"

End If

If Session("Pagina") <> rsconsulta.PageCount then

' *****response.write " [ Proxima ] " & "<br><br>"

End If

response.write " "

For contador = 1 to 3

Response.Write rsconsulta("nome") & "<br>"

rsconsulta.MoveNext

If rsconsulta.Eof then Exit For

Next

End Sub

%>

[[ GuTo ]]

Fala brother,

Visite estes link's aki.

paginação bem simples e perfeitinha, como você quer..

http://www.asp4developers.com.br/index.asp?modo=ver&id=l0524

E tem este aki (mais recomendado até)

http://www.portalfiremasters.com.br/forum/...?showtopic=2126

E brother, formate seu código usando a tag CODE da próxima, beleza!

[Victor]

Vai aqui, que mostra detalhadamente como criar uma paginação, indo aqui eu acho que você aprenderá mais rapido!!! Eu quando não sabia ASP eu lia esse dai para eu aprender um pouco de ASP, mas agora eu faço o meu proprio ta ai o link:

http://www.aspbrasil.com.br/tutoriais/deta...odConteudo=1157

Caso tenha alguma dúvida sobre como fazer as paginações, posta ae, que agente tenta te explicar mais e melhor!!!! Boa sorte na hora de começar!!!!

E ai amigão, se cadastre-se no fórum, e participe de nossa comunidade, com certeza você poderá nos ajudar, e nos ajudaremos você também!!!! falou mano

Fuiii

[]'s

Victor