ASP ile sayıyı virgülle ayırma

Uzun zaman sonra, daha önce kullanmadığım birşeye ihtiyacım oldu… Uzun bir sayıyı 3 lü haneler şeklinde virgülle ayırmak. PHP sinide yayınlarım boş zamanımda.

Buyrun fonksiyona,

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