Erro Ao Paginar...

[Guest Weber]

Bom dia, pessoal estou com um problema na paginação de meus dados, ou seja, esta vindo paginado, de 20 em 20 registros, só que só mostra a 1ª pg e se eu tentar ir para a 2ª me retorna a mensagem de quando não há registros - "não possui registros com esses dados..."; e se coloco "absolutepage" me retorna o erro:

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

/adm/resultado.asp, line 28

------------------

<%

Tipo = Request.Form("Tipo")

Estado = Request.Form("Estado")

call abreconexao

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

pag = request.querystring("p")

if pag = "" then

pag = 1

end if

if Estado <> "Todos" then

SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' and UF = '" & Estado & "' order by Razao_Social Asc "

else

SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' order by UF, Razao_Social Asc "

end if

rsCad_Empresa.pagesize = 20

rsCad_Empresa.open sql, conexao, 3, 3

rsCad_Empresa.absolutepage = pag

%>

Agradeço

[bareta]

você ta enviando a query dizendo que é a 2 pagina???

[Principe]

Veja bem;

No seu código, no início... você recupera dados vindos de um formulário,

veja:

<%
Tipo = Request.Form("Tipo")
Estado = Request.Form("Estado")...

depois você utiliza esses dados nos seus select's

if Estado <> "Todos" then
SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' and UF = '" & Estado & "' order by Razao_Social Asc "
else
SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' order by UF, Razao_Social Asc "
end if

até ai sem problema mas,... rss,.. depois que você clica no link(ou botão) próximo você não tem mais esses dados, ou você envia pela url ou cria um form'zinho que vai receber os dados do outro form e vai reenviar para a própria página, que mostra os dados,.....

Resumindo,.. ele deve ta perdendo os dados.

[Guest Weber]

Então príncipe, não esta resgatando os valores para o próximo loop,por isso não traz nada. você citou em fazer um outor form apenas para receber esses valores e reenviá-los novamente, onde eu colocaria este form, na 1ª pg de busca ou na pg de resultado? E como eu resgataria isso?

Grato

[Guest - Rick -]

è o problema é esse, o seu código não retorna os valores para as próximas páginas.

[Principe]

coloca o form junto com seus botôes "proximo" e "anterior" daí você já pode usar os botões como submit e tal,.. e não esquece de dar o mesmo nome pros campos que você deu no form anterior. e coloca o form na mema página que vai mostrar os dados,.. assim você reenvia os dados pra própria página e vai resgatando eles novamente sem perder dado nenhum ! Pra saber qual botão o usuário clicou da nome pros botões,... quando você cria dois botões submit num form com nome o form envia só o valor do botão que foi clicado,... daí faz o teste:

If request.form("btnnext") <> "" Then

'proximos dados

End if

If request.form("btnprev") <> "" Then

'dados anteriores

end if

[Guest weber]

O problema é que meus links para as outras pgs se encontram em asp e não vejo onde adaptar o form que traz os valores!!!!

Links para as pgs EX:(10) [1] 2 3 4 ... última>>

<%

'caracteristicas do radape da pg

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

if not rsCad_Empresa.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 = rsCad_Empresa.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&amp]</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 rsCad_Empresa.eof Then

response.Write("")

else

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

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

end if

end if

end if

Call fechaconexao

%>