%
Set Fs=Server.CreateObject("Scripting.FileSystemObject")
file_path=Server.MapPath("../counter.txt")
Set CounterFile=Fs.OpenTextFile(file_path)
OldCounterValue=CounterFile.ReadLine
NewCounterValue=OldCounterValue+1
CounterFile.Close
Set CounterFile=Fs.OpenTextFile(file_path,2)
CounterFile.WriteLine(NewCounterValue)
CounterFile.Close
Function G_Split(CounterValue,Counter_bits)
For i=1 To Counter_bits
G=Mid(CounterValue,i,1)
If G="" Then
G=0
ImgTag="
"&ImgTag
Else
ImgTag=ImgTag&"
"
End if
Next
G_Split=ImgTag
End Function
%>