Este sistema permite al usuario enviar desde la web, un e-mail a otra persona, invitándolo a visitar el sitio.
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.
| 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>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 "<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
%>
Compartir en redes sociales
2 comentarios revisados:
Usuarios: 
23 de enero de 2004
Valoración del artículo:
