Numero Visite

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