<% Besok = Server.MapPath( "stat.txt" ) Set FileObject = CreateObject("Scripting.FileSystemObject") Set InStream = FileObject.OpenTextFile(Besok, 1, true) If not InStream.atEndOfStream Then alla = CInt(Instream.ReadLine) + 1 else alla = 1 end if Instream.Close set instream = Nothing Set OutStream = FileObject.OpenTextFile(Besok, 2, true) Outstream.WriteLine alla Outstream.Close set OutStream= Nothing set FileObject = Nothing Response.Write("" & alla & "") %>