Ciclo che non "cicla"

[wegawhite]

Buongiorno.

Solito problema con un ciclo: perchè inserisce solo un record e non tutti?:

 Do Until Rec.Eof    
   
If Rec("IDCD") <> "" Then
 
    Rec.AddNew
    
...........
      
    Rec.Update
    
Response.write "ok"

Set link = CreateObject("CDONTS.Newmail")
link.Body = messaggio
link.BodyFormat = 0 
link.MailFormat = 0 
link.Send
Set link = Nothing

exit do 
end if
 
    Rec.MoveNext   
    Loop 
    
else

response.write "errore"  
     
end if