<%
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile, CounterFile
Dim CounterHits, FixedDigitCount, DigitCount, DigitCountLength
Dim DigitZerosToAdd, DigitZeroCount, ShowDigits, DigitPath
FixedDigitCount=5
DigitPath ="../pic_root"
On Error Resume Next
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")
CounterFile = Server.MapPath("/database/Counter.txt")
Set ReadCounterFile = ObjCounterFile.OpenTextFile (CounterFile, 1, True)
If Not ReadCounterFile.AtEndOfStream Then
CounterHits = Trim(ReadCounterFile.ReadLine)
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If
ReadCounterFile.Close
Set ReadCounterFile= Nothing
CounterHits = CounterHits + 1
Set WriteCounterFile = ObjCounterFile.CreateTextFile (CounterFile, True)
WriteCounterFile.WriteLine(CounterHits)
WriteCounterFile.Close
Set WriteCounterFile = Nothing
Set ObjCounterFile = Nothing
DigitCountLength = Len(CounterHits)
If DigitCountLength < FixedDigitCount Then
DigitZerosToAdd = FixedDigitCount - DigitCountLength
DigitZeroCount = 1
For DigitZeroCount = DigitZeroCount to DigitZerosToAdd
ShowDigits = ShowDigits & ""
Next
End If
DigitCount = 1
For DigitCount = DigitCount to DigitCountLength
ShowDigits = ShowDigits & ""
Next
%>
