<%
Application.Lock
dim fs,filestr,counter
set fs=server.CreateObject("scripting.FileSystemObject")
fs_path=server.MapPath("counter.txt")
set filestr=fs.OpenTextFile(fs_path)
counter=filestr.readline
filestr.close
Application("counter")=counter
Application("counter")=Application("counter")+1
counter=Application("counter")
set filestr=fs.CreateTextFile(fs_path)
filestr.writeline counter
filestr.close
Application.UnLock
strmumber=cstr(counter)
for i=1 to len(strmumber)
image=image & ""
next
image_counter=image
set fs=nothing
%>
