Classic ASP Discussion - Script Help!!!


<html>
<head>
<title>Hit Counter</title>
</head>
<body bgcolor="white" text="black">
<%
'Dimension variables
Dim  fsoObject        &nb sp;           'File System Object
Dim  tsObject        &nbs p;         &nbs p; 'Text Stream Object
Dim  filObject        &nb sp;         &nb sp;  'File Object
Dim  lngVisitorNumber       &n bsp;  'Holds the visitor number
Dim intWriteDigitLoopCount  'Loop counter to display the graphical hit count 

'Create a File System Object variable
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")

'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(Server.MapPath("site_count.txt"))

'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream
'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)

'Increment the visitor counter number by 1
'lngVisitorNumber = lngVisitorNumber + 1

'Create a new visitor counter text file over writing the previous one
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("site_count.txt"))

'Write the new visitor number to the text file
tsObject.Write CStr(lngVisitorNumber)

'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing

'Display the hit count as text
'Response.Write(lngVisitorNumber)

    Response.Write("There has been ")

'Loop to display graphical digits
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)
    'Display the graphical hit count
    Response.Write("<b>" & Mid(lngVisitorNumber, intWriteDigitLoopCount, 1) & "</b>")
Next 

    Response.Write(" visitors.")
%>
</body>
</html>
It displays the numbers like 1000000
but i want it to display it like 100,000,000
I tried but its didn't work...
Can anyone help!!!