<%
Dim strPath, File, file2, x,liCount, j ,resfile, d, i ,fl
strPath = "../counter/newsctr.txt"
strPath = Server.MapPath(strPath)
strPath2 = "../counter/counter.txt"
strPath2 = Server.MapPath(strPath2)
Set File = Server.CreateObject("Scripting.FileSystemObject")
set file2=File.OpenTextFile(strPath)
set file3=File.OpenTextFile(strPath2)
x=file2.readline
y=file3.readline
set resfile = File.createTextFile (strPath)
set resfile1 = File.createTextFile (strPath2)
resfile.writeline(x)
resfile1.writeline(y)
liCount=Cstr(x)
liCount2=Cstr(y)
j = Len(liCount)
k = Len(liCount2)
d=9 - j
e=9 - k
%>
<%
For i=1 to d step 1
Response.Write ("
")
Next
For i=1 to j step 1
fl="digi" + Mid(liCount, i , 1) + ".gif"
Response.Write ("
![]() & (fl) & )
"
Next
%>
