<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/Plasma.asp" -->
<%
Dim rsVenta
Dim rsVenta_cmd
Dim rsVenta_numRows
Set rsVenta_cmd = Server.CreateObject ("ADODB.Command")
rsVenta_cmd.ActiveConnection = MM_Plasma_STRING
rsVenta_cmd.CommandText = "SELECT * FROM Orders"
rsVenta_cmd.Prepared = true
Set rsVenta = rsVenta_cmd.Execute
rsVenta_numRows = 0
%>
<%
Dim rsPrecios__MMColParam
rsPrecios__MMColParam = "mx"
If (Request("MM_EmptyValue") <> "") Then
rsPrecios__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsPrecios
Dim rsPrecios_cmd
Dim rsPrecios_numRows
Set rsPrecios_cmd = Server.CreateObject ("ADODB.Command")
rsPrecios_cmd.ActiveConnection = MM_Plasma_STRING
rsPrecios_cmd.CommandText = "SELECT * FROM precios WHERE xregion = ?"
rsPrecios_cmd.Prepared = true
rsPrecios_cmd.Parameters.Append rsPrecios_cmd.CreateParameter("param1", 200, 1, 50, rsPrecios__MMColParam) ' adVarChar
Set rsPrecios = rsPrecios_cmd.Execute
rsPrecios_numRows = 0
%>
<%
Dim rsColores__MMColParam
rsColores__MMColParam = "mx"
If (Request("MM_EmptyValue") <> "") Then
rsColores__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsColores
Dim rsColores_cmd
Dim rsColores_numRows
Set rsColores_cmd = Server.CreateObject ("ADODB.Command")
rsColores_cmd.ActiveConnection = MM_Plasma_STRING
rsColores_cmd.CommandText = "SELECT * FROM colores WHERE xpais = ? ORDER BY xcolores ASC"
rsColores_cmd.Prepared = true
rsColores_cmd.Parameters.Append rsColores_cmd.CreateParameter("param1", 200, 1, 50, rsColores__MMColParam) ' adVarChar
Set rsColores = rsColores_cmd.Execute
rsColores_numRows = 0
%>
<%
Dim rsPrecio__MMColParam
rsPrecio__MMColParam = "mx"
If (Request("MM_EmptyValue") <> "") Then
rsPrecio__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsPrecio
Dim rsPrecio_numRows
Set rsPrecio = Server.CreateObject("ADODB.Recordset")
rsPrecio.ActiveConnection = MM_Plasma_STRING
rsPrecio.Source = "SELECT * FROM precios WHERE xregion = '" + Replace(rsPrecio__MMColParam, "'", "''") + "'"
rsPrecio.CursorType = 0
rsPrecio.CursorLocation = 2
rsPrecio.LockType = 1
rsPrecio.Open()
rsPrecio_numRows = 0
%>
<HTML>
<HEAD>
<TITLE><%=title%></TITLE>
<meta http-equiv="Content-Style-Type" content="text/css">
<LINK HREF="../style.css" TYPE="text/css" REL="stylesheet">
<style type="text/css">
<!--
.style1 { color: #FFCC33;
font-weight: bold;
}
.style2 { color: #FFCC33;
font-weight: bold;
}
.style3 { font-size: 12px;
font-weight: bold;
}
body {
background-image: url();
background-color: #FFFFFF;
}
.cuadro {
border: 1px solid #7B93AC;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../../admin/recursos/styles.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
a:link {
color: #990000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #990000;
}
a:hover {
text-decoration: none;
color: #FF0000;
}
a:active {
text-decoration: none;
}
.style4 {color: #333333}
.style5 {color: #000000}
.style7 {color: #996600}
-->
</style>
<script type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_validateForm() { //v4.0
var i,p,q,nm,test,num,min,max,errors='',args=MM_valida teForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
if (val) { nm=val.name; if ((val=val.value)!="") {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
} if (errors) alert('The following error(s) occurred:\n'+errors);
document.MM_returnValue = (errors == '');
}
//-->
</script>
</HEAD>
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!-- ImageReady Slices (01_main.psd - Slices: 05, 07, bottom, top, top_px) -->
<table width="814" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="87" valign="top" background="../../recursos/leftFill.gif"> </td>
<td width="653" valign="top" background="../../images/bkprod01.jpg" bgcolor="#171717"><table width="100%" height="580" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><TABLE WIDTH=653 BORDER=0 CELLPADDING=0 CELLSPACING=0 align="center">
<TR>
<TD WIDTH=653 HEIGHT=339 ALT="" valign="top"><table width="653" height="339" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="242" valign="top"><div class="style1" style="margin-left:24px; margin-top:16px ">PRIVACIDAD Y SEGURIDAD <br>
DE TUS DATOS </div>
<div style="margin-left:24px; margin-top:4px; height:2px; background-color:#333333; margin-right:25px "><img src="../images/spacer.gif" width="1" height="1"></div>
<div style="margin-left:24px; margin-top:8px; height:1px; margin-right:25px;">
<p><span class="white"><img src="../images/spacer.gif" width="1" height="1">Kempler & Strauss utiliza diversas tecnologías y procedimientos de seguridad para proteger su información del acceso, revelación y uso no autorizados. Por ejemplo, almacenamos la información personal proporcionada en sistemas de acceso limitado, situados en instalaciones controladas. Estos servidores están configurados con el único propósito de dirigir la totalidad del proceso de facturación de los clientes y la administración de sus cuentas del servicio, recogiendo los pagos y ofreciendo soporte técnico al cliente. Cuando se envía esta información a proveedores de servicios de confianza, o bien se cifra para la transmisión en Internet o bien se envía directamente mediante líneas privadas.</span><BR>
</p>
</div>
<div class="style2" style="margin-left:24px; margin-top:19px "> </div>
<div style="margin-left:24px; margin-top:12px; width:198px "><span class="style4"><strong>KEMPLER & STRAUSS - MEXICO</strong> <br>
Rio Duero No. 17, Col. Cuauhtemoc<br>
México, D.F.</span> <br>
<span class="style5">Tel.</span> <SPAN class="style2" id=lblParagraph2>(55)55-25-19-45</SPAN></div></td>
<td width="411" valign="top" style="background-position:top left; background-repeat:no-repeat "><table width="411" border="0" cellpadding="0" cellspacing="0" style="background-position:left bottom; background-repeat:no-repeat ">
<tr>
<td valign="top"><div class="style3" style="margin-left:27px; margin-top:16px ">COMPRA TU SLIM DATA EN LINEA </div>
<div style="margin-left:27px; margin-top:4px; height:2px; background-color:#CCCCCC; margin-right:34px "><img src="../images/spacer.gif" width="1" height="1"></div>
<div style="margin-left:27px; margin-top:11px; ">
<object classid="clsid
27CDB6E-AE6D-11cf-96B8-444553540000" codebase="
http://download.macromedia.com/pub/s...rsion=6,0,29,0" width="110" height="35">
<param name="movie" value="../images/credit.swf">
<param name="quality" value="high">
<param name="wmode" value="transparent">
<embed src="../images/credit.swf" width="110" height="35" quality="high" pluginspage="
http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object>
<br>
<span class="style2"><br>
Tu dirección ip es :
<% = Request.ServerVariables("REMOTE_ADDR") %>
</span><span class="blue"><br>
</span><SPAN id=lblParagraph1>Esta, así como otra información es controlada y grabada. El uso fraudulento de tarjetas de crédito será reportado a las autoridades correspondientes de tu pais.</SPAN></div>
<form action="compra_ok.asp" method="post" name="compra" id="compra" onSubmit="MM_validateForm('Nombre','','R','Telefon o','','RisNum','email','','RisEmail','cp','','RisN um','tarjetacreditonombre','','R','tarjetacrediton umero','','RisNum','numsecreto','','RisNum','tarje tacreditoexpiracion','','R','Direccionpersonal','' ,'R','Direcciondeentrega','','R');return document.MM_returnValue">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC" class="cuadro">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="8">
<tr>
<td bgcolor="#333333" class="style1">Datos Personales</td>
</tr>
<tr>
<td><table width="95%" align="center" cellpadding="3">
<tr valign="baseline">
<td colspan="2" align="right" nowrap><SPAN class="style2" id=lblFieldsCompleted>Todos los espacios deben ser completados.</SPAN></td>
</tr>
<tr valign="baseline">
<td width="43%" align="right" nowrap>Nombre:</td>
<td width="57%"><input name="Nombre" type="text" class="field" value="" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Dirección personal:</td>
<td><textarea name="Direccionpersonal" cols="32" rows="5" class="field"></textarea> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">País:</td>
<td><select name="Pais" class="field">
<option>Seleccione</option>
<option value="mx" selected>Mexico</option>
<option value="usa">Estados Unidos</option>
</select> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Teléfono:</td>
<td><input name="Telefono" type="text" class="field" value="" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Email:</td>
<td><input name="email" type="text" class="field" value="" size="32"> </td>
</tr>
<tr valign="baseline">
<td align="right" nowrap><span class="style1">Dirección de entrega:<br>
</span>importante ingresar completa </td>
<td><textarea name="Direcciondeentrega" cols="32" rows="5" class="field"></textarea> </td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="style1">Codigo Postal:</td>
<td><input name="cp" type="text" class="field" id="cp" size="15"></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#333333" class="style2">Datos de su compra </td>
</tr>
<tr>
<td><table width="95%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td colspan="2">SLIM DATA DE <%=(rsPrecio.Fields.Item("xtipo").Value)%></td>
</tr>
<tr>
<td width="46%">Cantidad:</td>
<td width="54%"><div align="left">
<input name="xcantidad" type="number" class="field" id="xcantidad" size="2" maxlength="2">
</div></td>
</tr>
<tr>
<td>Color:</td>
<td><select name="xcolor" class="field" id="xcolor">
<%
While (NOT rsColores.EOF)
%><option value="<%=(rsColores.Fields.Item("xcolores").Value )%>"><%=(rsColores.Fields.Item("xcolores").Value)% ></option>
<%
rsColores.MoveNext()
Wend
If (rsColores.CursorType > 0) Then
rsColores.MoveFirst
Else
rsColores.Requery
End If
%>
</select></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#333333"><span class="style2">Datos de su tarjeta de crédito </span></td>
</tr>
<tr>
<td><table width="95%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr valign="baseline">
<td colspan="2" align="right" nowrap><SPAN class="style2" id=lblFieldsCompleted>Todos los espacios deben ser completados.</SPAN></td>
</tr>
<tr valign="baseline">
<td width="44%" align="right" nowrap>Nombre como aparece <br>
en su tarjeta crédito:</td>
<td width="56%"><input name="tarjetacreditonombre" type="text" class="field" value="" size="32"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Tipo de tarjeta crédito:</td>
<td><select name="tarjetacreditotipo" class="field">
<option value="" selected>Seleccione</option>
<option value="Visa" >Visa</option>
<option value="MasterCard" >MasterCard</option>
</select> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Número de tarjeta<br>
16 digitos sin espacios:</td>
<td><input name="tarjetacreditonumero" type="text" class="field" value="" size="32" maxlength="16"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Número de validación<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><FONT class=footer style16>Si su tarjeta es Mastercard o Visa proporcione los últimos tres dígitos que aparecen en la parte trasera de su tarjeta, en el panel de firma<BR>
Para tarjetas American Express escriba los 4 dígitos que se encuentran arriba a la derecha del número de su tarjeta</FONT></td>
</tr>
</table></td>
<td><input name="numsecreto" type="text" class="field" id="numsecreto" size="15" maxlength="4"></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Fecha de expiración:</td>
<td><input name="tarjetacreditoexpiracion" type="text" class="field" size="10" maxlength="5">
mm/aa</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Precio Unitario :</td>
<td><span class="style2">$ <%=(rsPrecio.Fields.Item("xprecio").Value)%></span>
<input name="xstatus" type="hidden" id="xstatus" value="Nuevo">
<input name="xprecio" type="hidden" id="xprecio" value="<%= FormatNumber((rsPrecio.Fields.Item("xprecio").Valu e), -1, -2, -2, -2) %>"></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2"><SPAN class="style2" id=lblParagraph2>LA TARJETA DE CREDITO NO SERA CARGADA HASTA DESPUES DE QUE SE HAGA EL ENVIO , PARA CUALQUIER DUDA O ACLARACION LLAMA AL (55)55-25-19-45 EN LA CIUDAD DE MEXICO.</SPAN></td>
</tr>
<tr>
<td colspan="2"><DIV class=blockContent><SPAN id=lblParagraph3>La información de tu Tarjeta de crédito no será almacenada y solo será usada para realizar esta transacción.</SPAN></DIV></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input name="submit" type="submit" class="field" value="Autorizo esta transaccion">
<input type="hidden" name="fechaventa" value="<%=Now()%>" size="32">
<input name="ip" type="hidden" id="ip" value="<% = Request.ServerVariables("REMOTE_ADDR") %>"REMOTE_ADDR")">
</div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</form>
<p> </p>
</div></td>
</tr>
</table></td>
</tr>
</table></TD>
</TR>
</TABLE></td>
</tr>
</table></td>
<td width="87" valign="top"> </td>
</tr>
<tr>
<td valign="top" background="../../recursos/leftFill.gif"> </td>
<td valign="top" bgcolor="282828"><div align="center"><img src="../images/bottom.gif" alt="ibit" width="640" height="40"></div></td>
<td valign="top" background="../../recursos/rightFill.gif"> </td>
</tr>
<tr>
<td valign="top" background="../../recursos/leftFill.gif"> </td>
<td valign="top"> </td>
<td valign="top" background="../../recursos/rightFill.gif"> </td>
</tr>
</table>
<!-- End ImageReady Slices -->
</BODY>
</HTML>
<%
rsVenta.Close()
Set rsVenta = Nothing
%>
<%
rsPrecios.Close()
Set rsPrecios = Nothing
%>
<%
rsColores.Close()
Set rsColores = Nothing
%>
<%
rsPrecio.Close()
Set rsPrecio = Nothing
%>
