Para realizar su renovación pulse AQUÍ
<%IF (Request.Form<>"") THEN
' Abrir una conexión con BDatos
SET Base = Server.CreateObject ("ADODB.Connection")
Set Tabla=Server.CreateObject ("ADODB.Recordset")
Base.Open "cysdb"
Tabla.Open "Clientes", Base, adOpenStatic, adCmdTable
Tabla.AddNew
Tabla("ALTA")=DATE
'Tabla("COD_SUSCRIPTOR")=REQUEST.FORM("COD_SUSCRIPTOR")
Tabla("USUARIO")=REQUEST.FORM("USUARIO")
Tabla("CLAVE")=REQUEST.FORM("CLAVE")
Tabla("NOMBRE")=REQUEST.FORM("NOMBRE")
Tabla("APELLIDO1")=REQUEST.FORM("APELLIDO1")
Tabla("APELLIDO2")=REQUEST.FORM("APELLIDO2")
Tabla("DNI")=REQUEST.FORM("DNI")
'Tabla("FNAC")=REQUEST.FORM("FNAC")
Tabla("DOMICILIO")=REQUEST.FORM("DOMICILIO")
Tabla("POBLACION")=REQUEST.FORM("POBLACION")
Tabla("PROVINCIA")=REQUEST.FORM("PROVINCIA")
Tabla("CDPOSTAL")=REQUEST.FORM("CDPOSTAL")
Tabla("PAIS")=REQUEST.FORM("PAIS")
Tabla("TELEFONO")=REQUEST.FORM("TELEFONO")
Tabla("TIPO")=REQUEST.FORM("TIPO")
Tabla("FAX")=REQUEST.FORM("FAX")
Tabla("EMAIL")=REQUEST.FORM("EMAIL")
Tabla("PREGUNTA")=REQUEST.FORM("PREGUNTA")
Tabla("RESPUESTA")=REQUEST.FORM("RESPUESTA")
'Tabla("OBSERVA")=REQUEST.FORM("OBSERVA")
Tabla("INFORMACION")=REQUEST.FORM("INFORMACION")
Tabla("VALIDADO")=REQUEST.FORM("VALIDADO")
Tabla("COD_SUSCRIPCION")=Session.SessionID
Tabla("TIPO_SUSCRIPCION")=SUSCRIPCION
Tabla("COMIENZO")=REQUEST.FORM("COMIENZO")
Tabla("DURACION")=REQUEST.FORM("DURACION")
Tabla("IMPORTE")=PRECIO
Tabla("MODOPAGO")=REQUEST.FORM("MODOPAGO")
Tabla("TITULAR")=REQUEST.FORM("TITULAR")
Tabla("ENTIDAD")=REQUEST.FORM("ENTIDAD")
Tabla("OFICINA")=REQUEST.FORM("OFICINA")
Tabla("DC")=REQUEST.FORM("DC")
Tabla("CUENTA")=REQUEST.FORM("CUENTA")
Tabla("NOMBRETAR")=REQUEST.FORM("NOMBRETAR")
Tabla("TARJETA")=REQUEST.FORM("TARJETA")
Tabla("NUMERO")=REQUEST.FORM("NUMERO")
Tabla("CADUCIDAD")=REQUEST.FORM("CADUCIDAD")
Tabla("COD_SEGURIDAD")=REQUEST.FORM("COD_SEGURIDAD")
IF Request.Form ("NOMBRE")="" OR Request.Form ("DNI")="" OR Request.Form ("APELLIDO1")="" OR Request.Form ("DOMICILIO")="" OR Request.Form ("POBLACION")="" OR Request.Form ("PROVINCIA")="" OR Request.Form ("CDPOSTAL")="" OR Request.Form ("PAIS")="" OR Request.Form ("TELEFONO")="" OR Request.Form ("EMAIL")="" OR Request.Form ("USUARIO")="" OR Request.Form ("CLAVE")="" OR Request.Form ("COMIENZO")="" OR Request.Form ("DURACION")="" OR Request.Form ("MODOPAGO")="" THEN
Tabla.CancelUpdate%>
Datos incompletos
<%ELSE
IF Request.Form ("CLAVE") <> Request.Form ("CLAVECONF") THEN
Tabla.CancelUpdate%>
No coinciden las dos claves
<%ELSE
strSQL = "Select Count(*) AS Contador FROM Clientes WHERE USUARIO='"&Request("USUARIO")&"'"
Set miConexion=Base.Execute(strSQL)
IF miConexion ("Contador")<>0 THEN
Tabla.CancelUpdate%>
El USUARIO elegido ya está registrado.
Retroceda a la pantalla anterior y
registrese con otro nombre de USUARIO.
<%ELSE
Tabla.Update%>
<%VAL_DURACION=Request.form("DURACION")
IF VAL_DURACION="1ES" OR VAL_DURACION="1EU" OR VAL_DURACION="1RM" OR VAL_DURACION="1ED" THEN
DURACION_SUB="1 AÑO"
END IF
IF VAL_DURACION="2ES" OR VAL_DURACION="2EU" OR VAL_DURACION="2RM" THEN
DURACION_SUB="2 AÑOS"
END IF
IF VAL_DURACION="1ES" THEN
PRECIO="50 euros"
END IF
IF VAL_DURACION="1EU" THEN
PRECIO="100 euros"
END IF
IF VAL_DURACION="1RM" THEN
PRECIO="195 euros"
END IF
IF VAL_DURACION="2ES" THEN
PRECIO="100 euros"
END IF
IF VAL_DURACION="2EU" THEN
PRECIO="200 euros"
END IF
IF VAL_DURACION="2RM" THEN
PRECIO="390 euros"
END IF
IF VAL_DURACION="1ED" THEN
PRECIO="25 euros"
END IF
IF VAL_DURACION="1ED" THEN
SUSCRIPCION="EDICION DIGITAL"
END IF
IF VAL_DURACION<>"1ED" THEN
SUSCRIPCION="CLUB CAZAYSAFARIS"
END IF
VAL_MODOPAGO=Request.form("MODOPAGO")
IF VAL_MODOPAGO="DOMICILIACION" THEN
MODOPAGO_DETALLE="Domiciliación bancaria"&VbCrLf&_
"TITULAR: "&Request.form("TITULAR")&VbCrLf&_
"Entidad: XXXX - Oficina: XXXX - DC: XX - c/c: XXXXXXXXXX"
END IF
IF VAL_MODOPAGO="TARJETA" THEN
MODOPAGO_DETALLE="Tarjeta."&VbCrLf&_
"TITULAR: "&Request.form("NOMBRETAR")&VbCrLf&_
"Tipo: "&Request.form("TARJETA")&VbCrLf&_
"Número: XXXX - XXXX - XXXX - XXXX"&VbCrLf&_
"Caducidad: "&Request.form("CADUCIDAD")
END IF
IF VAL_MODOPAGO="TRANSFERENCIA" THEN
MODOPAGO_DETALLE="Transferencia."&VbCrLf&_
"Realizar transferencia por el importe indicado y consignando el número de suscripción a:"&VbCrLf&_
"Cega Multimedia, S.A."&VbCrLf&_
"Banco BBVA"&VbCrLf&_
"C/C.: 0182-0192-73-0201512216"
END IF
'ENVIO DE EMAIL A ADMINISTRACION
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.Timeout = 45
Mailer.CharSet=2
Mailer.RemoteHost = "mail.cazaysafaris.com"
Mailer.FromName = "Suscripciones CazaySafaris.com"
Mailer.FromAddress = "cazaysafaris@cazaysafaris.com"
Mailer.AddRecipient "Suscripciones","suscripciones@cazaysafaris.com"
Mailer.AddBCC "Suscripciones","cazaysafaris@cazaysafaris.com"
Mailer.Subject = "Nueva suscripción en la WEB de CazaySafaris.com"
Mailer.BodyText = "RESUMEN DE LA SUSCRIPCIÓN EN LA WEB:"&VbCrLf&_
"-------------------------------------------------------------"&VbCrLf&_
"Nombre: "&Request.form("NOMBRE")&VbCrLf&_
"Primer Apellido: "&Request.form("APELLIDO1")&VbCrLf&_
"Segundo Apellido: "&Request.form("APELLIDO2")&VbCrLf&_
"Población: "&Request.form("POBLACION")&VbCrLf&_
"Pais: "&Request.form("PAIS")&VbCrLf&_
"Telefono: "&Request.form("TELEFONO")&VbCrLf&_
"EMail: "&Request.form("EMAIL")&VbCrLf&_
"-------------------------------------------------------------"&VbCrLf&_
"Número de Suscripción: "&Session.SessionID&VbCrLf&_
"Tipo de suscripción: "&SUSCRIPCION&VbCrLf&_
"Inicio: "&Request.form("COMIENZO")&VbCrLf&_
"Duración: "&DURACION_SUB&VbCrLf&_
"Precio: "&PRECIO&VbCrLf&_
"Medio de Pago: "&MODOPAGO_DETALLE&VbCrLf&_
"-------------------------------------------------------------"
if Mailer.SendMail then
'ENVIO DE EMAIL AL SUSCRIPTOR
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.Timeout = 45
Mailer.CharSet=2
Mailer.RemoteHost = "mail.cazaysafaris.com"
Mailer.FromName = "Suscripciones CazaySafaris.com"
Mailer.FromAddress = "suscripciones@cazaysafaris.com"
Mailer.AddRecipient Request.form("NOMBRE"), Request.form("EMAIL")
Mailer.Subject = "Suscripción al CLUB CAZA y SAFARIS"
Mailer.BodyText = "RESUMEN DE LA SUSCRIPCIÓN EN LA WEB:"&VbCrLf&_
"-------------------------------------------------------------"&VbCrLf&_
"Nombre: "&Request.form("NOMBRE")&VbCrLf&_
"Primer Apellido: "&Request.form("APELLIDO1")&VbCrLf&_
"Segundo Apellido: "&Request.form("APELLIDO2")&VbCrLf&_
"Población: "&Request.form("POBLACION")&VbCrLf&_
"Pais: "&Request.form("PAIS")&VbCrLf&_
"Telefono: "&Request.form("TELEFONO")&VbCrLf&_
"EMail: "&Request.form("EMAIL")&VbCrLf&_
"-------------------------------------------------------------"&VbCrLf&_
"USUARIO: "&Request.form("USUARIO")&VbCrLf&_
"CLAVE: "&Request.form("CLAVE")&VbCrLf&_
"-------------------------------------------------------------"&VbCrLf&_
"Número de Suscripción: "&Session.SessionID&VbCrLf&_
"Tipo de suscripción: "&SUSCRIPCION&VbCrLf&_
"Inicio: "&Request.form("COMIENZO")&VbCrLf&_
"Duración: "&DURACION_SUB&VbCrLf&_
"Precio: "&PRECIO&VbCrLf&_
"Medio de Pago: "&MODOPAGO_DETALLE&VbCrLf&_
"-------------------------------------------------------------"&VbCrLf&_
"Nos pondremos en contacto próximamente con usted para confirmarle el resultado de la suscripción y activación de acceso."&VbCrLf&_
"Un cordial saludo,"
if Mailer.SendMail then
%>
<%=Session.SessionID%>
<%END IF
END IF
END IF
END IF
END IF
Tabla.Close
Base.Close
Set Tabla = Nothing
Set Base = Nothing
ELSE%>
<%END IF%>
|
