Salve ragazzi,
ho uno script ASP per l'inoltro di una newsletter con CDO su server win2003.

<%
'INOLTRO NEWSLETTER PROMOZIONI
sql = "SELECT * FROM tbl_promozioni WHERE id = 1"
set objRS = objDbConn.execute(sql)

promozione_html = objRS("promozione")

objRS.close
set objRS = nothing

strSql = "SELECT * FROM tbl_clienti WHERE stato = 1"
set client_RS = objDbConn.execute(strSql)

Dim eMail
Dim iConf
Dim Flds

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

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxx.it"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Update
End With

do while not client_RS.eof

email_cliente = client_RS("email")

'Creiamo l'oggetto mail con CDOSYS
Set eMail = CreateObject("CDO.Message")

Set eMail.Configuration = iConf
'Definiamo i diversi attributi della nostra mail
eMail.From = "info@xxx.it"
eMail.To = email_cliente
eMail.Subject = "Newsletter Promozione"

'Se il testo è in Html useremo HTMLBody al posto di TextBody
eMail.HTMLBody = "email_body"

'Inviamo la mail!
eMail.Send()

response.write "
email_cliente = " & email_cliente
response.write "
email_body = " & email_body

client_RS.moveNext
loop

'Eliminiamo l'oggetto...
Set eMail = Nothing
Set Flds = Nothing
Set iConf = Nothing

client_RS.close
set client_RS = nothing

'response.redirect "promozioni.asp?sendMail=true"
%>
Nulla, invia la prima del DB e poi va in errore su eMail.Send().
Mi aiutate please