World Data Technology S.A. de C.V.

<%@LANGUAGE="VBSCRIPT"%> <% Dim ruta wImporte=100 Dim ret Dim comtotal, comcurrency ,comaddress, comorder_id, commerchant, comstore, comterm comtotal = wImporte*100 comcurrency = "484" comaddress = "World Data Technology S.A. de C.V." if mid(time,2,1)=":" then complemento="0"+mid(time,1,1)+mid(time,3,2)+mid(time,6,2) Else complemento=mid(time,1,2)+mid(time,4,2)+mid(time,7,2) end if if (mid(date,3,1)="/") And (mid(date,5,1)="/") then 'mes un digito comorder_id =mid(date,6,4)+mid(date,1,2)+"0"+mid(date,4,1)+complemento Elseif mid(date,2,1)="/" and mid(date,5,1)="/" then 'dia un digito comorder_id =mid(date,6,4)+"0"+mid(date,1,1)+mid(date,3,2)+complemento Elseif mid(date,2,1)="/" and mid(date,4,1)="/" then 'mes un digito dia un digito comorder_id =mid(date,7,4)+mid(date,1,2)+mid(date,4,2)+complemento Elseif mid(date,3,1)="/" and mid(date,6,1)="/" then 'normal comorder_id =mid(date,7,4)+mid(date,1,2)+mid(date,4,2)+complemento end if 'comorder_id = mid(date,7,4)+mid(date,4,2)+mid(date,1,2)+mid(time,1,2)+mid(time,4,2)+mid(time,7,2) commerchant = "8242521" comstore = "1234" comterm = "001" Set objPmt = Server.CreateObject("EMSecAsp.SecAsp") ret = objPmt.genDigest(commerchant, comstore, comterm, comtotal, comcurrency, comorder_id) comdigest=ret %>

World Data Technology

Últimas noticias

11/08

Conozca Mifon, el nuevo sistema para hablar por teléfono a través de Internet Ver información.

más

Atención a clientes:

México D.F. 5442 0199

Todo el país:01 800 607 0606

Comprar tarjeta Phoenix Pro $100

La cantidad que se cargará a su tarjeta de crédito en pesos es de : $<%=wImporte%>

Por favor confirme que la cantidad es correcta.

Recuerde deshabilitar el bloqueo de ventanas emergentes.

A continuación se le solicitarán en una página segura los datos de la tarjeta de crédito, si esta es aprobada se le direccionará a la página donde se proporciona el número de PIN que le corresponde.