%@ language=VBscript %> <% myfile=Server.MapPath("counter_mysite.txt") Set fs=CreateObject("Scripting.FileSystemObject") Set a=fs.OpenTextFile(myfile) Hits=CLng(a.ReadLine) if Len(Session("Hits"))=0 then Session("Hits")=Hits Hits=Hits+1 a.close Set a=fs.CreateTextFile(myfile, True) a.WriteLine(Hits) end if a.Close %>
Links utili per chi ama la
napoletanità
Lastoriadinapoli | Tutto quello che vuoi sapere sulla storia della tua città (storia, teatro ed aneddoti) |
Napoliweb | La tecnologia al tuo servizio |
www.antoniodecurtis.com | Tutto su Totò, il principe del sorriso |
www.filodrammatici.it | Le compagnie filodrammatiche |
Comune
di Napoli Provveditorato agli studi di Napoli CTP |
|
Regione | Regione Campania |
Provincia | Provincia di Napoli |