<%@ 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 %> LaStoriaDiNapoli.it Nuova pagina 1

                 
   E.A. Mario              R. Bracco                G. Capurro               F. Russo       

             
       L. Bovio                            E. Murolo                 R. Viviani

Home   Poesie   Collaborazioni   Foto