Ragazzi mi serve un aiuto urgente plese! Ho questo script:

<%@LANGUAGE = VBSCRIPT%>
<%
// Recupero i dati dal modulo
username = Request.Form("username")
password = Request.Form("password")
email = Request.Form("email")
oggetto = Request.Form("oggetto")
messaggio = Request.Form("messaggio")

// Verifico username e password
if ((username <> "xxxxxxxxxx") OR (password <> "xxxxxxxxx")) then
Response.Write("Autorizzazione negata")
Response.End
else

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxxxxxxx.it"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@xxxxxxxxxx"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
objCDOSYSCon.Fields.Update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "info@xxxxxxxxx"
objCDOSYSMail.To = email
objCDOSYSMail.Subject = "News"
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing


Response.Write("Newsletter inviata con successo.")
end if
%>


se alla riga objCDOSYSMail.To = email

metto un indirizzo di posta qualsiasi al posto della variabile la mail viene spedita correttamente. Se invece lascio la variabile email ho l'errore

error '8004020f'


come faccio a risolvere?? Please aiutatemi!