haga CLIC aqui para ver su ORDEN DE COMPRA Ver Carrito de
Proformas

usuarios
conectados
<%=application("vactivos")%>
<% Set conexion = Server.CreateObject("ADODB.Connection") conexion.Open(sConnect) set reg_prod=createobject("ADODB.Recordset") SQL="SELECT * FROM producto order by id ASC" reg_prod.open SQL, conexion %>
<% While NOT (reg_prod.EOF) %> <% reg_prod.MoveNext() Wend %>
"> <%=(reg_prod.Fields("catalogo"))%> " target="_parent">»»Haga clic para ver Video
 

<% if isObject(Session("carrito")) then set carrito =Session("carrito") else set carrito =Server.CreateObject("Scripting.Dictionary") end if if (carrito.Count=0) then %>




 

Su PEDIDO esta Vacio en este momento!!

 

<% else %> <% arrClav=carrito.Keys() arrElem=carrito.Items() Set conexion = Server.CreateObject("ADODB.Connection") set RsCli=createobject("ADODB.Recordset") conexion.Open(sConnect) SQL="SELECT * FROM Clientes" RsCli.open SQL,conexion,2,3 '********************************** 'Datos Grabados en la Tabla Clientes if (RsCli.EOF) then x=1 else RsCli.Movelast x=RsCli("id")+ 1 end if RsCli.AddNew RsCli("id")=x RsCli("nombres")=Request.form("nombres") RsCli("apellidos")=Request.form("apellidos") RsCli("direccion")=Request.form("direccion") RsCli("referencia")=Request.form("referencia") RsCli("ciudadprovincia")=Request.form("ciudadprovincia") RsCli("departamento")=Request.form("departamento") RsCli("pais")=Request.form("pais") RsCli("telefono")=Request.form("telefono") RsCli("correo")=Request.form("correo") RsCli("comentario")=Request.form("comentario") RsCli("fecha")=date RsCli.Update RsCli.Close '********************************** set RsCab=Server.createobject("ADODB.Recordset") SQL="SELECT * FROM PEDIDOCAB" RsCab.open SQL,conexion,2,3 if (RsCab.EOF) then numero=1 else RsCab.Movelast numero=RsCab("NUMEROPEDIDO")+ 1 end if%> <% RsCab.Addnew RsCab("NUMEROPEDIDO")=numero RsCab("OBS")=request.form("comentario") RsCab("NIFCLIENTE")=x RsCab("FECHA")=date set RsDet = Server.CreateObject("ADODB.Recordset") set RsProd = Server.CreateObject("ADODB.Recordset") SQL="SELECT * FROM PEDIDODET" RsDet.Open SQL,conexion,2,3 for i=0 to carrito.Count-1 SQL="SELECT * FROM PRODUCTO WHERE CODIGO Like '"&arrClav(i)&"'" RsProd.Open SQL,CONEXION,2,3 totpro=RsProd("PRECIO") * arrElem(i) total=RsProd("PRECIO") unidad=RsProd("UNIDAD") descripcion = RsProd("DESCRIPCION") RsDet.AddNew RsDet("NUMEROPEDIDO")=numero RsDet("CODIGOPRODUCTO")=arrClav(i) RsDet("CANTIDAD")=arrElem(i) RsDet("UNIDAD")=unidad RsDet("DESCRIPCION")= descripcion RsDet("PRECIO")=total RsDet("DESCUENTO")=RsProd("DESC") x= totpro * RsProd("Desc") y= totpro-x b= a+y a=b RsDet("SUBTOTAL")=Y 'IGV = (y * 0.19) bb=aa+y aa=bb 'RsDet("IGV")=IGV RsDet("TOTALPRODUCTO")=RsDet("SUBTOTAL")+IGV 'RsDet("LIN")=RsProd("LIN") totped = totped + totpro RsDet.Update RsProd.Close next RsDet.Close w= a+aa RsCab("TOTALPEDIDO")=w RsCab.Update %> <% Set MyMail = Server.CreateObject("Persits.MailSender") MyMail.Host = "mail.redinnova.com" MyMail.IsHTML = True MyMail.From = Request.Form("correo") ' From address MyMail.AddAddress "clientes@redinnova.com" MyMail.Subject = "!TIANSHI - COTIZACION LISTA - TIANSHI!" mensaje = vbcrlf mensaje=mensaje & "PROFORMA GENERADA N°"&numero&" desde LA PAGINA WEB TIANSHI."&vbcrlf mensaje=mensaje & vbcrlf mensaje=mensaje & "
" mensaje=mensaje & "
" mensaje=mensaje & "
" mensaje=mensaje & " HAGA CLICK AQUI PARA VISUALIZAR SU PROFORMA" &vbcrlf mensaje=mensaje & vbcrlf MyMail.body = mensaje MyMail.send %>

 

 

 

SU ORDEN DE COMPRA SE HA ENVIADO CON EXITO
sus datos fueron enviados con exito.
LE RECOMENDAMOS ESTAR PENDIENTE DE UN MAIL
QUE LE ENVIAREMOS EN EL TRANSCURSO DEL DIA

<% RsCab.Close conexion.Close carrito.RemoveAll set Session("carrito")=carrito %> <%end if %>
 
<% 'RsProd.Close() reg_prod.Close() 'Set RsProd = Nothing Set reg_prod = Nothing conexion.close %>