<% Dim apath Dim fso Dim tso Dim Hits Set fso = Server.CreateObject("Scripting.FileSystemObject") apath = Server.MapPath("act/accnt111/accnt/act_cnt.txt") Set tso = fso.OpenTextFile(apath,1,false) Hits = tso.ReadLine Hits = Hits + 1 tso.Close Set tso = fso.OpenTextFile(apath,2,true) tso.WriteLine Hits tso.Close %>