<% @LANGUAGE=VBscript %> <% MyFile = Server.MapPath( "sayac.txt" ) Set FileObject = CreateObject("Scripting.FileSystemObject") 'Read hits number Set InStream = FileObject.OpenTextFile(MyFile, 1, true) 'If file exists If not InStream.atEndOfStream Then total = Clng(Instream.ReadLine) + 1 else total = 1 end if Instream.Close set instream = Nothing 'Update number of hits Set OutStream = FileObject.OpenTextFile(MyFile, 2, true) Outstream.WriteLine total Outstream.Close set OutStream= Nothing set FileObject = Nothing Response.Write(total) %>