paginação
Bom dia galera!
Estou com uma dúvida em relação a paginação. Quando executo o código abaixo aparece o seguinte erro:
Script error detected at line 26. [/size]
Source line: if rst.eof then [/size]
Description: Operação não permitida quando o objeto está fechado.[/size]
Alguém sabe como resolver isso?
---------------------------------------------------------------------------------------
test1.asp
<html>
<body>
<img src=images/logo.png>
<form action=test2.asp method=get>
Procurar por: <select name=campo>
<option>referencia</option>
<option>tipo</option>
<option>ano</option>
<option>cor</option>
<br>Informe o criterio de busca
<input type=text name=criterio>
<input type=submit value=buscar>
</form>
</body>
</html>---------------------------------------------------------------------------------------------------------------------------------------
test2.asp
<%
Set conn = Server.CreateObject("Adodb.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("banco.mdb")
palavra = Request.QueryString("criterio")
response.write "Palavra pesquisada :" & "<b>" & palavra & "<br />"
set rst = Server.CreateObject("Adodb.RecordSet")
if request.form("campo") = "referencia" Then
rst.Open "Select * from produtos where referencia like '%" & request.form("criterio") & "%'", conn, 3, 3
end if
If Request.Form("Campo") = "tipo" Then
rst.Open "Select * from produtos where tipo like '%" & request.form("criterio") & "%'", conn, 3, 3response.write "voce pesquisou por tipo"
End If
If Request.Form("Campo") = "cor" Then
rst.Open "Select * from produtos where cor like '%" & request.form("criterio") & "%'", conn, 3, 3
End If
If Request.Form("Campo") = "ano" Then
rst.Open "Select * from produtos where ano like '%" & request.form("criterio") & "%'", conn, 3, 3
End Ifrst.Pagesize = 5
if rst.eof then
response.write "nada no sistema"
Set rst = nothing
Set Conexao = nothing
else
if request.queryString("pagina")= "" then
intpagina = 1
else
if Cint(request.queryString("pagina")) < 1 then
intpagina = 1
else
if Cint(request.queryString("pagina")) > rst.Pagecount then
intpagina = rst.Pagecount
else intpagina = Cint(request.querystring("pagina"))
end if
end if
end if
rst.AbsolutePage = intpagina
%>
<html>
<% intRec = 0
while intRec < rst.pagesize AND NOT rst.eof
%>
<img src ="<%=rst("foto")%>"><br>
<%rst.movenext
intRec = intRec + 1
if rst.eof then response.write " "
wend
if intpagina <= 1 then
response.write " primeira | "
else
response.write "<a href = test2.asp?pagina=1> | primeira | </a>"
end if
if intpagina <= 1 then
response.write "anterior"
else
response.write "<a href=test2.asp?pagina=" & intpagina - 1 &"> | anterior& nbsp| </a>"
end if
if intpagina = rst.Pagecount then
response.write " | proximo | "
else
response.write "<a href=test2.asp?pagina=" & intpagina + 1 &"> | proxima | </a>"
end if
if intpagina = rst.PageCount then
response.write "ultima"
else
response.write "<a href=b.asp?pagina="& rst.Pagecount &">ultima pagina</a>"
end if
end if%>
Discussão (0)
Carregando comentários...