paginacao asp por select
Boa noite galera.
Minha duvida e o seguinte:
Tenho uma pagina em html na qual é possivel fazer uma busca por opcao. Se eu escolho a opcao referencia, é gerado a pagiacao normal, baseado na palavra, mas quando eu clico no link da proxima pagina, é retornado todos os valores. alguem sabe como acrescentar a variavel da busca no link "proximo" .
<html>
<body>
<img src=images/logo.png>
<form action=buscando.asp method=get>
Procurar por: <select name=campo>
<option>referencia</option>
<option>tipo</option>
<option>ano</option>
<option>cor</option>
<br><input type=text name=criterio>
<input type=submit value=buscar>
</form>
</body>
</html>----------------------------------------------------------------------------------
<%
set DB = Server.CreateObject("Adodb.Connection")
DB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("bd.mdb")
Set RS = Server.CreateObject("Adodb.RecordSet")
sql="select * from produtos"
RS.PageSize = 3
if request("campo") = "referencia" Then
c=request("criterio")
sql = sql & " where referencia like '%" & c & "%'"
end if
RS.Open sql, DB,3,3
If RS.EOF then
Response.Write "Nenhum registro encontrado!"
Response.End
Else
If Request.QueryString("pagina")="" then
intpagina=1
Else
If Cint(Request.QueryString("pagina"))<1 then
intpagina=1
Else
If Cint(Request.QueryString("pagina"))>RS.PageCount then
intpagina=RS.PageCount
Else
intpagina=Request.QueryString("pagina")
End If
End if
End if
End if
RS.AbsolutePage=intpagina
intrec=0
%>
Pagina <%=intpagina%> de <%=RS.PageCount%></p>
</b>
<div align="center">
<center><%
While intrec<RS.PageSize and not RS.EOF
%>
<img src="<%=RS("foto")%>"><br>
<%
Rs.movenext
intrec=intrec+1
Wend
%>
</center>
</div>
<br>
<div id="count" align="center"><%
If intpagina > 1 then
Response.Write "<a href=""buscando.asp?pagina=" & intpagina-1 & """>Anterior</a>"
End If
For i=1 to RS.PageCount
If i = Cint(intpagina) then
Response.Write " " & i
else
'o engraçado é que esse link funcionA caso eu faça um simples busca sem o select.
**Response.Write " <a href=""buscando.asp?pagina=" & i &"&criterio="&c& """>" & i & "</a>"**End If
Next
If strcomp(intpagina,RS.PageCount)<> 0 then
Response.Write " <a href=""buscando.asp?pagina=" & intpagina+1 & """>Próxima</a>"
End If
%>
</body>
</html>Discussão (0)
Carregando comentários...