ho trovato questi 2 simpatici script

HTML

<script language="JavaScript" type="text/javascript">
<!--
function CheckTAFForm(AForm)
{
if (AForm.YourName.value == "")
{
alert("Non hai inserito il tuo nome!");
AForm.YourName.focus();
return false;
}
if (AForm.YourMail.value == "")
{
alert("Non hai inserito il tuo indirizzo e-mail!");
AForm.YourMail.focus();
return false;
}
if (AForm.HisName.value == "")
{
alert("Non hai inserito il nome del tuo amico!");
AForm.HisName.focus();
return false;
}
if (AForm.HisMail.value == "")
{
alert("Non hai inserito l'indirizzo e-mail del tuo amico!");
AForm.HisMail.focus();
return false;
}
AForm.SuggestedURL.value = document.location;
return true;
}
//-->
</script>
<form action="tellafriend.asp" method="post"
onSubmit="return CheckTAFForm(this);" name="TAFForm">
<input type="hidden" name="SuggestedURL" value="">
<table align="center" border="0" cellpadding="2" cellspacing="1">
<tr>
<td colspan="3">
Segnala questa pagina ad un amico/a...
</td>
</tr>
<tr>
<td>Il tuo nome
<input type="text" name="YourName" value=""></td>
<td>Il tuo indirizzo email
<input type="text" name="YourMail" value=""></td>
</tr>
<tr>
<td><input type="text" name="HisName" value="">

Il nome del tuo amico/a</td>
<td><input type="text" name="HisMail" value="">

Il suo indirizzo email</td>
<td rowspan="2" align="center">
<input type="submit" name="TAFSend" value="Invia"></td>
</tr>
</table>
</form>




ASP

<%
' Invia il messaggio di posta elettronica per la selezione
Dim nm
Dim txt
Set nm = Server.CreateObject("CDONTS.NewMail")
nm.From = Trim(Request.Form("YourMail"))
nm.To = Trim(Request.Form("HisMail"))
nm.Subject = "Segnalazione di una pagina"
txt = ""
txt = txt + "Ciao " & Request.Form("HisName") & "," & vbNewLine
txt = txt + " questa email ti è stata inviata da parte del tuo amico " & _
Request.Form("YourName") & " per segnalarti una pagina che potrebbe interessarti." & _
vbNewLine & vbNewLine
txt = txt + "Per visitare la pagina, fai clic sul collegamento seguente" & vbNewLine
txt = txt + Request.Form("SuggestedURL") & vbNewLine & vbNewLine
txt = txt + "Se non è possibile fare clic sul collegamento, seleziona il testo, " & _
"copialo e incollalo nella barra degli indirizzi del tuo browser Internet." & _
vbNewLine
nm.Body = txt
nm.Send
Set nm = Nothing
%>



Il risultato sarebbe proprio quello che cercavo
http://www.videomatto.com/video/vide...ail/stream.htm

ma quando clikko su invia mi restituisce una pagina bianca e ovviamente lemail non mi arriva


Vi prego....nono ne vado più fuori perchè non funziona ?