<![CDATA[<body>
<%
Dim strPath, File, file2, x,liCount, j ,resfile, d, i ,fl
strPath = "counter/counter.txt"
strPath = Server.MapPath(strPath)
Set File = Server.CreateObject("Scripting.FileSystemObject")
set file2=File.OpenTextFile(strPath)
x=file2.readline
set resfile = File.createTextFile (strPath)
resfile.writeline(x+1)
liCount=Cstr(x+1)
j = Len(liCount)
d=9 - j
%>
</body>]]>