ciao,
sto cercando di adattare uno script per newsletter con allegato che sfruttava CDONTS per passare ad un server che invece utilizza CDOSYS.

Ho già sistemato iscrizione e cancellazione dalla mailing list e mi manca solo l'invio, o meglio l'invio viene eseguito correttamente ma lo script mi restituisce una pagina di errore anziché scrivermi quante email ha inviato in tutto:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'objMail.To'
/news-allega/send.asp, line 24


qualcuno ha un suggerimento?
grazie



################################################## ############

<%
set connection = Server.CreateObject("ADODB.Connection")
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/newsletter.mdb")
Connection.Open Conn_String
Set Recordsx = CreateObject("ADODB.Recordset")
sqltemp = "SELECT * FROM email"
Recordsx.Open sqltemp, Connection,2,3

i=0
Do While not Recordsx.eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.addAttachment(Server.MapPath(request.form( "attachfile")))
objMail.From=request.form("fromName") & "<" & request.form("fromEmail") & ">"
objMail.To=Recordsx("email")
objMail.Subject=request.form("subject")
objMail.textBody=request.form("body") & chr(13) & request.form("ending")
objMail.Send()
Set objMail = nothing
Recordsx.movenext
i=i+1
loop

set rsEmail = nothing

response.write ("<font size=""2"" ace=""arial"">http://<b>Sono state inviate n° " & ... home page</b></font>")
%>