Problema invio email in "segnala notizia ad un amico"

[Roby140569]

Ho creato uno script per segnalare una notizia di un sito "ad un amico"... funzionava, ma devo aver fatto qualche modifica e non mi funziona più, nel senso che non parte l'email.

Questo è il form:

<form method="post" name="emailCDO">
E-mail del tuo amico:
<input name="e-mail">

Tuo nome:
<input name="fromName" >

Tua e-mail:
<input name="from">

Testo:
<textarea name="Text" rows="4" cols="30" textarea>


<input type="hidden" name="url" value="<%=Request.ServerVariables("HTTP_REFERER")%>">
<input type="submit" value="Invia">
</form>

Questo è il codice per inviare l'email:

<%

if len(Request.Form)>0 then
Set objMail = Server.CreateObject("CDONTS.NewMail")
strFrom = request("fromName") & "<" &_
request("from") &">"
strUrl = request("url")
link = strUrl
strTxt = request("Text") & VbcrLf & _
"" & strUrl	
objMail.From = strFrom
objMail.Body = strTxt
objMail.To = Request("e-mail")
objMail.Subject = "Ti segnalo questa notizia"
objMail.Send
set objMail = nothing
	
Response.Write("<p align='center'>SEGNALAZIONE INVIATA CON SUCCESSO</p>
")
Response.Write("<p align='center'>Per tornare alla news che stavi leggendo, clicca <a href=")
Response.Write(link)
Response.Write(">qui</a>.</p>")
		
end if

%>

Cosa sbaglio?