<% Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open "DSN=andesimport; UID=; PWD=;" Set objRS = objDB.Execute("select distinct producto.rubro, producto.drubro from producto where categoria= 'andesimport'") Do While Not objRS.EOF %> <% objRS.MoveNext Loop objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing %>

"> <% =objRS("drubro") %>