errore cdosys

[piccolobill]

Premesso. lo script funziona bene con una altro file sullo steso dominio

in questa pagina invece non ne vuole sapere. Come mai?

<% 
email = request.form("email")
email = replace(email,"'","''")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ="& Server.MapPath("/mdb-database/auriga.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")

Sql = "SELECT * FROM iscritti WHERE email = '" & email & "' " 
rs.Open Sql, conn,3,3 

'verifico che non vi sia lo stesso nome&password 
If Not rs.eof then 
			Nome= rs("Nome")
			email=rs("email")
			Password=rs("password")
			
			'invio mail

			DIM iMsg, Flds, iConf

			Set iMsg = CreateObject("CDO.Message")
			Set iConf = CreateObject("CDO.Configuration")
			Set Flds = iConf.Fields
			
			Flds(cdoSendUsingMethod) = cdoSendUsingPort
			Flds(cdoSMTPServer) = "smtp.aruba.it" 
			Flds(cdoSMTPServerPort) = 25
			Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
			Flds.Update
			
			With iMsg
			   Set .Configuration = iConf
			   .To = email
			   .From = "info@aurigaonline.it"
			   .Sender = "Auriga"
			   .Subject = "Passoword smarrita"
			   .TextBody = "Ciao " & nome & vbCrLf & "Ecco i dati per il login su www.aurigaonline.it:"  & vbCrLf & "Email: " & email & vbCrLf & "Password: " & password
			   .Send
			End With
			
else 
	response.redirect ("../errore.asp?errore=7")
end If 
rs.Close 
Set rs = Nothing 
conn.Close 
Set conn=Nothing

%>

l'errore è

ADODB.Fields error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/sito2/asp/remember.asp, line 27

Come mai?

Grazie

[maximum]

Qual è la linea 27?

[piccolobill]

ho risolto....ho preso un altro cdosys...ora va...ma il mistero rimane...cmw era la linea

Flds(cdoSendUsingMethod) = cdoSendUsingPort