Per vedere DoFradei al meglio imposta lo schermo a 1024*768 con carattere medio

La DoFradei consiglia Microsoft Internet Esplorer 6 Service Pack 1 e Linux non è benvenuto...per la Francesca chiudiamo un occhio! L'ADSL?!?...Oramai obbligatorio

Last Update, only some parts, on: 04/03/2006

<% Dim nomefile, filestream nomefile = Server.MapPath("/public/visite.txt") Set objFile = CreateObject("Scripting.FileSystemObject") 'se il file non esiste, crealo if not objFile.FileExists(nomefile) then Set filestream = objFile.OpenTextFile(nomefile, 2, true) filestream.WriteLine("0") end if 'legge il numero attuale di visite Set filestream = objFile.OpenTextFile(nomefile, 1, true) Dim visite visite = filestream.ReadLine() filestream.Close 'se non è ancora presente la variabile di sessione if Session("visiting")<>1 then Session("visiting") = 1 'crea la variabile di sessione visite = visite + 1 'incrementa di uno gli accessi al sito end if 'scrive nel file il valore aggiornato di visite Set filestream = objFile.CreateTextFile(nomefile, true) filestream.WriteLine(visite) filestream.Close Set filestream = Nothing Set objFile = Nothing 'visualizza sul browser il numero totale di visite Response.Write "Dal 30 Maggio 2004 le visite sono state: " &visite %>