%
Sub IncCount()
Set fs = Server.CreateObject("Scripting.FileSystemObject")
cntfile = Server.MapPath("/counter.txt")
Set wf = fs.OpenTextFile(cntfile)
Application("counter") = wf.ReadLine
wf.Close
Application("counter") = Application("counter") + 1
Set wf = fs.CreateTextFile(cntfile, True)
wf.WriteLine(Application("counter"))
wf.Close
End Sub
Function TranGif(counter)
Dim S,range,G
S = CStr(counter)
For range = 1 to Len(S)
G = G & ""
Next
TranGif = G
End Function
If IsEmpty(Session("Connected")) Then
Application.Lock
IncCount
Application.UnLock
End If
Session("Connected") = True
%>