<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% nClave = request("clave") 'Conexion a la base de datos DSN = "Driver={Mysql}; Server=mysql.rockcenter.com.ar;" &_ "Database=rockcenter;" &_ "UID=rockcenter;" &_ "PWD=ffa4tg8" Set db = Server.CreateObject("ADODB.Recordset") Set db1 = Server.CreateObject("ADODB.Recordset") query = "SELECT * FROM Carrito WHERE sesion='" & session("CLAVE") & "'" db.open query,dsn,1,2 if db.recordcount > 0 then do while not db.eof dim campo dim valor campo = "Cantidad" & db.fields("idProducto") if campo <> NULL then valor = request(campo) db.fields("cantidad") = valor db.update end if db.movenext loop end if %> Rock Center - Instrumentos Musicales
   

<% Dim a a=1 if db.recordcount > 0 then db.movefirst end if Dim varTotCar varTotCar = 0 Do while not db.EOF Dim varCodigo Dim varDescripcion Dim varPrecio query = "SELECT Num_articu, Moneda, Descripcion, Modelo, PrecioPublico, WebMuestraPrecio FROM Articulos Where id=" & db.fields("idProducto") db1.open query,dsn,1 varCodigo = db1.fields("Num_articu") varDescripcion = db1.fields("Descripcion") & " " & db1.fields("Modelo") varPrecio = db1.fields("PrecioPublico") %> > <% db.Movenext db1.close a=a+1 loop %>
Codigo
Descripción
Cantidad
Precio
Importe
 Borrar
<%response.Write(varCodigo)%> <%response.Write(varDescripcion)%>
2" type="text" value="<%Response.Write(db("cantidad"))%>" size="5">
<% ' if db1("Moneda") = "U" or db1("Moneda") = "U$S" then ' response.Write(FormatNumber((db1("PrecioPublico") * xDolar / 1 ),2)) ' else ' 'response.Write(FormatNumber(Cdbl(replace(Cstr(db1("PrecioPublico")),".",",")/100),2)) ' response.Write(FormatNumber((db1("PrecioPublico") / 1 ),2)) ' end if if db1("Moneda") = "U" or db1("Moneda") = "U$S" then if db1("WebMuestraPrecio") = "S" then response.Write(FormatNumber(Cdbl(replace(Cstr((db1("PrecioPublico") * 1.10 * xDolar )),".",",")/100),2)) else response.Write("Consultar") end if else if db1("WebMuestraPrecio") = "S" then response.Write(FormatNumber(Cdbl(replace(Cstr(db1("PrecioPublico") * 1.10 ),".",",")/100),2)) else response.Write("Consultar") end if end if %>
<% if db1("Moneda") = "U" or db1("Moneda") = "U$S" then if db1("WebMuestraPrecio") = "S" then response.Write(FormatNumber(Cdbl(replace(Cstr((db1("PrecioPublico") * 1.10 * db("cantidad")* xDolar )),".",",")/100),2)) varTotCar = varTotCar + ( db1("PrecioPublico") * 1.10 * db("cantidad") * xDolar ) else response.Write("Consultar") end if else if db1("WebMuestraPrecio") = "S" then response.Write(FormatNumber(Cdbl(replace(Cstr(db1("PrecioPublico") * 1.10 * db("cantidad")),".",",")/100),2)) varTotCar = varTotCar + ( db1("PrecioPublico") * 1.10 * db("cantidad") ) else response.Write("Consultar") end if end if %>
&S=<%response.Write(db.fields("sesion"))%>','','scrollbars=yes,resizable=yes,width=350,height=100')>
  Total
<%= FormatNumber((varTotCar/100),2) %>
  

Importante: al enviar este formulario con los artículos seleccionados, usted no está comprando, solo manifiesta su interés en los productos arriba listados y será contactado por uno de nuestros vendedores para asesorarlo en todo lo que necesite y si, así lo desea, poder concretar una venta telefónica.
Muchas gracias por utilizar nuestra página.

** Por problemas técnicos los precios se encuentran desactualizados, por favor confirmarlos telefónicamente o por email **

Volver al listado de artículos

Nombre:

e-mail:
Teléfono:
Comentario:
<% if db.recordcount = 0 then response.Write("
No tiene artículos en su carrito
") end if db.close %>
 
RockCenter®. Talcahuano 180, Buenos Aires, Argentina. Tel: (54-11) 4381-8518 | Copyright 2006 - RockCenter.com.ar
Todos los derechos reservados | info@rockcenter.com.ar | Desarrollado por •• ivang ••