Vida Una Homepage
Forum Home Forum Home > Programación > Códigos ASP y ASP.NET
  New Posts New Posts RSS Feed - Haciendo un "Recomendar a un amigo" en ASP
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


Haciendo un "Recomendar a un amigo" en ASP

 Post Reply Post Reply
Author
Message
Programador View Drop Down
Expert@
Expert@
Avatar

Joined: 09 Mayo 2009
Location: San Pedro Alc.
Status: Offline
Points: 54
Post Options Post Options   Thanks (0) Thanks(0)   Quote Programador Quote  Post ReplyReply Direct Link To This Post 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.
Back to Top
Sponsored Links


Back to Top
 Post Reply Post Reply

Forum Jump Forum Permissions View Drop Down



This page was generated in 0.125 seconds.