<%
strconn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("Db\ManualiLogin.mdb")
'apertura database e recordset
set objconn=Server.createobject("adodb.Connection")
set objrs=Server.createobject("adodb.recordset")

'recupero parametri dal form
mail=request.form("email")


'verifico che sia un cliente
objconn.open strconn


strsql= "Select top 1 * from Clienti where Email='" &mail& "'"

objrs.open strsql,objconn

If objrs.eof And objrs.bof Then

response.redirect("RichiestaPassErr.asp?Errore=1")

Else
Mittente="mail@dominio.it"
MailDestinatario=objrs.fields(1)
Oggetto="Invio Nome Utente e Password"
Password=objrs.fields(2)
Testo="Password: "&Password&""


'Invio della mail con CDOSYS
Dim objmail
Set objMail = Server.CreateObject("CDO.Message")
objMail.From= Mittente
objMail.To= MailDestinatario
objMail.Subject= Oggetto
objMail.TextBody= Testo
objMail.send()

Set objMail = nothing
Set Config = Nothing
Set Fields = Nothing


objrs.close
If Err <> 0 Then
Errore=Err.Description
Response.redirect("RichiestaPassErr.asp?Errore")
else
response.redirect("RichiestaPassSuccess.htm")
End If
End if

objconn.close

%>

mi da questo errore:

CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/manuali/RichiestaPass2.asp, line 43 'su objMail.send()'

Nel server è installaro windows 2003 e dovrebbe supportare CDOSYS.

Dove sbaglio?