<%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 "Renovaciones", Base, adOpenStatic, adCmdTable
Tabla.AddNew
Tabla("FECHA_RENOVACION")=DATE
Tabla("COD_SUSCRIPTOR")=REQUEST.FORM("COD_SUSCRIPTOR")
Tabla("EMAIL")=REQUEST.FORM("EMAIL")
Tabla("COD_RENOVACION")=Session.SessionID
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")
IF Request.Form ("COD_SUSCRIPTOR")="" OR Request.Form ("EMAIL")="" OR Request.Form ("MODOPAGO")="" THEN
Tabla.CancelUpdate%>
<%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 de la renovació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 = "Renovaciones CazaySafaris.com"
Mailer.FromAddress = "cazaysafaris@cazaysafaris.com"
Mailer.AddRecipient "Renovaciones","suscripciones@cazaysafaris.com"
Mailer.AddBCC "Renovaciones","cazaysafaris-suscripciones@arrakis.es"
Mailer.Subject = "Renovación Caza y Safaris"
Mailer.BodyText = "RESUMEN DE RENOVACIÓN EN LA WEB:"&VbCrLf&_
"-------------------------------------------------------------"&VbCrLf&_
"Número de socio: "&Request.form("COD_SUSCRIPTOR")&VbCrLf&_
"EMail: "&Request.form("EMAIL")&VbCrLf&_
"-------------------------------------------------------------"&VbCrLf&_
"Número de Renovación: "&Session.SessionID&VbCrLf&_
"Medio de Pago: "&MODOPAGO_DETALLE&VbCrLf&_
"-------------------------------------------------------------"
if Mailer.SendMail then
'ENVIO DE EMAIL AL SOCIO
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.Timeout = 45
Mailer.CharSet=2
Mailer.RemoteHost = "mail.cazaysafaris.com"
Mailer.FromName = "Renovaciones CazaySafaris.com"
Mailer.FromAddress = "cazaysafaris@cazaysafaris.com"
Mailer.AddRecipient Request.form("COD_SUSCRIPTOR"), Request.form("EMAIL")
Mailer.Subject = "Renovación CAZA y SAFARIS"
Mailer.BodyText = "RESUMEN DE LA RENOVACIÓN EN LA WEB:"&VbCrLf&_
"-------------------------------------------------------------"&VbCrLf&_
"Número de Socio: "&Request.form("COD_SUSCRIPTOR")&VbCrLf&_
"EMail: "&Request.form("EMAIL")&VbCrLf&_
"-------------------------------------------------------------"&VbCrLf&_
"Número de Renovación: "&Session.SessionID&VbCrLf&_
"Medio de Pago: "&MODOPAGO_DETALLE&VbCrLf&_
"-------------------------------------------------------------"&VbCrLf&_
"Nos pondremos en contacto próximamente con usted para confirmarle su renovación."&VbCrLf&_
"Un cordial saludo,"
if Mailer.SendMail then
%>
Su solicitud ha sido recibida correctamente. Su número de renovacion es: <%=Session.SessionID%>
Muchas Gracias
<%END IF
END IF
END IF
Tabla.Close
Base.Close
Set Tabla = Nothing
Set Base = Nothing
ELSE%>
