% 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 %>
CATEGORIA | ") Response.Write("CODIGO | ") Response.Write("PRODUCTO | ") Response.Write("CANTIDAD | ") if asd.EOF then asd.movefirst end if Do While Not asd.EOF %>
---|---|---|---|
<% =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 |