<%
Dim Counter
Sub IncrementCounter()
Set fs = Server.CreateObject("Scripting.FileSystemObject")
counter_file = Server.MapPath("counter.txt")
Set txt = fs.OpenTextFile(counter_file)
Counter = txt.ReadLine
txt.Close
Counter = Counter + 1
Set txt = fs.CreateTextFile( counter_file, True )
txt.WriteLine(Counter)
txt.Close
End Sub
Application.Lock
IncrementCounter
Application.UnLock
Function GCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & ""
Next
GCounter = G
End Function
c=gcounter(counter)
%>
