<% '// Verificamos que esteregistrado 'If Session("id_usuario")="" then ' if Session("nick")="" then ' Response.Redirect("login.asp") ' end if 'end if '// Extraemos informacion del usuario para hacer el pedido set oConn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") oConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("DB/StrMex.mdb") if Request.Form <>"" then tmp_nombre = Request("nombre") tmp_apellido = Request("apellido") tmp_usuario = Request("usuario") tmp_password = Request("password") tmp_direccion = Request("direccion") tmp_colonia = Request("colonia") tmp_cp = Request("cp") tmp_telefono = Request("telefono") tmp_fax = Request("fax") tmp_pais = Request("pais") tmp_ciudad = Request("ciudad") tmp_correo = Request("correo") tmp_promociones = Request("promociones") sql_insert = "Insert into Users (user_fnom, user_lnom, user_dir, user_col, user_cp, user_tel, user_fax, user_pais, user_ciudad, user_email, user_promo)" sql_insert = sql_insert & " Values (" sql_insert = sql_insert & " '"&Request("nombre")&"', " sql_insert = sql_insert & " '"&Request("apellido")&"', " 'sql_insert = sql_insert & " '"&Request("usuario")&"', " 'sql_insert = sql_insert & " '"&Request("password")&"', " sql_insert = sql_insert & " '"&Request("direccion")&"', " sql_insert = sql_insert & " '"&Request("colonia")&"', " sql_insert = sql_insert & " "&Request("cp")&", " sql_insert = sql_insert & " "&Request("telefono")&", " if tmp_fax="" then sql_insert = sql_insert & " 0, " else sql_insert = sql_insert & " "&Request("fax")&", " end if sql_insert = sql_insert & " '"&Request("pais")&"', " sql_insert = sql_insert & " '"&Request("ciudad")&"', " sql_insert = sql_insert & " '"&Request("correo")&"', " sql_insert = sql_insert & " '"&Request("promociones")&"')" Response.write(sql_insert) Set Ins_RS= oConn.Execute(sql_insert) session("nombre")= Request("nombre") session("apellido")= Request("apellido") session("nick")= Request("usuario") end if if Request.Form("paso")="conversiones" then sql_tc="Select * From TC" Set Obtc_RS= oConn.Execute (sql_tc) Session("tc")= Obtc_RS("id_imp") sql_obtenemos="Select max(user_id) as user_no From Users " Set Obt_RS= oConn.Execute(sql_obtenemos) if not Obt_RS. EOF then Session("id_usuario")= Obt_RS("user_no") End if Session("cantidad") =Request("cantidad") Session("total") = Session("tc") * Request("total") Session("totalusd") = Request("total")&".00" Session("producto") = 1 fecha =date() dia = day(fecha) mes = month(fecha) ano = year(fecha) if dia <10 then dia = "0"&dia if mes <10 then mes = "0"&mes Session("fecha") = ano&"/"&mes&"/"&dia sql_uporder="Insert into Orders (order_cant, order_tc, order_importe, order_fecha, user_id, prod_id)" sql_uporder=sql_uporder&" values (" sql_uporder=sql_uporder&" "&Session("cantidad")&"," sql_uporder=sql_uporder&" '"&Session("tc")&"'," sql_uporder=sql_uporder&" '"&Session("total")&"'," sql_uporder=sql_uporder&" '"&session("fecha")&"'," sql_uporder=sql_uporder&" "&Session("id_usuario")&"," sql_uporder=sql_uporder&" "&Session("producto")&" )" Response.Write(sql_uporder) Set Po_RS= oConn.Execute(sql_uporder) sql_obtengo_order = "Select max(order_id) as pedido from Orders" Set Orob_RS= oConn.Execute(sql_obtengo_order) Session("order")= Orob_RS("pedido") Response.Redirect "9034042_mexitrade.asp" end if %> Mexitrade-Pedido en línea

 

 

Cantidad/Deal Descripcion/Description Precio Unitario//Cost Unit Total/Amount
Kit Sexgum $38.00USD

Forma de pedido/Order Form
<%=tmp_msg%>
Nombres/Name
Apellidos/Last name
Dirección/Address
Colonia/PO
C.P./ZIP
Teléfono/Phone
Fax
Pais/Country
Ciudad/State
Correo-e/email

Deseo recibir noticias y promocionos por correo

El Sexgum será envíado a su Domicilio en cualquier parte del Mundo.
El precio Incluye el costo de envío

The Sexgum  will be send to any part of the world to your address in 7 days average.
The price includes consignment cost.

  mastcard.jpg (20254 bytes)   

Las personas que compran en nuestro sitio, lo hacen en un servidor seguro de las compañías de  tarjetas de crédito, quienes codifican y encriptan la información personal del cliente, incluyendo su nombre, dirección, número de tarjeta de crédito. Estas medidas de seguridad no permiten que la información personal del consumidor no se utilice para otras aplicaciones no autorizados. La compañía, su personal y cualquier tercero no tienen acceso a la información confidencial de su transacción.

El producto una vez aprobada la operación por la tarjeta de crédito, será enviado a su domicilio en cualquier parte del mundo en un promedio de 7 días.

El precio del producto incluye los gastos de envío a su domicilio.

Customers who buy in our site, are shopping on a credit card secure server, which encrypts all of the customer’s personal information including name, address and credit card number. Encryption ensures that no one can access or use personal information in an unauthorized manner. The Company and the third can not have access to the confidential information of your transaction

The product will be send to any part of the world to your address in 7 days average.

The price includes consignment cost.