Haciendo un “Recomendar a un amigo” en ASP

El ejemplo que vamos a ver a continuación consta simplemente de un formulario y de un componente encargado del envio de emails, en este caso utilizaremos el ya recomendado AspEmail.

Formulario

El formulario contiene 4 campos, los cuales se completarán con los datos (nombre y email) de las dos personas:

Tu nombre:

Tu Email:

Nombre de tu amigo:

Email de tu amigo:

El código del formulario es:

<form method="POST"
action="recomendar.asp"
target="_blank">
<p><strong><font face="Verdana" size="1">Tu nombre:<br>
<input type="text" name="tunombre" size="20"><br>
Tu Email:<br>
<input type="text" name="tuemail" size="20"><br>
Nombre de tu amigo:<br>
<input type="text" name="sunombre" size="20"><br>
Email de tu amigo:<br>
<input type="text" name="suemail" size="20"><br>
</font></strong><input type="submit" value="Recomendar" name="B1"></p>
</form>

Recomendar.asp

El script de ASP de recomendar.asp es sin duda una sencilla aplicación para enviar emails:

<%
‘Recojemos los datos del formulario
tunombre=Request.Form("tunombre")
tuemail=Request.Form("tuemail")
sunombre=Request.Form("sunombre")
suemail=Request.Form("suemail")

‘Especificamos el servidor SMPT del correo y creamos el objeto
strHost = "servmail.tusitio.com"
Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = strHost

Mail.From = "[email protected]"
Mail.FromName = "WebExperto.com"
Mail.AddAddress suemail

‘Asunto del mensaje
Mail.Subject = "Un amigo te recomienda WebExperto.com"
‘Cuerpo del mensaje en HTML
Mail.IsHTML = True
Mail.Body = "<HTML><BODY><p><font face=verdana size=2>Hola! Tu amigo "&tunombre&" ("&tuemail&") recomienda que ingreses a <a href=’http://www.webexperto.com’>www.webexperto.com</a>, un sitio que posee contenido de utilidad para webmasters.<br><br>Te esperamos!</p></font></BODY></HTML>"
strErr = ""
bSuccess = False
On Error Resume Next ‘ catch errors
Mail.Send ‘ send message
If Err <> 0 Then ‘ error occurred
strErr = Err.Description
else
bSuccess = True
End If
%>
<html>
<head>
<title>Recomendar a un amigo</title>
</head>
<body>
<p><font face=arial size=2><%=tunombre%>: tu amigo <%=sunombre%> recibirá en su email <%=suemail%> tu recomendación.</font></p>
<p><font face=arial size=2>Puedes cerrar esta ventana.</font></p>
</body>
</html>

Solo resta modificar el mensaje que se enviará en email y realizar una página de confirmación dentro de recomendar.asp.

Deja un comentario