Paginando Dados

[Guest - Andrea -]

Pessoal, Bom Dia...

Tenho um simples probleminha, gostaria que de paginar um pg quie me traz todas as informações do BD e isso demora um pouco para carregar, então, teria como trazer de 20 em 20 registros para que não demora-se tanto para visualizar?

Não entendo muito disso e sei que vocês são feras nisso, por isso preciso da ajuda de vocês.....

Desde já agradeço..

Bjssss Andrea

[cyberalexxx]

tente a busca do forum, pois isso já foi discutido varias vezes.

Da uma olhada neste link que tem um tutorial bem explicado com exemplo prático:

http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais

[bareta]

na minha assinarura tem um link para mysql

[koal40]

ola,

fiz um codigo muito util e pouco curto...

fiz assim:

pag = request.querystring("p")

if pag = "" then

pag = 1

end if

sql = "select * from dados"

set rl = server.createobject("ADODB.RecordSet")

rl.pagesize = 15 'numero de registros por pag

rl.pen sql, con, 3, 3

rl.absolutepage = pag

<%

response.Write("("&rl.pagecount&")&nbsp;&nbsp;")

if not rl.bof then

If cint(pag) = 1 Then

response.Write("")

else

if cint(pag) > 3 then

response.Write("<a href='" & request.servervariables("script_name") &"?p=" & 1 & "'><< Primeira</a> ... ")

end if

end if

cont = 1

TotalPaginas = rl.pagecount

numero = pag - 5

if numero < -1 Then

xprimeira = 1

Else

if numero = - 1 then

xprimeira = 2

elseif numero = 0 then

xprimeira = 3

else

xprimeira = numero + 3

end if

end if

If xprimeira + 4 > TotalPaginas Then

xultima = TotalPaginas

ElseIf xprimeira + 3 > TotalPaginas Then

xultima = xprimeira + 2

else

xultima = xprimeira + 4

End if

if cint(pag+1) = cint(TotalPaginas) then

xprimeira = xprimeira-1

if xprimeira < 1 then

xprimeira = xprimeira+1

end if

end if

if pag = trim(TotalPaginas) then

xprimeira = xprimeira-2

if xprimeira < 1 then

xprimeira = abs(abs(trim(TotalPaginas))/abs(trim(TotalPaginas)))

end if

else

xprimeira = xprimeira

end if

For i = xprimeira to xultima

if trim(pag) = trim(i) Then

If trim(i) <> trim(xprimeira) Then

  Response.Write("&nbsp;|&nbsp;<b>["&i&"]</b>")

Else

  if trim(i) > 1 Then

  Response.Write("&nbsp;|&nbsp;<b>["&i&"]</b>")

  Else

  Response.Write("&nbsp;&nbsp;<b>["&i&"]</b>")

  End If

End if

Else

If trim(i) <> trim(xprimeira) Then

  Response.Write("&nbsp;|&nbsp;<a href='"& request.ServerVariables("SCRIPT_NAME")&"?p="& i&"'>"&i&"</a>")

Else

  if trim(i) > 1 Then

  Response.Write("&nbsp;&nbsp;<a href='"& request.ServerVariables("SCRIPT_NAME")&"?p="& i&"'>"&i&"</a>")

  Else

  Response.Write("&nbsp;&nbsp;<a href='"& request.ServerVariables("SCRIPT_NAME")&"?p="& i&"'>"&i&"</a>")

  End If

End if

End if

Next

If rl.eof Then

response.Write("")

else

if cint(pag) < abs(abs(rl.pagecount)-abs(2)) then

response.Write("... <a href='" & request.servervariables("script_name") &"?p="& rl.pagecount &"'>Última >></a> ")

end if

end if

end if  %>

as paginas ficam assim:

pagina atual = 5: << primeira ... 3 4 [5] 6 7 ... ultima >>

[Guest - Andrea -]

koal40,

Tentei adaptar seu codigo no meu, ate ai ok, só que ao invéz de me trazer de 15 em 15 registros, me mostra todos e conforme vou passando as pgs vai subtraindo 15 registros por pg, entende?

[koal40]

eskeci de avisa... no seu while faiz assim:

while not rs.eof AND contador < rs.pazesize
'aqui sua pagina
contador = contador+1
rs.movenext
wend

aqui também estava dando este erro... hehe.. falou..

[Guest - Andrea -]

Era isso mesmo!!!!!!

Agora ta 10....

Muito obrigada............

Bjão

Andrea

[bareta]

fechando... qualquer enviem uma pm ao moderador...