Códigos ASP y ASP.NET - Haciendo un "Recomendar a un amigo" en ASP

Haciendo un "Recomendar a un amigo" en ASP

Printed From: Vida Una
Category: Programación
Forum Name: Códigos ASP y ASP.NET
Forum Description: Foro dedicado al mundo de la programación en código ASP y ASP.NET. Aquí encontrarás ejemplos y trucos en ASP muy útiles.
URL: https://www.vidauna.com/forum_posts.asp?TID=212
Printed Date: 19 Abril 2024 at 2:16am

Topic: Haciendo un "Recomendar a un amigo" en ASP

Posted By: Programador
Subject: Haciendo un "Recomendar a un amigo" en ASP
Date Posted: 09 Mayo 2009 at 4:49pm

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

formulario.htm:

<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:

<%
'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 = " mailto:no-reply@webexperto.com - no-reply@webexperto.com "
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.