Sistema de Recomendación en ASP con CDONTS

Este sistema permite al usuario enviar desde la web, un e-mail a otra persona, invitándolo a visitar el sitio. Solo requiere un módulo ASP que se encargará de mostrar el formulario de recomendación, enviar el e-mail y devolver un acuse de envío. Os lo pongo a continuación.

Nota: Requiere que tu servidor soporte CDONTS Mail.

recomendar.asp

<!-- formulario de recomendación -->
<% if request.querystring("accion") = "" then
%>
<form method="post" action="recomendar.asp?accion=enviar" name="recomienda">
<b>Recomienda este sitio</b><br><br>
Tu Nombre: <input type="text" name="n_remitente" size="10"><br>
Tu E-mail: <input type="text" name="e_remitente" size="20"><br>
Nombre de tu amigo: <input type="text" name="n_destinatario" size="10"><br>
E-mail de tu amigo: <input type="text" name="e_destinatario" size="20"><br><br>
<input type="submit" value="Recomendar">
</form>

<!-- envío del formulario y acuse de envío o información de errores -->
<%
elseif request.querystring("accion") = "enviar" then

' recojo las variables que vienen desde el formulario
n_destinatario = request.form("n_destinatario")
e_destinatario = request.form("e_destinatario")
n_remitente = request.form("n_remitente")
e_remitente = request.form("e_remitente")

       ' si los campos no están vacíos
       if n_destinatario <> "" and e_destinatario <> "" and n_remitente <> "" and e_remitente <> "" then

       ' indica la url de tu sitio
       url = "http://www.tusitio.com"
       ' indica el nombre de tu sitio
       nombre_del_sitio = "Tu Sitio"
       ' indica el asunto del mensaje
       asunto = n_remitente & " te recomienda un sitio"

       ' redacta el mensaje
       mensaje = "Hola " & n_destinatario & ":<br>"
       mensaje = mensaje & n_remitente & " te recomienda que visites <b>" & nombre_del_sitio & "</b>.<br>"
       mensaje = mensaje & "Puedes verlo en <a href='" & url & "'>" & url & "</a><br><br>Salu2!"

       ' comienza envío
       Set envio = Server.CreateObject ("CDONTS.NewMail")

       ' indica que el e-mail es en formato HTML
       envio.BodyFormat = 0
       envio.MailFormat = 0

       ' envía el mensaje
       envio.Send e_remitente, e_destinatario, asunto, mensaje
       Set envio = Nothing

       ' Informa al usuario que se ha enviado el mensaje
       reponse.write "<b>El mensaje ha sido enviado</b>.<br>Gracias por recomendarnos!"

       ' si existen campos vacíos, envía un mensaje de error
       else
       response.write "Por favor, es necesario que completes todos los campos.<br>"
       response.write "<a href='recomendar.asp'>Pincha aquí</a> para corregir los campos."
       end if

end if
%>

Espero que os sea de utilidad.