Ciao a tutti.

Ho la necessità di inviare un messaggio email quando una determinata condizione è verificata in una tabella di un DB MySQL.

Questo è il codice in uso:

codice:
   SQL = " SELECT * FROM doTable Where div = 1; "

   Set Rec = createObject("ADODB.Recordset")
   Rec.open SQL, cn


   If not Rec.eof then


   msg = msg & VBcrlf & "<br />Records founds!<br />"


   Do while not Rec.eof 


   msg = msg & VBcrlf & "ID record: " & Rec("Id") & ""         


   msg = ""


   Rec.moveNext()      
   Loop       


   Else


   msg = msg & VBcrlf & "<br />No records!<br />"


   End If


   Rec.close()
   set Rec = nothing    


   cn.close()
   set cn = nothing

Il problema è che se inserisco questa parte di codice dove azzero il contenuto del messaggio per evitare la ristampa del messaggio Records founds! anche avendo dei records questi non vengono stampati:
codice:
msg = ""

Mentre se lo commento dal ciclo i records trovati vengono stampati, ma in questo modo:
codice:
Records founds!
ID record: 32
Records founds!
ID record: 61
Records founds!
ID record: 77

Perchè non riesco ad avere questa uscita?
codice:
Records founds!
ID record: 32
ID record: 61
ID record: 77

Potete aiutarmi?
Grazie in anticipo.