problema con CDO (mailinglist)

[yro]

ciao sto facendo una piccola mailinglist per un sito, ma non mi manda le mail.
qui il codice dove prelevo i campi e le email dal db access:

StrOggetto = request.Form("oggetto")
strBody = request.Form("body")

set rsNL = server.CreateObject("adodb.recordset")
strSQLNL = "SELECT email from utenti"
rsNL.open strSQLNL, ConnNL, 0, 3

do while not rsNL.eof
strListamail = (rsNL("email"))
rsnL.MOVENEXT
loop

Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "info@miosito.org"
MiaMail.To = "info@miosito.org"
MiaMail.Cc = "info@miosito.org"
MiaMail.Bcc = strListamail
MiaMail.Subject = (strOggetto)
MiaMail.HTMLBody = strBody
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing

il problema è che non manda niente!
dove sbaglio?

grazie!

[viki1967]

Sposta rsnL.MOVENEXT ed il loop dopo la distruzione dell'oggetto MiaMail.