cdosys errore recupero mail da db

[daduz]

rieccomi con i miei problemi

dopo essermi autenticato dovrei spedire in automatico un file a determinati utenti cosi:

<%
Dim miaMail

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("../mdb-database/consultonline.mdb"))

set rsMUsers = Server.CreateObject("ADODB.recordset")
rsMUsers.Open "SELECT mail FROM archivio WHERE codcli='" & Session("codcli") & "'"
while not rsMUsers.eof

Set MiaMail = Server.CreateObject("CDO.Message")
miaMail.From = "daduz@inwind.it"
MiaMail.To = rsMUsers(0) 'MANDA LA MAIL A TUTTI
'MiaMail.Cc = "ciao@ciao.it"
'MiaMail.Bcc = "ciao@ciao.it"
MiaMail.Subject = "Invio "
MiaMail.TextBody = "Invio "
MiaMail.AddAttachment "prova.zip" ' da sostituire con percorso file
MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()

rsMUsers.movenext
Set miaMail = Nothing
wend

rsMUsers.close
conn.close
%>


ma mi da questo errore:

ADODB.Recordset error '800a0e7d'

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

/consultonline/spedisci_mail.asp, line 23

che sbaglio



alla linea 23 ho :

[daduz]

dimenticavo alla linea 23 ho :

rsMUsers.Open "SELECT mail FROM archivio WHERE codcli='" & Session("codcli") & "'"

[daduz]

ok ho risolto , adesso il probloema che riscontro è nel file da allegare

io metto:
<%

Dim miaMail

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("../mdb-database/consultonline.mdb"))

set rsMUsers = Server.CreateObject("ADODB.recordset")
rsMUsers.Open "SELECT mail FROM archivio WHERE codcli='" & Session("codcli") & "'", conn
while not rsMUsers.eof

Set MiaMail = Server.CreateObject("CDO.Message")
miaMail.From = "daduz@inwind.it"
MiaMail.To = rsMUsers(0) 'MANDA LA MAIL A TUTTI
'MiaMail.Cc = "ciao@ciao.it"
'MiaMail.Bcc = "ciao@ciao.it"
MiaMail.Subject = "Invio "
MiaMail.TextBody = "Invio "
MiaMail.AddAttachment ("../public/doc/" & file)
MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()

rsMUsers.movenext
Set miaMail = Nothing
wend

rsMUsers.close
conn.close

response.write "Mail inviata con successo!"
%>


ma mi da errore:
CDO.Message.1 error '800c000d'

The specified protocol is unknown.

/consultonline/spedisci_mail.asp, line 35



alla linea 35 ho ovviamente :
MiaMail.AddAttachment ("../public/doc/" & file)


:master: