Gostaria de ajuda para resolver isso, a paginação esta funcionado corretamente mais busca todos os produtos de todas as categorias EX:http://localhost/listaprod.asp?lista=categoria&cat_id=1&cat_nome=Cat_nome Não sei o estou fazendo de errado quando mando buscar a categoria cat_id (1 ) e categoaria cat_nome( camisas) o que me aparece são todos os produtos do db. Muito obrigado para quem poder peder dois minutos para dar uma olhadinha no codigo de quem esta aprendendo. <%
Dim lista,cat_id,cat_nome,nome,lista_produtos,msgnada,n_page,Pagesize,navega,anterior,proxima
lista=Request.querystring("lista")
cat_id=Request.querystring("cat_id")
cat_nome=Request.querystring("cat_nome")
nome=Request.querystring("nome")
n_page=Request.querystring("n_page")
if n_page="" then n_page= 1
%>
<table width="642" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="256"><table width="0%" border="0" cellspacing="0" cellpadding="0">
<tr>
<TD height="24"> </TD>
<TD height="24"> </TD>
<td> </td>
<td> </td>
</tr>
<tr>
<TD width="19" height="24"><IMG alt="" border=0 height=8 src="imagem/x.gif"
width=13></TD>
<TD width="19" height="24"><IMG alt="" border=0 height=8 src="imagem/x.gif"
width=13></TD>
<td width="158"><IMG src="./images/<%=cat_nome%>" width="158" height="24" align="baseline"></td>
<td width="434" background="images/xtab.jpg"> </td>
</tr>
<tr>
<td> </td>
<td>
<%
Select Case lista
Case "categoria"
set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id="& cat_id &" AND disp='S' ORDER BY nome")
msgnada = "No momento não dispomos de nenhum produto neste departamento."
Case "busca"
set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR preço LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' AND disp='S' ORDER BY nome")
msgnada = "Infelizmente não localizamos nenhum produto com esse nome."
End Select
%>
<%
Set lista_produtos=Server.CreateObject("ADODB.Recordset")
lista_produtos.open "produtos", lojaDB, 3,3
lista_produtos.Pagesize=3
If lista_produtos.EOF Then
Response.Write "<tr><td><h4>" & msgnada & "</h4></td></tr>"
Else
lista_produtos.AbsolutePage = Cint(n_page)
%>
</td>
</tr>
</table>
<table width="408" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="434" height="213"><TABLE width=400 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR vAlign=top>
<TD height="193" align=right>
<table width=82%>
<%
Dim prod_cat_id,prod_id,prod_nome,prod_descricaop,prod_imagem,contador
contador = 0
while not lista_produtos.EOF AND contador < lista_produtos.Pagesize
prod_cat_id = lista_produtos("cat_id")
prod_id = lista_produtos("id")
prod_nome = lista_produtos("nome")
prod_descricaop = lista_produtos("descricaop")
prod_imagem = lista_produtos("imagem")
%>
<tr>
<td class=pageheader width="29%"><font size="1"><%=prod_nome%></font></td>
<td width="3%"> </td>
<td width="68%" rowspan="2"><%=prod_descricaop%></td>
</tr>
<tr>
<td height="147"><img src="./images/<%=prod_imagem%>" width="162" height="145"></td>
<td width="3%"><IMG
src="img/divider.gif"
width=10 height="149" align="middle"></td>
</tr>
<tr>
<td height="16" colspan="3" noboder><IMG
src="img/feature.gif"
width=559 height=14 align="top"></td>
</tr>
<%
lista_produtos.movenext
contador=contador+1
wend
response.write "<br>"
' barra de navegação
For navega= 1 to lista_produtos.PageCount
If navega= Cint(n_page) Then
response.write navega
Else
response.write " "& "<a href=listaprod.asp?n_page="&navega&">"&navega&"</a>"& " "
End If
Next
response.write "<br><br>"
anterior=n_page-1
proxima=n_page+1
If not anterior = 0 Then
response.write "<a href=listaprod.asp?n_page="&anterior&">Anterior</a>"
End If
If proxima < navega Then
response.write " <a href=listaprod.asp?n_page="&proxima&">Próxima</a>"
End If
End If
lista_produtos.Close
set lista_produtos = Nothing
%>
</table>
</TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table>
</td>
</tr>
</table>
