set fs=createobject("scripting.filesystemobject")   
set t=fs.opentextfile(server.mappath("c.txt"))   
c=t.readline   
c=c+1
response.write c
set t=fs.createtextfile(server.mappath("c.txt"))   
t.write c