<% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open Application("ConexaoClassificados") set rs_valores = Server.createobject("adodb.recordset") rs_valores.open "select * from categorias ORDER BY ordem",Conexao set rs_valores2 = Server.createobject("adodb.recordset") rs_valores2.open "select * from categorias ORDER BY ordem",Conexao set rs_valores3 = Server.createobject("adodb.recordset") rs_valores3.open "select * from categorias ORDER BY ordem",Conexao set rs_valores4 = Server.createobject("adodb.recordset") rs_valores4.open "select * from categorias ORDER BY ordem",Conexao %>

1º Passo:  Selecione a Categoria para o seu Anúncio
Impressão Embalagem Pré-Impressão
<% if not rs_valores.eof then rs_valores.movefirst while not rs_valores.eof if rs_valores("codigo_departamento") = "1" then %> ')"><%=rs_valores("nome_categoria")%>
<% end if rs_valores.movenext wend end if %>
<% if not rs_valores3.eof then while not rs_valores3.eof if rs_valores3("codigo_departamento") = "4" then %> ')"><%=rs_valores3("nome_categoria")%>
<% end if rs_valores3.movenext wend end if %>
<% if not rs_valores4.eof then while not rs_valores4.eof if rs_valores4("codigo_departamento") = "2" then %> ')"><%=rs_valores4("nome_categoria")%>
<% end if rs_valores4.movenext wend end if %>