<%myfile=server.mappath("/counter.txt")
Set fs=CreateObject("Scripting.FileSystemObject")
Set a=fs.OpenTextFile(myfile)
visita=CInt(a.ReadLine)
if Len(Session("visita"))=0 then
Session("visita")=visita
visita=visita+1
a.close
Set a=fs.CreateTextFile(myfile, True)
a.WriteLine(visita)
end if
a.Close
%>difesa suolo
