<% 'RELAÇÃO DE CATEGORIAS '-------------------------------------------------------------------------- SQL = "select * from CATEGORIAS A where A.catId in (select catId from SUBCATEGORIAS) order by catNome" set rsCat = createObject("adodb.recordset") rsCat.Open(SQL), DB, 1 '-------------------------------------------------------------------------- %> OPERMAK ... Produtos

Clique em uma categoria para visualizar os equipamentos disponíveis:

<% while not rsCat.EOF a = a + 1 %>
<%= rsCat("catNome") %>

<% rsCat.movenext wend %> <% rsSub.close() set rsSub = nothing rsCat.close() set rsCat = nothing %>