Formularios con ASPEmail
redmax
19 de Noviembre del 2003
Hola.
Habitualmente proceso mis formularios con el tan conocido FormMail.pl pero ahora necesito hacerlo son el ASPEmail de Persits.
Les pego el archivo que estoy intentando usar, y que no me funciona, para procesar el formulario que esta en esta pagina:
http://www.turismolatino.com.uy/testimonios.htm
Aca va el archivo testimonios.asp:
<%
nombre = Request.Form("nombre")
empresa = Request.Form("empresa")
domicilio = Request.Form("domicilio")
telefono = Request.Form("telefono")
fax = Request.Form("fax")
email = Request.Form("email")
testimonio = Request.Form("testimonio")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "correo.easymail.net.uy"
Mail.From = Mail.EncodeHeader(email)
Mail.FromName = Mail.EncodeHeader(nombre)
Mail.AddAddress "[email protected]"
Mail.Subject = "Testimonio"
Mail.IsHTML = True
Mail.Body = "<HTML>
<BODY>
<p>
<font face=arial size=2>
Enviado el "& Now() &"<br>
De: "&email&"<br>
Nombre: "&nombre&"<br>
Empresa: "&empresa&"<br>
Domicilio: "&domicilio&"<br>
Teléfono: "&telefono&"<br>
Fax: "&fax&"<br>
Correo: "&email&"<br>
Testimonio: "&testimonio&"<br>
</p>
</font>
</BODY>
</HTML>"
Mail.ContentTransferEncoding = "Quoted-Printable"
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If
Set Mail = Nothing
Response.redirect = ./mgracias.htm
%>
Gracias a todos los que me puedan ayudar.
Salduos,
Habitualmente proceso mis formularios con el tan conocido FormMail.pl pero ahora necesito hacerlo son el ASPEmail de Persits.
Les pego el archivo que estoy intentando usar, y que no me funciona, para procesar el formulario que esta en esta pagina:
http://www.turismolatino.com.uy/testimonios.htm
Aca va el archivo testimonios.asp:
<%
nombre = Request.Form("nombre")
empresa = Request.Form("empresa")
domicilio = Request.Form("domicilio")
telefono = Request.Form("telefono")
fax = Request.Form("fax")
email = Request.Form("email")
testimonio = Request.Form("testimonio")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "correo.easymail.net.uy"
Mail.From = Mail.EncodeHeader(email)
Mail.FromName = Mail.EncodeHeader(nombre)
Mail.AddAddress "[email protected]"
Mail.Subject = "Testimonio"
Mail.IsHTML = True
Mail.Body = "<HTML>
<BODY>
<p>
<font face=arial size=2>
Enviado el "& Now() &"<br>
De: "&email&"<br>
Nombre: "&nombre&"<br>
Empresa: "&empresa&"<br>
Domicilio: "&domicilio&"<br>
Teléfono: "&telefono&"<br>
Fax: "&fax&"<br>
Correo: "&email&"<br>
Testimonio: "&testimonio&"<br>
</p>
</font>
</BODY>
</HTML>"
Mail.ContentTransferEncoding = "Quoted-Printable"
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If
Set Mail = Nothing
Response.redirect = ./mgracias.htm
%>
Gracias a todos los que me puedan ayudar.
Salduos,