[internetadami]

<%
Function Virgulle(Rakam)
Dim Dizi(10)
Dizi(0) = Left(Rakam,((Len(Rakam)) Mod 3))
Rakam = Right(Rakam,Len(Rakam) - ((Len(Rakam)) Mod 3))
For I = 1 to (Len(Rakam) / 3)
Dizi(I) = Left(Rakam,3)
Rakam = Right(Rakam, Len(Rakam) - 3)
Next
For I = 0 to 10
If Not Dizi(I) = "" Then
If Not I = 0 Then
Rakam = Rakam & "." & Dizi(I)
Else
Rakam = Dizi(I)
End If
Else
Exit For
End If
Next
Virgulle = Rakam
End Function
%>
<% sonuc = Virgulle("10365000000") %>
<%=sonuc%>