avrei bisogno di tradurre questo script in VBSCRIPT:

codice:
<%
   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);
%>
:master:
qualkuno ke mi aiuta ?? ?