<%
if Request.Form("Enviar") = "Enviar" then
If request.form("Txt_Telefono")<> "" then
' Recuadro de mensaje
a="Solicitud de Contacto en Tierraaerobica.Com"
a= a & ""
a= a & ""
a= a & ""
a= a & "
Muchas "
a= a & "Gracias por Elegirnos "
a= a & " "
a= a & " "
a= a & "Le recordamos que sus datos ingresados fueron: "
a= a & " "
a= a & "Nombre: " & request.form("Txt_Nombre") & " "
a= a & " "
a= a & "Mail: " & request.form("Txt_Mail_Ingresado") & " "
a= a & " "
a= a & "Telefono: " & request.form("Txt_Telefono") & " "
a= a & " "
a= a & "Mensaje: " & request.form("Txt_Mensaje") & " "
a= a & " "
a= a & " "
a= a & " Tierra Aerobica "
a= a & "Tierraaerobica "
a= a & "www.Tierraaerobica.com "
a= a & "
"
a= a & "
"
a= a & ""
a= a & ""
body= a
'Response.Write body
' ---Enviamos el correo con los datos----
'Set Mail = Server.CreateObject ("CDONTS.NewMail")
'Mail.From = "tierraaerobica@ciudad.com.ar"
'Mail.To = "tierraaerobica@ciudad.com.ar"
'Mail.Subject = "Solicitud de Contacto en Tierraaerobica.Com"
'Mail.MailFormat = 0
'Mail.BodyFormat = 0
'Mail ("Content-type")="Text/Html"
'Mail.Body = body
'Mail.Send
'Set Mail = Nothing
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.tierraaerobica.com" ' Specify a valid SMTP server
Mail.From = "ventas@tierraaerobica.com"
Mail.FromName = "Consulta Web Site Tierra Aerobica"
Mail.Username = "ventas@tierraaerobica.com"
Mail.Password = "ventas"
Mail.AddAddress "tierraaerobica@ciudad.com.ar"
Mail.AddAddress "ventas@tierraaerobica.com"
Mail.AddAddress Request.form("txt_mail_ingresado")
'podes poner la cantidad de destinatarios que quieras
Mail.AddReplyTo "tierraaerobica@ciudad.com.ar"
'si tu formulario tiene un campo llamado email, toma el email
'de la persona y le responde ahi.
'Mail.AddReplyTo "ventas@tuempresa.com"
'que responda a ese email fijo
'Mail.Subject = request.querystring("asunto")
'tu formulario debe terner el campo asunto, sino le ponemos uno fijo
Mail.Subject = "Solicitud de Contacto en Tierraaerobica.Com"
Mail.IsHTML = True
Mail.Body = body
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>
<%
end if
end if
%>
contactos.gif