<% counter_file = Server.MapPath("test.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(counter_file) counter = Clng(a.ReadLine) if Session("counter") = "" then Session("ct") = counter counter = counter + 1 a.close Set a = fs.CreateTextFile(counter_file, True) a.WriteLine(counter) end if a.Close Response.Write counter %>
 

 

 

 

g