% coutfile=server.MapPath("textcounter.txt") Set myfile = createobject("scripting.filesystemobject") Set mytext = myfile.opentextfile(coutfile,1,false,false) vistor = mytext.readline vistor = vistor + 1 myvistor = vistor Set mytext = myfile.createtextfile(coutfile,true,false) mytext.write(vistor)%>