|
|
Cancelación de Inscripción al Boletín de la Guía Turística Chapultepec
<%
Correo=Request.Form("Email")
if Correo="" then
%>
<%
else
Mensaje = "Baja del Boletín de Chapultepec "&now()&"
"
Mensaje = Mensaje & "Correo: "&Correo&"
"
Mensaje = Mensaje & "Nombre: "&Request.Form("Nombre")&"
"
Mensaje = Mensaje & "Motivo: "&Request.Form("Motivo")&"
"
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Baja del Boletín de Chapultepec "&now()
myMail.From="boletin@chapultepec.com.mx"
myMail.To="boletin@chapultepec.com.mx"
myMail.HTMLBody=Mensaje
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
Response.Redirect("index.asp")
end if
%> |
|
|
| |
|
