paginacao

[Arrasted 0]

Quando clico para ir para segunda pagina da esse erro

 

Tipo de erro:

ADODB.Recordset (0x800A0BCD)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/VerProduto.asp, line 264

 

</head>

<%

Categoria = Request.QueryString("Categoria")

registros = 6

pagina = Request.QueryString("pagina")

If pagina = "" Then

pagina = 1

End If

Set Conn = Server.CreateObject("ADODB.CONNECTION")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=F:\MercadoLapa\mercadao.mdb"

Set rs = Server.Createobject("ADODB.RECORDSET")

Set rs.ActiveConnection = Conn

rs.CursorType = 3

rs.PageSize = registros

%>

</body>

 

<div id="navRight">					<%					sql = "SELECT * FROM produtos WHERE categoria = '"& Request.QueryString("Categoria") &"'"rs.Open sqlIf rs.EOF ThenResponse.Write "Nenhum registro encontrado"ElseEnd Ifrs.AbsolutePage = pagina  LINHA   264  AQUIWhile Not rs.EOF AND x < rs.PageSizex = x + 1 %><div class="Navcont"><div class="result"><%response.write "<a href=verDetalhes.asp?CodLojista=" &rs("CodLojista")& ">" response.write rs("box")response.write "</a>"response.write(rs("telefone"))response.write(rs("nro"))%></div><!-- end result --></div><!-- end Navcont --><% rs.MoveNextWendanterior = pagina - 1proxima = pagina + 1ultima = rs.PageCountprimeira = 1ultm2 = FormatNumber(rs.PageCount - 1,0)If pagina <> 1 ThenResponse.Write "« <a href=VerProduto.asp?pagina="&primeira&">Primeira Página</a> "End IfIf pagina > 1 AND pagina <> 2 ThenResponse.Write "<b>[ <a href=VerProduto.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ] "End IfIf pagina > 1 ThenResponse.Write "[ <a href=VerProduto.asp?pagina="&anterior&">"&anterior&"</a> ] "End IfResponse.Write "[ "&pagina&" ] "If Not rs.EOF ThenResponse.Write "[ <a href=VerProduto.asp?pagina="&proxima&">"&proxima&"</a> ] "End IfIf Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 ThenResponse.Write "[ <a href=VerProduto.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]"End IfIf Not rs.EOF ThenResponse.Write "<a href=VerProduto.asp?pagina="&ultima&">Última Página</a> » "End Ifrs.CloseSet rs = Nothing%>	</div><!-- end navRight -->

[Arrasted 0]

rs.AbsolutePage = pagina pq da esse erro ja conferi.. ta tud certinho igual ao tuto

[Arrasted 0]

Caraca, nenhuma ajudinha... ja tentei de tudo nessa ¨&%¨&$

[Carlos_Seiji 0]

olha pela lida por cima no codigo, parece que ele esta perdendo a palavra que esta sendo buscada.e o "end if" do "If rs.EOF Then"(linha 5) esta sendo fechado antes da hora o local correto é depois do ultimo "end if" (linha 5 de baixo pra cima)[]'s

[Arrasted 0]

Carlos_Seijifiz o que você falou.. só que quando lio na pagina2 ele vai, mas nao aparece nada... e tbm nao da erroAgora rolou só que

[Carlos_Seiji 0]

é o que eu falei no post anterior..quando você clica no link ele ta perdendo o valor a ser procuradoex.:Response.Write "[ <a href=VerProduto.asp?pagina="&proxima&">"&proxima&"</a> ] " ' não tem a palavra a ser buscadacorreção"[ <a href=VerProduto.asp?pagina="&proxima&"&categoria="& Request.QueryString("Categoria")&">"&proxima&"</a> ] "

[Matheusao 0]

Acabei de passar por isso.No meu tive que verificar todas as tabelas vinculadas e descobri que um fornecedor tinha sido excluído e o produto desse fornecedor não. Então qdo ele buscava os dados na tabela só encontrava o produto sem fornecedor e dava EOF ou BOF e dava pau na segunda página, onde era exibido.Se ainda não tiver resolvido, tenta isso.