<% strBraco = "produtos" %> <%=strSiteTitulo%>
<% categoria = Request("c") If categoria = "" Then Response.redirect "default.asp" End If Set rs = connect.execute("SELECT * FROM categorias WHERE categoria_pub = True") If rs.EOF Then %> <% Else strCount = 0 strTotal = 3 Do Until rs.eof %> <% rs.movenext Loop rs.close Set rs = Nothing End If %>
Não existem registros cadastrados nessa área.');">
laranja<%Else%>cinzaM<%End If%>"><%=rs("categoria_nome")%>
<% Set rs2 = connect.execute("SELECT * FROM categorias, produtos WHERE produto_categoria = categoria_id AND categoria_id = "& categoria &"") If rs2.EOF Then %>
Não existem registros cadastrados nessa área.
<% Else %>
<%=rs2("categoria_nome")%>
<% classItem = "prodE" Do Until rs2.eof If classItem = "prodC" Then classItem = "prodE" Else classItem = "prodC" End If %> <% rs2.movenext Loop %>
');"><%=rs2("produto_titulo")%>
<% rs2.close Set rs2 = Nothing End If %>