ho scritto queto codice per estrarre i destinatari da un database e inviare le mail

<%

dim oggetto
oggetto=request.form("oggetto")

dim testo
testo=request.form("testo")

strHTML = "<html><body>"
strHTML = strHTML & ""
strHTML = strHTML & "
"
strHTML = strHTML & destinatario






dbfile=Server.MapPath("/mdb-database/utilizzatori.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile

Set rs = Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM users "


rs.Open sql, OBJdbConnection, 3, 3


Do While not rs.eof

destinatario=Rs("email")

'imposto la forma della mail
strHTML = "<html><body>"
strHTML = strHTML & ""
strHTML = strHTML & "
"
strHTML = strHTML & destinatario
strHTML = strHTML & "</body></html>"
'--------


' istanza di CDO.Message
set CDOmail = CreateObject("CDO.Message")

CDOmail.To = destinatario
CDOmail.From = "xxx@libero.it"
CDOmail.Subject = oggetto

' testo da inviare
CDOmail.HTMLBody = strHTML

' invio del messaggio
CDOmail.Send()

response.write "email inviata a "
response.write destinatario
response.write "
"
rs.MoveNext
loop



%>

la pagina mi mostra tutti i destinatari uno dopo l'altro, ma poi le email non arrivano a tutti, a volte arriva ai primi e non agli ultimi, a volte a nessuno a volte a 2 o 3

cosa sbaglio?