Haciendo un "Recomendar a un amigo" en ASP

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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>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. Te esperamos!</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>
<%=tunombre%>: tu amigo <%=sunombre%> recibirá en su email <%=suemail%> tu recomendación.
Puedes cerrar esta ventana.
</body>
</html>

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

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Programador Members Profile Send Private Message Find Members Posts Add to Buddy List Expert@ Joined: 09 Mayo 2009 Location: San Pedro Alc. Status: Offline Points: 54	Post Options Post Reply Quote Programador Report Post Thanks(0) Quote Reply Topic: Haciendo un "Recomendar a un amigo" en ASP 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.

Sponsored Links