<b>Segnala questa pagina ad un amico</b><br />
<form method="post">
E-mail del tuo amico: <input name="e-mail"><br> 
Tuo nome: <input name="fromName"><br> 
Tua e-mail: <input name="from"><br> 
Testo: <textarea name="Text></textarea><br> 
<input type="hidden" name="url" value="<%=Request.ServerVariables("HTTP_REFERER")%>"> 
<input type="submit">
</form>
<%
 if len(Request.Form)>0 then

   Set objMail = Server.CreateObject("CDONTS.NewMail")

   strFrom = request("fromName") & "<" &_
             request("from") &">"

   strUrl = request("url")

   strTxt = request("Text") & VbcrLf & _
            "--" & strUrl

   objMail.From = strFrom
   objMail.Body = strTxt
   objMail.To = Request("e-mail")
   objMail.Subject = "Ti segnalo questo sito!"
   objMail.Send
   set objMail = nothing

   Response.write "<p>Segnalazione effettuata con successo!</p>"

 end if
%>