Un sistema de recomendación


http://www.asptutor.com

Un sistema de recomendación

 

¿Habéis probado el sistema de recomendación de ASPtutor.com?

Bien, pues aquí tenéis el código completo de dicho sistema.

Consta de un solo modulo, que se invoca con un link desde cualquier página y muestra un formulario para pedir los datos de recomendación de la página desde la que se invoca.

La página a recomendar la recoge mediante request.servervariables("HTTP_REFERER")

En el código mostrado solo tendréis que variar los datos del servidor de correo usado y variar los textos a enviar y las imágenes de fondo.

Espero que este código os sea de utilidad

 

<html>
<head>
<title>Recomendar un articulo</title>
</head>
<body bgcolor="#99CCFF" >
<%If request.form("enviar") = "" then
link=request.servervariables("HTTP_REFERER")%>

<FORM METHOD="POST" ACTION="recomendar.asp"> 
<TABLE WIDTH="423" BORDER="0" CELLSPACING="1" CELLPADDING="1" 
ALIGN="center" background="images/rayasgrises.gif"> 
<TR> <TD COLSPAN="3" width="415"> 
<DIV ALIGN="center">
<font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<b><u>Vas a recomendar el articulo:&nbsp;<br>
<font color="#0000FF"><%=link%></font></u></b></font></DIV> 
<DIV ALIGN="center">&nbsp;</DIV>
</TD></TR> 
<TR> <TD WIDTH="107"><font size="2" color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif">
Tu nombre:</font></TD><TD WIDTH="4">
<FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
</FONT></TD><TD WIDTH="292"> 
<FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif"> 
<INPUT TYPE="text" NAME="Nombre" SIZE="31"> 
</FONT></TD></TR> <TR> <TD WIDTH="107">
<font size="2" color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif">
Tu e-mail:</font></TD><TD WIDTH="4">
<FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
</FONT></TD><TD WIDTH="292"> 
<FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT TYPE="text" NAME="tuemail" SIZE="31"> 
</FONT></TD></TR> <TR> <TD WIDTH="107">
<font color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif" size="2">
Nombre de tu amigo:</font></TD><TD WIDTH="4" rowspan="2">
<FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
</FONT></TD><TD WIDTH="292" align="left"> 
<input type="text" name="nombreamigo" size="31"></TD></TR> 
<TR> <TD WIDTH="107">
<font size="2" color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif">
E-mail de tu amigo:</font></TD> <TD WIDTH="292" align="left"> 
<FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif"> 
<INPUT TYPE="text" NAME="email1" SIZE="31"> 
</FONT></TD></TR> <TR> <TD WIDTH="107">
<font color="#0000FF">Comentarios:</font></TD>
<TD WIDTH="4"></TD><TD WIDTH="292"> 
<textarea rows="2" name="comentarios" cols="26"></textarea></TD></TR>
<TR> <TD COLSPAN="3" HEIGHT="50" width="415"> <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"> 
&nbsp; 
</FONT></DIV></TD></TR> </TABLE></FORM>
<%End If%> 
<p><%If request.form("enviar") = "SI" then%></p>
<P ALIGN="CENTER"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
Email enviado, gracias por recomendar&nbsp;<br>
www.ASPTutor.com</font></b></P><P ALIGN="CENTER">&nbsp;
<a href="javascript:close();">Cerrar
ventana</a></P>
<%strHost = "mail.xxxxx.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "xxxxx@xxxxx.com"

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 un articulo" 
Mail.Subject = titulo
Mail.IsHTML = True

mensaje="<html><head>"
mensaje=mensaje & "<title>Recomendacion</title>"&vbcrlf
mensaje=mensaje & " </head><body><div align=center>"&vbcrlf
mensaje=mensaje & " <center>"&vbcrlf
mensaje=mensaje & " <table border=0 width=500 background=http://www.tuservidor.com/images/rayasgrises.gif cellpadding=4>"&vbcrlf
mensaje=mensaje & " <tr> <td >"&vbcrlf
mensaje=mensaje & " <p align=center><a href=http://www.asptutor.com><br>"&vbcrlf
mensaje=mensaje & " <img border=0 src=http://www.asptutor.com/images/asptutor468x60.gif width=468 height=60></a></p>"&vbcrlf
mensaje=mensaje & " <p align=center>Saludos <font color=#FF0000>"&request.form("nombreamigo")&"</font></p>"&vbcrlf
mensaje=mensaje & " <p align=left>Tu amigo <font color=#FF0000>"& Request.form("Nombre")&" </font>(<font color=#FF0000><a href=mailto:"&request.form("tuemail")&">"&vbcrlf
mensaje=mensaje & request.form("tuemail")&"</a></font>)&nbsp;<br>"&vbcrlf
mensaje=mensaje & " estuvo en <a href=http://www.asptutor.com>www.asptutor.com&nbsp;</a> y"&vbcrlf
mensaje=mensaje & " piensa que el articulo:</p>"&vbcrlf
mensaje=mensaje & " <p align=center><a href="&Request.form("link")&">"&Request.form("link")&"</a></p>"&vbcrlf
mensaje=mensaje & " <p align=left>contiene información que puede resultarte interesante. Además"&vbcrlf
mensaje=mensaje & " te comenta que:</p>"&vbcrlf
mensaje=mensaje & " <div align=center><center>"&vbcrlf
mensaje=mensaje & " <table border=0 width=90% bgcolor=#FFFFFF>"&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> Mensaje enviado desde <a href=http://www.asptutor.com>http://www.asptutor.com</a><br>"&vbcrlf
mensaje=mensaje & " Todo sobre Active Server Pages y Desarrollo de Aplicaciones Web<br> </center</body></html>"&vbcrlf



Mail.Body = mensaje
Mail.Send %>

<%End If%> 


</body>

</html>