Foro Vida Una : Haciendo un "Recomendar a un amigo" en ASP https://www.vidauna.com/ Wed, 06 May 2026 01:51:31 +0000 Sat, 09 May 2009 16:49:45 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://www.vidauna.com/RSS_post_feed.asp?TID=212 <![CDATA[Foro Vida Una]]> https://www.vidauna.com/images/vidauna_logo.gif https://www.vidauna.com/ <![CDATA[Haciendo un "Recomendar a un amigo" en ASP : El formulario contiene 4 campos,...]]> https://www.vidauna.com/haciendo-un-recomendar-a-un-amigo-en-asp_topic212_post671.html#671 Author: Programador
Subject: 212
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 = "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.
]]> Sat, 09 May 2009 16:49:45 +0000 https://www.vidauna.com/haciendo-un-recomendar-a-un-amigo-en-asp_topic212_post671.html#671