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