Rubros
<% Dim cnn,rst set cnn = Server.CreateObject("ADODB.Connection") set rst = Server.CreateObject("ADODB.Recordset") cnn.open "DSN=Directorio;UserId=web;Password=odaliska$$$;UID=web" dim sqltext sqltext = "Select * from rubro_personal order by rubro" rst.open sqltext,cnn,2,3,1 if rst.eof and rst.bof then else while not rst.eof %> target="mainFrame"><%=rst("rubro")%>