Salve a tutti.

Ho creato lo script per l'invio della newsletter agli utenti registrati nel database (access 2003) utilizzando CDOSYS per windows 2003.

Lo script è il seguente:

---------------------------------------------------------------------

<%
Set cn = Server.CreateObject("ADODB.Connection")
%>

<!--#include file="OpenConn.asp"-->

<%
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")


Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serverSMTP"
Fields.Update

While Not RS.eof

Set objMail = Server.CreateObject("CDO.Message")

objMail.To = rs("Email")
objMail.From = mittente
objMail.Subject = oggetto
objMail.HTMLBody = email
objMail.Send()
RS.movenext
wend

Set Config = Nothing
Set Fields = Nothing
Set objMail = Nothing

set cn = nothing
set rs = nothing
%>

--------------------------------------------------------------------

Mi ritorna il seguente errore:

----------------------------------------------------
CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/ecommerce/admin/newsletter/send.asp, line 36
----------------------------------------------------


Lo script funziona se tolgo il ciclo WHILE che tenta di inviare la mail a tutti gli iscritti.

Tentando invece di inviare la mail a tutti gli iscritti (con WHILE appunto) la mail mi viene inviata al primo indirizzo che trova nel database e poi mi viene restituito l'errore in questione!!!

Qualcuno mi aiuti!!!!!!!!!!!!!

NB: lo script in locale funziona e la newsletter viene inviata a tutti! L'errore mi viene restituito quando lo carico sul server che è un Windows Server 2003!!!