<%
Set f = CreateObject("Scripting.FileSystemObject")
Percorso = Server.MapPath("/mdb-database/contatore.txt")
Set a = f.OpenTextFile(Percorso)
conta_visite = cint(a.ReadLine)
If Session("conta_visite") = 0 then
Session("conta_visite") = conta_visite
conta_visite = conta_visite + 1
a.close
Set a = f.CreateTextFile(Percorso, True)
a.WriteLine(conta_visite)
End If
a.Close
Response.Write("Visite:"&conta_visite)
%>