Sistema de Recomendación en ASP con CDONTS

23/1/04 - 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

%>

Referencia: Disponemos de otro artículo en DesarrolloWeb.com que realiza un script con básicamente la misma funcionalidad, por si interesa ver otro punto de vista.

Autoría, licencia y acciones sobre este artículo

Informe de Eugenia Bahit* Desarrolladora ASP y PHP URL: http://www.cmzk.com.ar Atención: Copyright. Este artículo no se puede reproducir sin la autorización expresa del autor. * Para consultas técnicas utilizar la lista de correo. Versión imprimible del artículo Enviar artículo por e-mail Publicar un comentario del artículo

Comentarios sin revisar

Añadir un comentario del artículo Entre los comentarios no revisados puede haber algunos interesantes que se hayan enviado recientemente.

 Se han encontrado 2 comentarios sin revisar

Ver los comentarios no revisados

Añadir un comentario del artículo

Enlaces:

Maestrosdelweb

  Ir arriba