<%@LANGUAGE="VBSCRIPT"%>
<%
if (Request.Form("hidenPresionado") = "1") then
Dim vBody
' ***** Envio del Mail *****
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.ides.com.mx"
Mail.From = Request.Form("Txt_Email")
Mail.FromName = Request.Form("Txt_Nombre")
Mail.Subject = "Forma de Registro - Betanzos"
vBody = "Nombre de la Persona : "&Request.Form("Txt_Nombre")&vbCrLf
vBody = vBody&"Nombre de la Empresa : "&Request.Form("Txt_Empresa")&vbCrLf
vBody = vBody&"Ciudad : "&Request.Form("Txt_Ciudad")&vbCrLf
vBody = vBody&"Pais : "&Request.Form("Txt_Pais")&vbCrLf
vBody = vBody&"E-mail : "&Request.Form("Txt_Email")&vbCrLf&vbCrLf
vBody = vBody&"Comentarios :"&vbCrLf
vBody = vBody&Request.Form("Txt_Comentarios")&bCrLf
Mail.IsHTML = False
Mail.Body = vBody
'Obtiene la direccion de email de la base de datos, es hacia donde van a llegar los datos registrados
Mail.AddAddress "richard@ides.com.mx"
'Mail.AddCC "rommel@ides.com.mx"
' Esto tiene que estar activado tanto para hacer pruebas localmente y ya para Internet
Mail.Send
' ***** Fin del Envio del Mail *****
Call Response.Redirect("ContactoGracias.asp")
End If
%>
