<% var_rubro = cstr(Request.querystring("rubro")) Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open "DSN=andesimportdsn; UID=; PWD=;" Set objRS = objDB.Execute("select distinct producto.rubro from producto where (rubro= '" & var_rubro & "' and tip = 'andesimport')") Do While Not objRS.EOF %> <% objRS.MoveNext Loop objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing %>

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