<% idsub = Trim(Request.QueryString("idsub")) catNome = "" subCatNome = "" %> CELBRA - Segurança com Tecnologia

Selecione a categoria do produto desejado

<% sql = "SELECT * FROM tbCategoria WHERE exibir = true" set rsCat = Conn.Execute(sql,1,1) contador = 0 subcontador = 0 Do While NOt rsCat.EOF contador = contador+1 %> <% subcontador = subcontador+1 rsCat.movenext Loop rsCat.close Set rsCat= nothing %>
<%if not idsub = empty then%>
<%="Categoria: "&catNome & "
Subcategoria: " & subCatNome & ""%>
<% set rs_prod= CreateObject("ADODB.Recordset") strQuery = "SELECT * FROM tbProduto WHERE idSubCategoria="&idsub&" AND exibe = true" rs_prod.open strQuery,Conn,1,1 total = rs_prod.recordcount tr = 2 if not rs_prod.eof Then response.Write "" Do While NOt rs_prod.EOF if tr = 2 and ((total - tr) >= 1) then response.Write "" elseif(total = 1 and tr = 2) then response.Write "" end if response.Write "" tr = tr - 1 total = total - 1 if(tr = 0) then tr = 2 response.Write "" elseif(total = 0 and tr > 0) then response.Write("") end if rs_prod.movenext Loop response.Write "

"&rs_prod("referencia")&" - "&rs_prod("nome")&"
 
" rs_prod.close Set rs_prod = nothing else response.Write("


Não existem produtos nesta categoria.

") end if %>
<%else%> <%end if%>