Paginação em asp com números...

[Mariana_Cicarelli 0]

Gente, eu fui tentar fazer uma paginação pra minha agenda...Mas tive meu sucesso pela metade. :unsure:

O que acontece é que a paginação funciona, porém em todas as páginas só aparece o conteudo da primeira. Ou seja, só os números que trocam não o conteúdo.

Estou colocando aí em baixo o código ok?

 

:o Me ajudem!!!

 

bitocas

 

<% registros = 5pagina = Request.QueryString("pagina")If pagina = "" Thenpagina = 1End If'Efetuando a conexão com a base de dados criada -----------------------  Set Conexao = CreateObject("ADODB.Connection")  Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=D:\Inetpub\clientes\ideiasempixel.com\data\bdagenda.mdb;"  Set rsconexao = Conexao.Execute("select*from COMPO ORDER BY id")  rsconexao.PageSize = registrosIf rsconexao.EOF ThenResponse.Write "Nenhum registro encontrado"ElseWhile Not rsconexao.EOF AND x < rsconexao.PageSizex = x + 1 %><b><%=rsconexao("titulo")%></b><br><% rsconexao.MoveNextWendanterior = pagina - 1proxima = pagina + 1ultima = rsconexao.PageCountprimeira = 1ultm2 = FormatNumber(rsconexao.PageCount - 1,0)If pagina <> 1 ThenResponse.Write "<b>« <a href=paginacao.asp?pagina="&primeira&">Primeira Página</a></b> "End IfIf pagina > 1 AND pagina <> 2 ThenResponse.Write "<b>[ <a href=paginacao.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "End IfIf pagina > 1 ThenResponse.Write "<b>[ <a href=paginacao.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "End IfResponse.Write "<b>[ "&pagina&" ]</b> "If Not rsconexao.EOF ThenResponse.Write "<b>[ <a href=paginacao.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "End IfIf Not rsconexao.EOF AND pagina <> ultima AND pagina <> ultm2 ThenResponse.Write "<b>[ <a href=paginacao.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "End IfIf Not rsconexao.EOF ThenResponse.Write "<b><a href=paginacao.asp?pagina="&ultima&">Última Página</a> »</b> "End IfEnd IfSet rsconexao = Nothing %>

[Carlos Moreira 0]

Gente, eu fui tentar fazer uma paginação pra minha agenda...Mas tive meu sucesso pela metade. :unsure: O que acontece é que a paginação funciona, porém em todas as páginas só aparece o conteudo da primeira. Ou seja, só os números que trocam não o conteúdo.Estou colocando aí em baixo o código ok? :o Me ajudem!!!bitocas

<% registros = 5pagina = Request.QueryString("pagina")If pagina = "" Thenpagina = 1End If'Efetuando a conexão com a base de dados criada -----------------------  Set Conexao = CreateObject("ADODB.Connection")Ola mariana esse seu eu ja havia pego tbm ta ruim esse código pega esse abaixo ta funcioando certinho qualquer coisas avise<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%PagAtual = Request.QueryString("PagAtual") 'página atualSet Conn = Server.CreateObject("ADODB.Connection") Conn.provider ="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("dadospib.mdb")Conn.openSet objRS = Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginaçãoSQL = "SELECT * FROM materias"objRS.Open SQL, conn, 3'############## paginacao Introdução #################'------- Coloque aqui a quantidade de registros que você deseja por página --------Const NumPorPage = 3'Verifica qual a página solicitadaDim PagAtualIF Request.QueryString("PagAtual") = "" ThenPagAtual = 1 'Primeira páginaElsePagAtual = Request.QueryString("PagAtual")End IfobjRS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registrosobjRS.MoveFirst 'Move o RecorSet para o início objRS.PageSize = NumPorPage 'Coloca a quantidade de páginasDim TotalPages 'Pega o número total de páginasTotalPages = objRS.PageCountobjRS.AbsolutePage = PagAtual 'Configura a página atual'############## paginacao Introdução - FIM #################Count = 0 'Zera o contadori = 0 DO WHILE NOT objRS.EOF And Count < objRS.PageSize%> <b><%= objRS.Fields("titulo") %></b><br><%i = i+1Count = Count + 1 objRS.MoveNextLOOP '################## paginacao 01 #####################'Coloca o Nº página atual / Nº Total de páginasResponse.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ") 'Mostra os botões: Anterior e Próxima, utilizando da opção de IF IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e UltimaResponse.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") Response.Write("<a href='paginacao.asp?PagAtual=" & 1 & "'>")Response.Write("Primeira") Response.Write("</a></font></B> ")Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") Response.Write("<a href='paginacao.asp?PagAtual=" & PagAtual - 1 & "'>")Response.Write("Anterior") Response.Write("</a></font></B> ")ElseResponse.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") Response.Write("Primeira") Response.Write("</font></B> ")Response.Write("<B><font color=""#CCCCCC"" size=""1"" face=""Arial"">") Response.Write("Anterior") Response.Write("</font></B> ")End If'------------------- numero -------------------------'---------- Numero de numeros para ser mostrados ----max_n_mostrados = 3intervalo = Int(max_n_mostrados /2)inicio = PagAtual - intervalofinal = PagAtual + intervaloIf CInt(inicio) <1 Then inicio = 1final = 10END IFIf CInt(final) > CInt(TotalPages) Then final = TotalPagesFor i = inicio To finalIf CInt(i)=CInt(PagAtual) ThenResponse.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font> "END IFIf CInt(i) < CInt(PagAtual) ThenResponse.Write "<a href='paginacao.asp?PagAtual=" & i & "'>" & i & "</a> "END IFIf CInt(i) > CInt(PagAtual) ThenResponse.Write "<a href='paginacao.asp?PagAtual=" & i & "'>" & i & "</a> "END IFNext'------------------------------------------------------IF CInt(PagAtual) <> CInt(TotalPages) THEN 'Se estiver na última página, mostra apenas o botão Anterior e PrimeiraResponse.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")Response.Write("<a href='paginacao.asp?PagAtual=" & PagAtual + 1 & "'>")Response.Write("Próxima")Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")Response.Write("<a href='paginacao.asp?PagAtual=" & TotalPages & "'>")Response.Write("Ultima")Response.Write("</a></font></B> ") ElseResponse.Write("<B><font color=""#CCCCCC"" size=""1"" face=""Arial"">")Response.Write("Próxima") Response.Write("</font></B> ")Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")Response.Write("Ultima") Response.Write("</font></B> ")End If '################## fim paginacao 01 ########################%>  Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=D:\Inetpub\clientes\ideiasempixel.com\data\bdagenda.mdb;"  Set rsconexao = Conexao.Execute("select*from COMPO ORDER BY id")  rsconexao.PageSize = registrosIf rsconexao.EOF ThenResponse.Write "Nenhum registro encontrado"ElseWhile Not rsconexao.EOF AND x < rsconexao.PageSizex = x + 1 %><b><%=rsconexao("titulo")%></b><br><% rsconexao.MoveNextWendanterior = pagina - 1proxima = pagina + 1ultima = rsconexao.PageCountprimeira = 1ultm2 = FormatNumber(rsconexao.PageCount - 1,0)If pagina <> 1 ThenResponse.Write "<b>« <a href=paginacao.asp?pagina="&primeira&">Primeira Página</a></b> "End IfIf pagina > 1 AND pagina <> 2 ThenResponse.Write "<b>[ <a href=paginacao.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "End IfIf pagina > 1 ThenResponse.Write "<b>[ <a href=paginacao.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "End IfResponse.Write "<b>[ "&pagina&" ]</b> "If Not rsconexao.EOF ThenResponse.Write "<b>[ <a href=paginacao.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "End IfIf Not rsconexao.EOF AND pagina <> ultima AND pagina <> ultm2 ThenResponse.Write "<b>[ <a href=paginacao.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "End IfIf Not rsconexao.EOF ThenResponse.Write "<b><a href=paginacao.asp?pagina="&ultima&">Última Página</a> »</b> "End IfEnd IfSet rsconexao = Nothing %>

[Finhasso 0]

Orra fiquei procurando isso uns 4 dias, vlw Carlos Moreira funfo direitinho só tive que fazer algumas adaptações para o meu sistema. :grin: