Este sistema de recomendación está en ASPEmail y funciona a la perfección.
Aquí os dejo el código que está compuesto de la página recomendar.asp y la página desde la que procede y donde el usuario hizo clic en RECOMENDAR o ENVIAR ARTÍCULO A UN AMIGO. espero que os sirva
:__________________________________________________ ______
<!--aquí iría toda la cabecera de tu página web el body y todo el diseño, solo debes incluir el dódigo siguiente en una tabla de 500 pixeles y modificar los datos de la cuenta de correo y smtp--!>
<%If request.form("enviar") = "" then
link=request.form("link")%>
<FORM METHOD="POST" ACTION="recomendar.asp">
<TABLE WIDTH="461" BORDER="0" CELLSPACING="1" CELLPADDING="1"
ALIGN="center">
<TR> <TD COLSPAN="3" width="453" class="D_textonegro_12">
<DIV ALIGN="center"> </DIV>
</TD></TR>
<TR> <TD WIDTH="130" class="D_textonegro_12"><b>
Tu nombre:</b></TD><TD WIDTH="17" class="D_textonegro_12">
<FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
</FONT></TD><TD WIDTH="294" class="D_textonegro_12">
<FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT TYPE="text" NAME="Nombre" SIZE="31" style="border: 1 solid #000000">
</FONT></TD></TR> <TR> <TD WIDTH="130" class="D_textonegro_12">
<b>
Tu e-mail:</b></TD><TD WIDTH="17" class="D_textonegro_12">
<FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
</FONT></TD><TD WIDTH="294" class="D_textonegro_12">
<FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT TYPE="text" NAME="tuemail" SIZE="31" style="border: 1 solid #000000">
</FONT></TD></TR> <TR> <TD WIDTH="130" class="D_textonegro_12">
<b>
Nombre de tu amigo:</b></TD><TD WIDTH="17" rowspan="2" class="D_textonegro_12">
<FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
</FONT></TD><TD WIDTH="294" align="left" class="D_textonegro_12">
<input type="text" name="nombreamigo" size="31" style="border: 1 solid #000000"></TD></TR>
<TR> <TD WIDTH="130" class="D_textonegro_12">
<b>
E-mail de tu amigo:</b></TD> <TD WIDTH="294" align="left" class="D_textonegro_12">
<FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT TYPE="text" NAME="email1" SIZE="31" style="border: 1 solid #000000">
</FONT></TD></TR> <TR> <TD WIDTH="130" class="D_textonegro_12">
<b>Comentarios:</b></TD>
<TD WIDTH="17" class="D_textonegro_12"></TD><TD WIDTH="294" class="D_textonegro_12">
<textarea rows="3" name="comentarios" cols="26" style="border: 1 solid #000000"></textarea></TD></TR>
<TR> <TD COLSPAN="3" HEIGHT="50" width="453" class="D_textonegro_12"> <DIV ALIGN="center">
<FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
<input type="hidden" name="enviar" size="2" value="SI">
<input type="hidden" name="link" size="20" value="<%=link%>">
<INPUT TYPE="submit" NAME="sub" VALUE="Recomendar" style="background-color: #3399CC; font-size: 10 pt; font-family: Arial; color: #FFFFFF; font-weight: bold; border: 1 solid #000000">
</FONT></DIV></TD></TR> </TABLE></FORM>
<%End If%>
<p><%If request.form("enviar") = "SI" then%></p>
<!--aquí tienes que escribir el código html de respuesta al envío, algo como E-MAIL ENVIADO CORRECTAMENTE y algo de publicidad, NO PUEDE FALTAR--!>
<P ALIGN="CENTER"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
E-mail enviado, gracias por recomendar <br>
TU PÁGINA WEB</font></b></P><P ALIGN="CENTER">
<a href="javascript:close();">Cerrar
ventana</a></P>
<!--aquí tienes que configurar los datos de tu web, smtp, correo, carpeta del banner--!>
<%strHost = "smtp.DE-TU-WEB.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "[email protected]"
Mail.FromName = request.form("nombre")
Mail.AddReplyTo request.form("tuemail")
'response.write request.form("email1")
Mail.AddAddress request.form("email1")
titulo=Request.form("Nombre")&" te recomienda este sitio"
Mail.Subject = titulo
Mail.IsHTML = True
mensaje="<html><head>"
mensaje=mensaje & "<title>ENVIAR A UN AMIGO</title>"&vbcrlf
mensaje=mensaje & " </head><body>"&vbcrlf
mensaje=mensaje & " <table border=0 width=468 cellpadding=4>"&vbcrlf
mensaje=mensaje & " <tr> <td >"&vbcrlf
mensaje=mensaje & " <p align=center><a href=http://www.tu-web.com><br>"&vbcrlf
mensaje=mensaje & " <img border=0 src=http://www.TU-WEB.com/ima/banner.gif width=468 height=60></a></p>"&vbcrlf
mensaje=mensaje & " <p align=center>Saludos <font color=#000000>"&request.form("nombreamigo")&"</font></p>"&vbcrlf
mensaje=mensaje & " <p align=left>Tu amigo <font color=#000000>"& Request.form("Nombre")&" </font>(<font color=#000000><a href=mailto:"&request.form("tuemail")&">"&vbcrlf
mensaje=mensaje & request.form("tuemail")&"</a></font>) <br>"&vbcrlf
mensaje=mensaje & " Estuvo en <a href=http://www.TU-WEB.com>www.TU-WEB.com </a> y"&vbcrlf
mensaje=mensaje & " te envía una invitación para que nos visites:</p>"&vbcrlf
mensaje=mensaje & " <a href="&Request.form("link")&">"&Request.form("link ")&"</a>"&vbcrlf
mensaje=mensaje & " <p align=left>Además te comenta que:</p>"&vbcrlf
mensaje=mensaje & " "&vbcrlf
mensaje=mensaje & " <div align=center><center>"&vbcrlf
mensaje=mensaje & " <table border=0 width=90% >"&vbcrlf
mensaje=mensaje & " <tr> <td >"& Request.form("comentarios")&"</td>"&vbcrlf
mensaje=mensaje & " </tr> </table> </center> </div>"&vbcrlf
mensaje=mensaje & " <center><br>"&vbcrlf
mensaje=mensaje & " <br><font face=Arial size=2>Mensaje enviado desde <a href=http://www.TU-WEB.com target=_blank>http://www.TU-WEB.com</a><br>"&vbcrlf
mensaje=mensaje & " LA TEMÁTICA DE TU WEB</font><br>"&vbcrlf
mensaje=mensaje & " </center></body></html>"&vbcrlf
Mail.Body = mensaje
Mail.Send %>
<%End If%>
<!--todo terminado--!>
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
<!--ahora el código de la página desde la que pulsaste para recomendar, modificalo para selecionar si quieres que se abra en la misma venta, yo lo he puesto en una nueva para que al cerrarla quede en donde estaba antes--!>
<form name="backform" action="http://www.TU-WEB.com/recomendar.asp" method="post" target="_blank">
<a href="javascript:document.backform.submit()" ><b><font color="#3399CC">ENVIAR ESTE ARTÍCULO A UN AMIGO.
</font></b>
</a>
<font color="#3399CC">
<script LANGUAGE="JavaScript"><!--
document.write("<input type=hidden name=link value=" + location.href + " >");
//--></script> </font></form>
