A simple counter program
<% 'A simple counter program set fs = creteObject ("scripting.filesystemObject") set a = fs.opentextfile (server.mappath ("count.txt")) count = a.readlineresponse.write countcount = count 1set FS = CreateObject ("scripting.filesystemObject") set a = fs.createtextfile (server.mappath ("count.txt")) a.writeline (count)%>