<% Response.Expires = 0 Set fs = CreateObject ("Scripting.FileSystemObject") Path = server.mappath ("conta.txt") Set a = fs.OpenTextFile (path) conta = a.ReadLine 'Check for page updates If Session ("count") = "" then Session ("count") = count 'Increase by 1 the value in the text file count = count + 1 a.close' I write the new value Set a = to the text file fs.CreateTextFile (path, True) a.WriteLine (count) End If a.Close%> By continuing to use the site, you agree to the use of cookies. learn more Accept Cookies