Ciao a tutti!

Ho appena finito di creare una newsletter.
Il mio problema riguarda il suo invio con CDONTS.

Praticamente, io raccolgo tutte le persona a cui voglio inviare la mail in una tabella.

Nel momento dell'invio, apro il recordset di questa tabella e repero la mail di ciascun iscritto


'CONTROLLO CHE CI SIANO DEGLI UTENTI A CUI INVIARE LA MAIL
if not rsElencoUtenti.recordcount=0 then

'FINO CHE CI SONO UTENTI FACCIO IL CICLO DI INVIO RECUPERANDO LA MAIL
do while not rsElencoUtenti.eof

'RECUPERO LA MAIL
mail=rsElencoUtenti("mail")

.
.
.HTML = HTML & "<html>"
.FUNZIONE CDONTS CHE VA PERFETTAMENTE
.
.


'QUI RECUPERO I CONTENUTI DEI CAMPI MAIL, DESTINATARIO E OGGETTO
objMail.From = "info@prova.com"
objMail.To = mail
objMail.Subject = rsNewsletterInvia("oggetto")
objMail.BodyFormat = 0
objMail.MailFormat = 0

'QUI RECUPERO IL CONTENUTO APPENA SCRITTO DEL BODY
objMail.Body = HTML
objMail.Send


'CONTINUO A CICLARE IL RECORDSET DEGLI UTENTI ISCRITTI
rsElencoUtenti.movenext
loop

end if


Il problema sta nel fatto, che per il primo utente della lista è tutto ok, per i successivi il CDONTS (o meglio il contenuto inviato) si ripete tanto quanti sono gli utenti iscritti ...

Ma cosa può essere?
Aiuto

Grazie