<% Set f = CreateObject("Scripting.FileSystemObject") Percorso = Server.MapPath("database/count_index_it.txt") Set a = f.OpenTextFile(Percorso) conta_visite = CInt(a.ReadLine) 'If Session("conta_visite") = "" Then 'Session("conta_visite") = conta_visite conta_visite = conta_visite + 1 a.close Set a = f.CreateTextFile(Percorso, True) a.WriteLine(conta_visite) 'End If a.Close Set f = nothing Set a = nothing Response.Redirect "1.gif" %>