% 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 %>