errore cdosys strano

[piccolobill]

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

ecco lo script

DIM iMsg, Flds, iConf

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

questaè la riga incriminata Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

[wegawhite]

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

Utilizzo lo stesso ma non dà nessun errore!

[piccolobill]

la cosa bella è che anche io utilizzo le stesso su lo stesso diminio...ma quin non mi funziona....come mai?

[Luis33]

Originariamente inviato da piccolobill
la cosa bella è che anche io utilizzo le stesso su lo stesso diminio...ma quin non mi funziona....come mai?

proverei a sentire aruba.it a meno che il problema è su qualche altra parte del tuo code...

[piccolobill]

ti riporto il code, anche perchè l'email su questo dominio funzionano

<% 
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

%>

[Luis33]

non mi pare di vedere errori... prova con un code cdosys alternativo, questo ad esempio

[piccolobill]

ma lo stesso funziona in un altro scripto sullo stesso dominio.

[webteck]

Ciao a tutti

il problema sta nei META relativi al CDO!

prima del codice di invio mail occorre inserire le seguenti 2 righe affinchè funzioni correttamente su aruba





bye

[EmTmE]

OTTIMO PICCOLOBILL


basta inserire



e funzia tutto

[Arkimede]