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