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: