CATALOGO GENERAL DE PRODUCTOS

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

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