<%
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
%>