CDO da CDONTS per newsletter

[michmeno]

Buongiorno a tutti,
ho un problema con il nuovo formato CDO: ho cambiato server (sono su 9Net) e il codice che utilizzava CDONTS per la gestione di una newsletter non funziona più. Ho provato a fare delle modifiche ma continuo ad avere errori.
Ecco il vecchio codice:

<%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT Email FROM Mailing ORDER BY Email"
rs.Open strSQL,cn
tipo=request("Tipo")
email=request("Email")
mittente=request("Mittente")
oggetto=request("Oggetto")
if tipo="html" then
do while not rs.eof
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.From=mittente
objMail.To=rs("Email")
objMail.Subject=oggetto
objMail.Body=email
objMail.Send
Set objMail = nothing
rs.movenext
loop
else
do while not rs.eof
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat = 1
objMail.MailFormat = 1
objMail.From=mittente
objMail.To=rs("Email")
objMail.Subject=oggetto
objMail.Body=email
objMail.Send
Set objMail = nothing
rs.movenext
loop
end if
set cn = nothing
set rs = nothing
%>

Grazie per l'aiuto!

[Roby_72]

CDOSYS ha una sintassi diversa.
Cerca nel forum trovi esempi già pronti.

Roby

[michmeno]

come dicevo ho provato a cambiare la sintassi, ho dato un occhiata nel forum e ho provato a sostituire il codice, ma o mi chiede la configurazione activeX o mi dice che non riesce a creare l'oggetto...

[Roby_72]

Ma lo provi in locale o sul server?
In locale devi installarti il componente per provarlo.

Roby

[michmeno]

Io lavoro direttamente sul server...

ho provato a inserire un codice tipo questo per la email testuale

<%
Set rs = CreateObject("ADODB.Recordset")
strSQL="SELECT Email FROM Mailing ORDER BY Email"
rs.Open strSQL,cn
tipo=request("Tipo")
email=request("Email")
mittente=request("Mittente")
oggetto=request("Oggetto")
if tipo="html" then
do while not rs.eof
Set objMail = Server.CreateObject("CDO.NewMail")
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.From=mittente
objMail.To=rs("Email")
objMail.Subject=oggetto
objMail.Body=email
objMail.Send
Set objMail = nothing
rs.movenext
loop
else
do while not rs.eof
Set objMail = Server.CreateObject("CDO.NewMail")
objMail.BodyFormat = 1
objMail.MailFormat = 1
objMail.From=mittente
objMail.To=rs("Email")
objMail.Subject=oggetto
objMail.Body=email
objMail.Send
Set objMail = nothing
rs.movenext
loop
end if
set cn = nothing
set rs = nothing
%>

ma il server mi risponde così:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/news/send.asp, line 95 (che sarebbe la linea di codice:"Set objMail = Server.CreateObject("CDO.NewMail")"

800401f3

[Roby_72]

Server.CreateObject("CDO.NewMail")


Questo dove l'hai preso???

Roby

[michmeno]

Come ti dicevo il server risiede su 9net e il codice che vedi è
http://servizi.9netweb.it/faq/article.asp?ID=33