Function Virgulle(rakamlar)
rakamlar = Cstr(StrReverse(rakamlar))
For i = 1 To Len(rakamlar)
GeciciVeri = Mid(rakamlar,i,1) & GeciciVeri
If i Mod 3 = 0 And Not i = Len(rakamlar) Then GeciciVeri = "," & GeciciVeri
Next
Virgulle = GeciciVeri
End Function

fonksiyonunu kullanarak rahatlıkla yapabilirsin.

kullanımı ise Response.write virgulle(rs("sayi"))