Alguem Sabe O Que É?

[SPAWN™]

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">&nbsp;</TD>
         <TD height="24">&nbsp;</TD>
         <td>&nbsp;</td>
         <td>&nbsp;</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">&nbsp;</td>
       </tr>
       <tr> 
         <td>&nbsp;</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%">&nbsp;</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 "&nbsp<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>

[Reginaldo ASP]

Estranho... Aparentemente o seu código está correto.

NO seu bd, os cadastros estão corretos??

[Bertolani]

você já imprimiu o SQL gerado pela sua rotina e jogou no banco? o que aconteceu?

Bertolani

[SPAWN™]

valeu e já esta resolvido.

Brigadao..

ok