aggiornato al 19/08/06       on-line dall'8-06-2005

sito ottimizzato per una risoluzione 1024 X 768 pixel

<% Response.Expires = 0 Set fs = CreateObject("Scripting.FileSystemObject") Path = server.mappath("conta.txt") Set a = fs.OpenTextFile(path) conta = CInt(a.ReadLine) If Session("conta")="" then Session("conta") = conta conta = conta + 1 a.close Set a = fs.CreateTextFile(path, True) a.WriteLine(conta) End If a.Close response.write("n=" & conta) %>