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

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