<%@ LANGUAGE=vbscript enablesessionstate=true LCID=1040 %>
<%
Response.Expires = 0
Set f = CreateObject("Scripting.FileSystemObject")
Percorso = Server.MapPath("public/conta.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
%>
.: tHE kIDS :.