Enviar mensajes con ASPMail

Añade Tu Web Al Directorio de NocionDigital.com

Este pequeño código permite enviar correos desde la web usando ASPMail.

_{<%
texto=<"html>" &_
<"body>" &_
"Selecciona tus opciones: <BR>" &_
"<form action=""http://www.tu_servidor.com/recibir_opciones.asp"" method=""post"">" &_
"<input type=""checkbox"" name=""opcion1"" value=""1""> Opción 1 <BR>" &_
"<input type=""checkbox"" name=""opcion2"" value=""1""> Opción 2 <BR>" &_
"<input type=""Submit"" Value=""Enviar""><BR>" &_
"</form>" &_
"</body></html>"
Set Mailer=Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName= "TU SITIO"
Mailer.FromAddress= "tu_email@tu_servidor.com"
Mailer.RemoteHost= "smtp.tu_servidor.com"
Mailer.AddRecipient= "receptor@su_server.com"
Mailer.Subject= "Selecciona tus opciones"
Mailer.ContentType="text/html"
Mailer.Bodytext=texto
If Miler.sendMail then
response.write "Email enviado"
Else
response.write "Error: <BR>" & mailer.response
End if
Set Mailer=nothing
%>}