<%
dim objfile
dim objstream
Set objfile=server.createobject("Scripting.filesystemobject")
set objstream=objfile.opentextfile(server.mappath("count.txt"))
ucount=objstream.readline
set objstream=nothing
ucount=ucount+1
set objstream=objfile.CreateTextFile(server.mappath("count.txt"))
objstream.writeline(ucount)
set objfile=nothing
set sbjstream=nothing
c="000000"
cpic=left(c,6-len(ucount))&ucount
%>
<%
for i=1 to 6
pic=mid(cpic,i,1)
response.write "
![](images/" & pic & ".gif)
"
next
%>
