<%@ 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 I Poeti

Collaborazioni

 

Vi renderete conto che la quantità di materiale é, a dir poco, IMMANE !! Per cui se, alcuni di Voi, vogliono inviarmi poesie di autori classici partenopei, ne sarò felicissimo. Chiaramente indicherò i Vostri nomi. 

Grazie 

Clicca quì per inviare collaborazioni
 

Home   Foto   Poesie