<%
var Path = Server.MapPath("counter.txt");
var Fso = new ActiveXObject("Scripting.FileSystemObject");
var OpenStr = Fso.OpenTextFile(Path);
var Str = OpenStr.ReadLine();
OpenStr.Close();
var Counter = parseInt(Str);
Counter++;
var CloseStr = Fso.CreateTextFile(Path);
CloseStr.WriteLine(Counter);
CloseStr.Close();
Response.Write("Numero di Accessi: " + Counter);
%>
