Convertire codice da Js a VBS

[Colino]

Ciao,
devo convertire questo codice da JS a vbs come si fa?

  <%
   var Path = Server.MapPath("/mdb-database/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(Counter);
%>

[Santino83_02]

http://javascript.html.it/guide/lezi...system-object/

[Colino]

emh..non mi è chiaro.
quello postato da me è un contatore di visite che incrementa il numero di un file e lo carica
come posso ottenere lo stesso risultato con vbs?

[michele.santoro]

Se non ho capito male:

<%'@LANGUAGE="VBSCRIPT"%>
<%
dim fil, inf,contatore
Set fil=createObject("Scripting.FileSystemObject")
Set inf=fil.OpenTextFile(Server.MapPath("mdb-database/contatore.txt"),1,true)
contatore=inf.readline()
Inf.Close
Set Inf=Nothing
If Session("Contato")<>"si" then 
contatore=contatore+1
Session("Contato")="si"
end if
Set out=fil.createTextFile(Server.MapPath("mdb-database/contatore.txt"),true)
out.Writeline(contatore)
out.Close
set out=Nothing
set fil=Nothing
%>

poi per visualizzare il contatore (da mettere dove vuoi):

<%=contatore%>