<%
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
%>
Não existem registros cadastrados nessa área.
<%
Else
strCount = 0
strTotal = 3
Do Until rs.eof
%>
<%
rs.movenext
Loop
rs.close
Set rs = Nothing
End If
%>
<%
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
%>