<%
today=date()
if application("old")=today then
if session("bz1")<>1 then
application("new")=application("new")+1
session("bz1")=1
end if
else
application("new")=1
end if
application("old") =today
str=cstr(application("new"))
lens=len(str)
for n=2 to lens step -1
response.write""
next
l=1
for n=1 to lens
ca=mid(str,l,1)
response.write""
l=l+1
next
%>
<%
dim vs
mfile=server.mappath("count.txt")
set fs=CreateObject("Scripting.FileSystemObject")
set te=fs.OpenTextFile(mfile,1)
vs=te.readLine
te.close
set te=nothing
cd=len(vs)
for i=4 to cd step -1
response.write""
next
nvs=int(vs)+1
vs=cstr(nvs)
if session("bz")=1 then
nvs=nvs-1
vs=cstr(nvs)
end if
j=1
for i=1 to cd
nvs=mid(vs,j,1)
response.write""
j=j+1
next
if session("bz")<>1 then
set te=fs.CreateTextFile(mfile)
te.writeLine(vs)
te.close
set te=nothing
session("bz")=1
end if
set fs=nothing
%>
"
next
l=1
for n=1 to lens
ca=mid(str,l,1)
response.write"
