<% codigo=Request.Form("codigo") Dim sRowColor Dim objDB Dim objRS Dim sDBName 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='andesimport') 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") %>
 
   


Grupo del Producto

<% =objRS("drubro") %>
<% =objRS("subgrupo") %>

 
   


Código del Producto

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

 
   


Nombre del Producto

<% =objRS("producto") %>

 
         

Ingrese Cantidad a Cotizar ">


Derechos reservados por Andesimport Ltda.
General Gonzalez Balcarce # 2041, Comuna Santiago de Chile.
Fono - Fax : (2) 56-6834510 /
Cod.Postal : 6513015
email : andes@andesimport.cl o sitio web www.andesimport.cl
<% objRS.MoveNext Loop objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing end if %>