<% item=Request.Form("item") cantidad=Request.Form("cantidad") Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open "DSN=andesimportdsn; UID=; PWD=;" Set objRS = objDB.Execute("select * from producto where dproducto='" & item & "'") Set DbObj = Server.CreateObject("ADODB.Connection") DbObj.Open "DSN=andesimportdsn; UID=; PWD=;" Set asd = DbObj.Execute("select * from cotizacion where idboleta = '" & Session("idboleta") & "'") drubro=objRS("drubro") rubro=objRS("rubro") producto=objRS("producto") fechacompra=date() boleta=Session("idboleta") dd = "INSERT INTO cotizacion (dproducto,drubro,rubro,producto,cantidad,fechacompra,idboleta) VALUES ('" & item & "', '" & drubro & "' ,'" & rubro & "', '" & producto & "', '" & cantidad & "', '" & fechacompra & "','" & boleta & "')" DbObj.Execute dd %> Catálogo - Andesimport


<% Response.Write("") Response.Write("") Response.Write("") Response.Write("") if asd.EOF then asd.movefirst end if Do While Not asd.EOF %> <% asd.MoveNext Loop 'objRS.Close 'objDB.Close 'Set objRS = Nothing 'Set objDB = Nothing 'DbObj.Close 'asd.Close 'Set DbObj = Nothing 'Set asd = Nothing %>
CATEGORIACODIGOPRODUCTOCANTIDAD

<% =asd("rubro") %>

<% =asd("dproducto") %>

<% =asd("producto") %>

<% =asd("cantidad") %>


eliminar cotizacion

seguir cotizando

terminar cotizacion



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