<html>
<head>
<title>Recomendar un articulo</title>
</head>
<body bgcolor="#C0C0C0" >
<%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 apunte: <br>
<font color="#0000FF"><%=link%></font></u></b></font></DIV>
<DIV ALIGN="center"> </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">
</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 <br>
www.Univercity.cl</font></b></P><P ALIGN="CENTER">
<a href="javascript
:history.back(-2);"" style="color: #000066"><b>Atrás</b></a></p>
<%strHost = "mail.tumail.cl"
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 un apunte"
Mail.Subject = titulo
Mail.IsHTML = True
mensaje="<html><head>"
mensaje=mensaje & "<title>Recomendación</title>"&vbcrlf
mensaje=mensaje & " </head><body><div align=center>"&vbcrlf
mensaje=mensaje & " <center>"&vbcrlf
mensaje=mensaje & " <tr> <td >"&vbcrlf
mensaje=mensaje & " <p align=center><a href=http://www.univercity.cl><br>"&vbcrlf
mensaje=mensaje & " <img border=0 src=http://www.univercity.cl/imagenes/banner1.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/a <font color=#FF0000>"& Request.form("Nombre")&" </font>(<font color=#FF0000><a href=mailto:"&request.form("tuemail")&">"&vbcrlf
mensaje=mensaje & request.form("tuemail")&"</a></font>) <br>"&vbcrlf
mensaje=mensaje & " estuvo en <a href=http://www.univercity.cl>
www.univercity.cl </a> y"&vbcrlf
mensaje=mensaje & " piensa que el Apunte:</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.univercity.cl>
http://www.univercity.cl</a><br>"&vbcrlf
mensaje=mensaje & " Univercity, Acercando la Educación<br> </center</body></html>"&vbcrlf
Mail.Body = mensaje
Mail.Send %>
<%End If%>
</body>
</html>
aqui tienes un ejemplo... los adornos HTML tu sabes como los manejas... el smtp... igual... slds.