Buscar en Asptutor     
Demo Tienda Virtual Tutorcar
 Navegacion->Inicio | Active Server Pages  

La web de los recursos y ejemplos de asp

Versión para imprimir
 

Alojado en:


urbe-networks.com

Recomienda esta pagina a un amigo

Servicios Gratuitos

Articulos relacionados

Utilizar GetRows()

Tienda Virtual - Carrito de compra

Messenger a través de BD en ASP

Miniaplicacion de comercio electronico

Objeto Datagrid de ASP.NET en ASP

Acotación de resultados

Software para ejecutar ASP

El archivo Global.asa

Acotación de resultados

Tutorial de ASPEmail

El Objeto Session

Tienda Virtual - Carrito de compra

Introduccion

Mostrar datos de las ultimas visitas a una página

Componentes ActiveX

Ejemplos de codigo ADO


Enlaces recomendados

 

Tutorial ASP

Un sistema de recomendación
Este articulo ha sido leído 37,868 veces

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>
 

 

 


 

¿Estas empezando y este articulo es muy complejo para tí?
Empieza por el principio, visita Ejemplos Básicos

Puedes obtener un listado completo de todos los artículos y ejemplos de ASP en http://www.asptutor.com/asp/todoslosarticulos.asp
 

Valora este articulo   Malo Excelente  
40 usuarios han valorado este articulo. Valoracion media:

Nota: Para cualquier consulta u opinión sobre este articulo puedes usar los foros

 

 

AspTutor lo hacemos entre todos ¿Como vas a colaborar hoy?


Google

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 

          © 2001-Hasta hoy  Pedro Rufo Martín  contactar