Email de un amigo:
Mensaje adjunto con el mail:

<% emaildestino = Trim(Request.Form("emaildes")) el_mensaje = "Estuve viendo las fotos de la fiesta de fulanita. Para llegar a esa pagina, esta es la direccion: www.oocities.org/arifoto." el_mensaje = el_mensaje & "

Tambien te dejó el siguiente mensaje:
" & 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 %>