<% Dim nomefile, filestream nomefile = Server.MapPath("/mdb-database/reindirizzamento.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 "Numero visite: " &visite %>




In pochi secondi sarete reindirizzati
su www.italiainviaggio.com





Nella eventualità il vostro navigatore non supportasse il reindirizzamento
cliccare qui.