<% codigo=Request.Form("codigo") Dim sRowColor Dim objDB Dim objRS Dim sDBName var_rubro = cstr(Request.QueryString("rubro")) var_producto = cstr(Request.QueryString("dproducto")) imagen = cstr(Request.QueryString("imagen")) if var_producto="" then response.write("nada") else Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open "DSN=andesimportdsn; UID=; PWD=;" Set objRs = objDB.Execute("select distinct * from producto where ((producto.dproducto='" & var_producto & "') and (producto.categoria='Producto') and (producto.dproducto=producto.dproducto))") Set objRs = objDB.Execute("select distinct * from producto where (producto.imagen=producto.imagen) and (producto.dproducto='" & var_producto & "')") Do While not objRS.EOF Response.Write "" Response.Write "
" %>
  Categoria del Producto :

<% =objRS("rubro") %>
    Rubro del Producto :

<% =objRS("drubro") %>
    Descripción del Producto :

<% =objRS("dproducto") %>
    Código del Producto :

<% =objRS("producto") %>
   

Medida del Producto :

<% =objRS("unmed") %>

Elija Color:

       
Ingrese Cantidad a Cotizar ">
<% objRS.MoveNext Loop objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing end if %>