Tradure Jscript in Vb

[ipnotic]

avrei bisogno di tradurre questo script in VBSCRIPT:

<%
   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 ?? ?

[heroes3]

Originariamente inviato da ipnotic
avrei bisogno di tradurre questo script in VBSCRIPT:

<%
   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 ?? ?

Path = Server.MapPath("counter.txt")
var Fso = Server.createobject("Scripting.FileSystemObject")
OpenStr = Fso.OpenTextFile(Path)
Str = OpenStr.ReadLine()
OpenStr.Close()
Counter = Cint(Str)
Counter = Counter + 1
CloseStr = Fso.CreateTextFile(Path)
CloseStr.WriteLine(Counter)
CloseStr.Close()
Response.Write "Numero di Accessi: " & Counter

[ipnotic]

ho provato ma mi restituisce il seguente errore...

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'Fso'
/Default.asp, line 275

cosa vuol dire ?? ?

[Sypher]

Path = Server.MapPath("counter.txt")
set Fso = CreateObject("Scripting.FileSystemObject")
set OpenStr = Fso.OpenTextFile(Path)
Str = OpenStr.ReadLine
OpenStr.Close
Counter = Cint(Str)
Counter = Counter + 1
set CloseStr = Fso.CreateTextFile(Path)
CloseStr.WriteLine(Counter)
CloseStr.Close
Response.Write "Numero di Accessi: " & Counter

prendendo spunto da quello di heroes3

[ipnotic]

ho provato anke quello di Sypher ma mi restituisce errore

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'OpenStr'
/Default.asp, line 276

[Sypher]

Originariamente inviato da ipnotic
ho provato anke quello di Sypher ma mi restituisce errore

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'OpenStr'
/Default.asp, line 276

calma calma mo risolviamo ho editato

[ipnotic]

ok ora funziona tutto......

grazieeeeeeee

[heroes3]

devi dare l'autorizzazione all'utente IUSR_nomepc in lettura e scrittura...
se no come fa a scrivere e leggere quel file??
sopra la cartella dove contieni il file
click destro
proprieta
protezioni
aggiungi
(iusr_nomepc)
check lettura,scrittura,modifica