Problema con ciclo Loop Movenext

[wegawhite]

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:

   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:

msg = ""

Mentre se lo commento dal ciclo i records trovati vengono stampati, ma in questo modo:

Records founds!
ID record: 32
Records founds!
ID record: 61
Records founds!
ID record: 77

Perchè non riesco ad avere questa uscita?

Records founds!
ID record: 32
ID record: 61
ID record: 77

Potete aiutarmi?
Grazie in anticipo.

[Daisyland]

In che punto del codice effettui la stampa di msg ?
Comunque basta che metti in mezzo a queste due linee la stampa di msg

msg = msg & VBcrlf & "ID record: " & Rec("Id") & ""          
 
response.write "<br>" & msg 
 
msg = ""

e funziona