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(Conn) 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 CARRITO esta vacio en este momento!!!
<% else %>
A continuación te mostramos los productos que ha decidido COMPRAR. Sigue las instrucciones siguientes para finalizar con su COMPRA y haga clic en "ENVIAR DATOS".
Por favor Completar los Campos requeridos:
Los campos marcados con ( * ) son necesarios para procesar el pedido.
  Nombres*
  Apellidos*
  Dirección*
  Alguna Referencia?
  Ciudad / Provincia
  Departamento
  País
  Teléfono Fijo

Correo Electrónico*
Para ENVIOS A PROVINCIA, se realizara por medio de SERPOST, el COSTO MINIMO DE ENVIO S/. 15.00
     
     
Para EL PAGO DE LOS PRODUCTOS, realizar el DEPOSITO en la
CUENTA DE AHORROS
del BANCO DE CREDITO DEL PERU
que le ENVIAREMOS despues de ENVIAR SU SOLICITUD DE COMPRA
   
<%x1 =Rsprod.Fields("PRECIO")*arrElem(i) x=x1 xx=xx+x %> <%RsProd.Close%> <% next %> <%conexion.Close%>
')"> " alt="Ampliar Imagen" border="0">
<%=RsProd("codigo")%>
<%=arrElem(i)%>
<%=RsProd("Unidad")%>
 <%=RsProd("DESCRIPCION")%>
<%=FormatNumber((RsProd("PRECIO")), 2, -2, -2, -2) %>
<% subtotal = arrElem(i) *RsProd("Precio") y=Subtotal b=a+y a=b %> <%=FormatNumber((y), 2, -2, -2, -2) %>
&cant=1'" type="submit" name="Submit3" value="uno"> &cant=<%=arrElem(i)%>'" type="submit" name="Submit22" value="todo">
<% END SUB '---------------------------------------------------------- Sub SacarArticulo (id, cantidad) if not carrito.Exists(id) then Response.Write("¡No tienes eso en tu carrito!") else if cantidad>1 then carrito.Remove(id) else carrito(id)=carrito(id)-1 if carrito(id)<1 then carrito.Remove(id) end if end if end if End Sub '--------------------------------- ' Programa "principal" '--------------------------------- Dim carrito Dim accion Dim producto Dim cant if isobject(Session("carrito")) then set carrito=Session("carrito") else set carrito=Server.CreateObject("Scripting.Dictionary") end if accion=CStr(Request.QueryString("ac")) 'Paso el parámetro a cadena producto=Request.QueryString("prod") 'Paso el parámetro cant a número entero cant=Request.QueryString("cant") 'Paso el parámetro cant a número entero Select Case accion Case "sacar" call SacarArticulo (producto, cant) MOSTRAR Case else mostrar End Select set Session("carrito")=carrito %>

<% end if %>
 
Home  |  Nosotros  |  Catálogo  |  Ver Cesta  |  Contacto 
<% 'RsProd.Close() reg_prod.Close() 'Set RsProd = Nothing Set reg_prod = Nothing conexion.close %>