%@ 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 %>
Poeti Napoletani
S. Di Giacomo F. Russo R. Bracco E. Murolo R. Viviani L. Bovio E.A. Mario E. Nicolardi G. Capurro |
Foto Poesie Contatti Collaborazioni Bibliografia Links utili Maringola |
|
Poeti napoletani é una produzione PARTENOWEB |