<%
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("drubro") %>
|
|
<%
objRS.MoveNext
Loop
objRS.Close
objDB.Close
Set objRS = Nothing
Set objDB = Nothing
%>