Este es un tema conocido para los que navegan por internet. Esos formularios para recomendar el sitio o la página a
un amigo son algo comun hoy en dia. Bueno, les explicaré como hacer uno de esos mediante ASP de una manera muy simple.
El único problema que trae aparejado esto, es que debemos tener instalado el componente que utilizaremos.
Yo voy a hacer el ejemplo con el componente CDONTS, el cual viene en el IIS, con el Windows NT o Windows 2000 (y es el más popular).
¿Que quise decir con esto? Quise decir que los que utilizan el PWS no podrán usarlo. La solución para los que usan PWS,
es bajarse cualquier otro componente de internet para envios de mail, instalarlo en su PWS y registrar los DLL.
Bueno, vamos directo al código, para ver como se contruye este conocido tema. Primero el ejemplo funcionando, y luego el Script.
avisaramigo.asp
<FORM METHOD="POST" ACTION="avisaramigo.asp">
Email de un amigo: <INPUT NAME="emaildestino" TYPE="text" SIZE="20" MAXLENGTH="50"><BR>
Mensaje adjunto con el mail:<BR> <TEXTAREA NAME="el_mensaje" ROWS="4" COLS="30"></TEXTAREA><BR>
<INPUT TYPE="Submit" VALUE="Enviar la noticia a un amigo"> </FORM>
<%
emaildestino = Trim(Request.Form("emaildes"))
el_mensaje = "Un amigo conocio el sitio SoloASP.com.ar, le parecio interesante y quiere que lo conoscas."
el_mensaje = el_mensaje & "<BR><BR>Tambien te dejó el siguiente mensaje:<BR>" & Trim(Request.Form("el_mensaje"))
Set Mail = Server.CreateObject ("CDONTS.Newmail")
Mail.From = "soloasp@soloasp.com.ar"
Mail.To = emaildestino
Mail.Subject = "Sitio Recomendado"
Mail.Body = el_mensaje
Mail.Send
Set Mail = Nothing
%>
