<%
Select Case lista
Case "categoria"
set lista_produtos = lojaDB.Execute("SELECT * FROM materias WHERE cat_id="& cat_id &" ORDER BY id ASC")
msgnada = "No momento não dispomos de nenhuma matéria nesta seção."
Case "busca"
set lista_produtos = lojaDB.Execute("SELECT * FROM materias WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%'")
msgnada = "Infelizmente não localizamos nenhuma matéria com esse nome."
Case Else
%>
<%
End Select
If lista_produtos.EOF Then
Response.Write "
" & msgnada & "
"
Else
%>
<%
Dim prod_cat_id,prod_id,prod_nome,prod_descricaop,prod_preco,malha1
malha1 = "sim"
while not lista_produtos.EOF
prod_cat_id = lista_produtos("cat_id")
prod_id = lista_produtos("id")
prod_nome = lista_produtos("nome")
prod_descricaop = lista_produtos("descricaop")
%>
<%
lista_produtos.movenext
If malha1 = "sim" Then malha1 = "nao" Else malha1 = "sim" End If
wend
End If
lista_produtos.Close
set lista_produtos = Nothing
%>
