ho questo form mail su aruba che non funziona , da questo errore:

ADODB.Fields error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/contatta.asp, line 28

-----questa la parte di codice:------
<%
if request.Form("btn")="contatta" AND request.Form("privacy") <> 0 then


DIM objMail, Flds, iConf

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

Flds(cdoSendUsingMethod) = 2
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = 0
Flds.Update


body = ""
body = body & "Nome: <b>"&request.Form("nome")&"</b><br>"
body = body & "Cognome: <b>"&request.Form("cognome")&"</b><br>"
body = body & "Indirizzo: <b>"&request.Form("indirizzo")&"</b><br>"
body = body & "CAP, Città e Provincia: <b>"&request.Form("citta")&"</b><br>"
body = body & "Telefono: <b>"&request.Form("telefono")&"</b><br>"
body = body & "EMail: <b>"&request.Form("email")&"</b><br>"
body = body & "Messaggio: <br><b>"&request.Form("messaggio")&"</b><br><br>"

With objMail
.From = request.Form("email")
.To = request.Form("destinatario")
.Subject = "Richiesta informazioni"
.HTMLBody = body
.Send
End With

Set objMail = Nothing

response.Redirect("contatta.asp")
end if
%>

---questa la parte inizio form---

<form action="contatta.asp?" method="post" name="Form" onSubmit="return send(this)">
<input type="hidden" name="destinatario" value="info@miosito.it" />


---------
la riga 28 è quella con:
Flds(cdoSendUsingMethod) = 2

grazie per la collaborazione

Grazie per la risposta ma ho risolto,
mancava questo:

invioDa = "mail@dominiosito.it"

.Sender = invioDa

quindi diventa così:
With objMail
.From = request.Form("email")
.To = request.Form("destinatario")
.Sender = invioDa
.Subject = "Richiesta informazioni"
.HTMLBody = body
.Send
End With

poi su un altro forum parlavano di metatag senza però indicare quali , ho messo questi che avevo preso da un form funzionante:

<!--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" -->

ora funziona
grazie ancora per l'aiuto