Nao mostra os dados

[serpaulo 0]

Falae pessoal belezera?

 

Entao, peguei o exemplo de paginação do AdrianoAlves e adaptei para a minha pagina.

O problema é que nao esta mostrando os dados, so a parte dos links para as proximas paginas, e nao estou achando o erro.

 

Se puderem me dar uma forca. Valeu

 

 

Aqui esta o codigo

 

<% Set Con = Server.CreateObject("ADODB.CONNECTION")Con.Open "osapostolicos1_visitas"Set RS = Server.Createobject("AdoDB.RecordSet")Set RS.ActiveConnection = ConSQL = "SELECT * FROM Assinar_atual ORDER BY data DESC"RS.Open SQL,Con,3,3IF Request.QueryString("PN") = "" THENPaginaCorrente = 1ELSEPaginaCorrente = Request.QueryString("PN")END IFIF Request.QueryString("intervalo") = "" THENIntervalo = 20 'Valor PadrãoELSEIntervalo = Request.QueryString("intervalo")END IF  Rs.PageSize = CInt(intervalo)  TotalPaginas= RS.PageCountTotalRegistros = RS.recordcountIF NOT Rs.Eof THENRs.AbsolutePage = CInt(PaginaCorrente)END IF 'FIM CONFIGURAÇÃO PAGINAÇÃO%>

 

 

 

<td valign="top"><p align="center" class="style1"><a href="AssignBook.asp">Assine nosso livro de Visitas</a></p>	  <table width="556" border="0"><%DO UNTIL RS.AbsolutePage <> CInt(PaginaCorrente) and not Rs.EOF%>		<tr>		  <td width="56"><strong>Nome</strong></td>		  <td colspan="2"><%=RS("Nome")%> </td>		  <td width="47"><strong>Idade</strong></td>		  <td width="46"><%=RS("idade")%> </td>		  <td width="88"><%=RS("data")%></td>		  <td width="28"> </td>		</tr>		<tr>		  <td><span class="style1"><strong>Email</strong></span></td>		  <td width="40"><strong>Pais</strong>			<!--<A HREF="Mailto:<%=RS("Email")%>"><%=RS("Email")%></A>--></td>		  <td width="221"><%=RS("pais")%></td>		  <td><strong>Cidade</strong></td>		  <td colspan="2"><%=RS("Cidade")%> </td>		  <td><%=RS("Estado")%></td>		</tr>		<tr>		  <td align="left" valign="top"><strong>Coment</strong></td>		  <td colspan="6"><%=RS("Comment")%></td>		</tr>		<tr>		  <td colspan="7" align="left" valign="top"><hr></td>		</tr><%rs.movenextloop%>	  </table></td>	  <table width="50%" border="0" align="center"><tr>  <td><div align="center"><a href="java script:RedirPagina();">Ir pára Página</a></div></td></tr><tr>  <td><%'Mostrar PáginasFlag = INT(TotalPaginas / Intervalo) Flag1 =  INT(PaginaCorrente / Intervalo) 'Definir página inicial e final PI = Flag1 * Intervalo IF PI = 0 THEN	PI = 1 END IF PF = PI + Intervalo - 1 'Link PRIMEIRA Página IF CInt(PaginaCorrente) > 1 THENResponse.Write "<a href=""CopyofDefault.asp?PN=1" & "&intervalo=" & intervalo & """>Primeira</a> "ElseResponse.Write "<font color=""#ADADAD"">Primeira</font> " END IF 'Colocar << se for preciso IF CInt(PaginaCorrente) > 1 THENResponse.Write "<a href=""CopyofDefault.asp?PN=" & PaginaCorrente-1 & "&intervalo=" & intervalo & """>Anterior</a> "ElseResponse.Write "<font color=""#ADADAD"">Anterior</font> " END IF 'Páginas FOR I = PI TO PF	IF CInt(I) <= CInt(TotalPaginas) THEN	IF CInt(PaginaCorrente) = CInt(I) THEN	   response.write("<font color=""#ADADAD"">" & I & "</font>") & " "	ELSE	   response.write "<a href=""CopyofDefault.asp?PN=" & I & "&intervalo=" & intervalo & """>" & I & "</a> "	END IF END IF NEXT 'Colocar >> se for preciso IF (CInt(PaginaCorrente) < TotalPaginas) THEN	IF CInt(PF) <> CInt(TotalPaginas) THEN  Response.Write "<a href=""CopyofDefault.asp?PN=" & PaginaCorrente+1 & "&intervalo=" & intervalo & """>Próxima</a> " END IFElse Response.Write "<font color=""#ADADAD"">Próxima</font> " END IF 'Link Última Página IF (CInt(PaginaCorrente) <> TotalPaginas) THEN	IF CInt(PF) <> CInt(TotalPaginas) THEN  Response.Write "<a href=""CopyofDefault.asp?PN=" & TotalPaginas & "&intervalo=" & intervalo & """>Última</a> " END IFElse Response.Write "<font color=""#ADADAD"">Última</font> " END IF'FIM Mostrar Páginas%></td></tr></table>

[jrcardozo 4]

você não criou a string de conexão

 

troque:

 

Con.Open "osapostolicos1_visitas"

por

 

Con.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("nomeDoMeuBanco.mdb")

não esqueça de colocar o substituir o "nomeDoMeuBanco.mdb" pelo que você está usando, creio que seja "osapostolicos1_visitas.mdb"

[serpaulo 0]

Valeu pela ajuda jonathandj mas não é esse o problema pois e eu mudar essa parte do codigo

 

<%DO UNTIL RS.AbsolutePage <> CInt(PaginaCorrente) and not Rs.EOF%>

Por isso por exemplo

 

<%DO UNTIL Rs.EOF%>

Mostra todos os registros na mesma pagina.

 

Valeu

[serpaulo 0]

Esta mostrando a area em ficaria os links, mas nao esta mostrando os dados.... e se mudo pra

 

<%DO UNTIL Rs.EOF%>

Para testar me retorna todos os dados na mesma tela.

 

Valeu gente

[serpaulo 0]

Nao estou conseguindo arrumar gente.... Da uma forca ai....

 

 

valeu http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Faru 0]

Refiz o código para você, deixei ele de uma maneira mais fácil de ser entendida.

É só copiar tudo em sua página.

<% Set Conn = Server.CreateObject("ADODB.CONNECTION")Conn.Provider = "Microsoft.Jet.OleDb.4.0"Conn.ConnectionString = Server.MapPath("bd.mdb")Conn.Open SQL = "Select * From Assinar_atual Order By data Desc"Set RS = Server.Createobject("AdoDB.RecordSet")RS.Open Sql,Conn,1,2If Request("p") = "" Then	p = 1Else	p = Request("p")End If'Número de resultados por páginaRs.PageSize = 5If Not Rs.Eof Then	Rs.AbsolutePage = pEnd If%><table>  <tr>	<td valign="top"><p align="center" class="style1"><a href="AssignBook.asp">Assine nosso livro de Visitas</a></p>	  <table width="556" border="0">		<%		Registro = 1		While Not RS.Eof And Registro <= RS.PageSize		%>		<tr>		  <td width="55"><strong>Nome</strong></td>		  <td colspan="3"><%=RS("Nome")%> </td>		  <td width="47"><strong>Idade</strong></td>		  <td width="45"><%=RS("idade")%> </td>		  <td width="85"><%=RS("data")%></td>		  <td width="30"></td>		</tr>		<tr>		  <td><span class="style1"><strong>Email</strong></span></td>		  <td width="105"><A HREF="Mailto:<%=RS("Email")%>"><%=RS("Email")%></a></td>		  <td width="39"><strong>Pais</strong></td>		  <td width="116"><%=RS("pais")%></td>		  <td><strong>Cidade</strong></td>		  <td colspan="2"><%=RS("Cidade")%> </td>		  <td><%=RS("Estado")%></td>		</tr>		<tr>		  <td align="left" valign="top"><strong>Coment</strong></td>		  <td colspan="7"><%=RS("Comment")%></td>		</tr>		<tr>		  <td colspan="8" align="left" valign="top"><hr></td>		</tr>		<%			Registro = Registro + 1			RS.MoveNext		Wend		%>	  </table></td>  </tr>  <tr>	<td><table width="50%" border="0" align="center">		<tr>		  <td><div align="center"><a href="java script:RedirPagina();">Ir pára Página</a></div></td>		</tr>		<%If RS.RecordCount > 1 Then%>		<tr>		  <td>		  <a href="CopyofDefault.asp?p=1">Primeira</a> |		  Página 		  <select onchange="location.href='CopyofDefault.asp?p='+this.value">		  <%For i = 1 to RS.PageCount%>		  <option value="<%=i%>" <%If Fix(p) = Fix(i) Then Response.Write "selected"%>><%=i%>		  <%Next%>		  </select> de <%=RS.PageCount%> | <a href="CopyofDefault.asp?p=<%=RS.PageCount%>">Última</a>		  </td>		</tr>		<%End If%>	  </table></td>  </tr></table>

Não esqueça de trocar o caminho do banco de dados.

Bom, espero ter ajudado.

[serpaulo 0]

Valeu.Fiz algumas adpts pra minha situacao e esta funfando...Valeu mesmo.Paulo