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.

recomendar.asp

<% if request.querystring("accion") = "" then %>

<% 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 & «:
»

       mensaje = mensaje & n_remitente & » te recomienda que visites » & nombre_del_sitio & «.
»

       mensaje = mensaje & «Puedes verlo en » & url & «

Saludos!»

       ‘ 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 «El mensaje ha sido enviado.
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.
»

       response.write «Pincha aquí para corregir los campos.»

       end if

end if

%>