<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if Request.Form("Hidden_Presionado")= "1" then
Set Mail = Server.CreateObject("Persits.MailSender")
/////////////////////////////////////////////////
'En esta lina de abajo pa le nombre del Mail, puede ser
mail.zooguadalajara.com.mx
Mail.Host = "mail.zooguadalajara.com.mx"
Mail.From = Request.Form("Txt_Email")
Mail.FromName = Request.Form("Txt_NombreSolicita")
Mail.Subject = " Forma de Registro - Zoológico"
Mail.IsHTML = False
vBody = "#################### ZOOLOGICO
#################"&vbCrLf
vBody = vBody&"#################### Datos Personales
#################"&vbCrLf&vbCrLf
vBody = vBody&"Nombre de quien solicita :
"&Request.Form("Txt_NombreSolicita")&vbCrLf
vBody = vBody&"Apellidos de quien solicita :
"&Request.Form("Txt_Apellidos")&vbCrLf
vBody = vBody&"Dirección Email :
"&Request.Form("Txt_Email")&vbCrLf
vBody = vBody&"Domicilio :
"&Request.Form("Txt_Domicilio")&vbCrLf
vBody = vBody&"Docigo Postal :
"&Request.Form("Txt_CodigoPostal")&vbCrLf
vBody = vBody&"Ciudad : "&Request.Form("Txt_Ciudad")&vbCrLf
vBody = vBody&"Pais : "&Request.Form("Txt_Pais")&vbCrLf
vBody = vBody&"Telefono :
"&Request.Form("Txt_NumTelefono")&vbCrLf
vBody = vBody&"Comenetarios :
"&Request.Form("Txt_Comentarios")&vbCrLf
Mail.Body = vBody
'Las cuentas de Correo debde de ser las de prodigy
/////////////////////////////////////////////////////////
'Esta Linea es para mandarle un Mail de la Forma
Mail.AddAddress "rbautista@zooguadalajara.com.mx"
/////////////////////////////////////////////////////////
'Esta Linea es para mandarle una Copia un Mail Mas
Mail.AddAddress "zoogdl@zooguadalajara.com.mx"
Mail.Send
Response.redirect"RegistroOk.asp"
End IF
%>
Untitled Document