<% If Session("logweb")<>1 then Set fso=Server.CreateObject("Scripting.FileSystemObject") filepath = Server.MapPath("/pri/click_counter.txt") Set f = fso.OpenTextFile(filepath) Application("click_counter") = f.ReadLine Application("click_counter") = Application("click_counter") + 1 Set f = fso.CreateTextFile(filepath) f.WriteLine Application("click_counter") Session("logweb")=1 Response.Redirect "toppage.html" End If Response.Redirect "toppage.html" %>