<%
function joecounter(counter_file)
dim fs, txt ,file
application.lock
set fs = server.createObject("scripting.filesystemObject")
file =server.mappath(counter_file)
set txt = fs.opentextfile(file, 1, true)
if not txt.atendofstream then
joecounter = Clng(txt.Readline)
end if
joecounter = joecounter + 1
txt.close
set txt = fs.createtextfile(file, true)
txt.writeline joecounter
txt.close
application.Unlock
end function
%>
The CORE business center
