Dentro ad ogni ciclo di invio devi però aggiornare la tabella altrimenti mandi sempre le stesse 50...

codice:
strSQL = "UPDATE tabella SET inviata = 1 WHERE id = "& rs("id")
Roby