<% Response.Expires = 0 Set fs = CreateObject("Scripting.FileSystemObject") Path = server.mappath("conta.txt")
Set a = fs.OpenTextFile(path) conta = a.ReadLine'Controllo gli aggiornamenti di pagina If Session("conta") = "" then   Session("conta") = conta  'Incremento di 1 il valore presente nel file di testo   conta = conta + 1   a.close  'Scrivo sul file di testo il nuovo valore   Set a = fs.CreateTextFile(path, True)  a.WriteLine(conta) End If a.Close %>