salve ho un pagina d contatto dove passo i valori alla pagina per mandare la mail ma m da questo errore

CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/puntograph/include/sendmail.inc, line 11


questo è il codice della pagina

<%

Set objCDO = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With objCDO
Set .Configuration = iConf
.To = mailsito
.From = request.querystring("email")
.Subject = request.querystring("oggetto")
.TextBody = request.querystring("messaggio")
.Send ()
End With

Set objCDO = Nothing

%> in send o metto le () sensa spazio o lo toglo mi da problemi ho un'altro script su un sito diverso dove send è senza parentesi e m manda la mail cosa può essere?

io ho usato questo script
http://www.aspitalia.com/liste/usag/script.aspx?ID=250&Search=cdo

e qui non ci sono.

ho cambiato lo script cosi

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for

Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type

Library" -->
<%
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'=============================================================

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo,

browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email

invioA = mailsito

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = request.form("email")

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " &

Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "mailhost.battagliaweb.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da

utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " &

browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With



%>
Grazie <%=request.querystring("cognome")%> per averci contattato


ma mi da questo errore

error '8004020e'
/puntograph/include/sendmail.inc, line 59

la linea 59 è

Set iMsg = CreateObject("CDO.Message")