<%@ 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
Poeti Napoletani
Stamme faticanne pe' vuje, 'nu poco 'e pacienza e sarete serviti !!!