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

do while not client_RS.eof
'Recupero email cliente attivo
email_cliente = client_RS("email")

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

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

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

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

'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

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

client_RS.moveNext
loop

client_RS.close
set client_RS = nothing
%>
In origine lo script era così come dici tu, ma nemmeno andava.
Siccome sto letteralmente impazzendo sto facendo delle modifiche
per capire da cosa possa dipendere.

Mi invia la prima mail che trova nel db, ma non va oltre e mi si blocca
sul send() della seconda email