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.