eliminare la virgola nell'ultimo indirizzo

[SAMPEI.asp]

a tutti avrei un'altro quesito da chiedere.
dopo aver sistemato il problemino di stamani ora nn risco a eliminare la virgola dall'ultimo indirizzo e-mail

Set rsmailinglist = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT mailinglist.* FROM mailinglist;"

rsmailinglist.CursorType = 3
rsmailinglist.Open strSQL, adoCon
	mail_iscritti = ""  
Do While Not rsmailinglist.EOF  


mail_iscritti = mail_iscritti &  rsmailinglist("mail_iscritto") & ", " 
	

	 rsmailinglist.MoveNext
Loop

rsmailinglist.close
Set rsmailinglist = Nothing

Dove sbaglio ?

[Mems]

Dopo il Loop metti

mail_iscritti = left(mail_iscritti,len(mail_iscritti) - 1)

[SAMPEI.asp]

mi correggo funziona ho messo -2 GRASSSSSSIEEEE DI cuore!!