<%

Response.Expires = 2580

Set fs = CreateObject("Scripting.FileSystemObject")

Path = server.mappath("counter.txt")

Set a = fs.OpenTextFile(path)

conta = a.ReadLine

If Session("counter") = "" then

Session("counter") = counter

counter = counter + 1

a.close

Set a = fs.CreateTextFile(path, True)

a.WriteLine(counter)

End If

a.Close

%>