<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
%>