da VB a js

[mikfaina]

Salve a tutti lo so che vi chiedo un grande favore ma qualcuno mi saprebbe tradurre questo script da VB a js.
Io ho un guest book scritto in js e vorrei inserire del codice che mi permetta di salvare i messaggi su un file di testo. Quali sono i comandi per aprire un file accodando i dati e non sovrascivendoli??


Grazie a tutti
Mik

<%
dim intModalita
' Se intModalita viene inizializzato a 2 si perde il contenuto precedente
' Se intModalita viene inizializzato a 8 si accoda il contenuto
Set Fil=CreateObject("Scripting.FileSystemObject")
dim strFile
strFile = server.mapPath("testo.txt")
Set out=Fil.OpenTextFile(strFile,8,true)

out.WriteLine(Request.ServerVariables("REMOTE_HOST "))
response.write "Scrittura eseguita (spero)"
out.Close
Set out=Nothing
Set Fil=Nothing
%>

[Sypher]

var intModalita 
// Se intModalita viene inizializzato a 2 si perde il contenuto precedente 
// Se intModalita viene inizializzato a 8 si accoda il contenuto 
Fil=CreateObject("Scripting.FileSystemObject") 
var strFile 
strFile = "" + server.mapPath("testo.txt") 
out=Fil.OpenTextFile(strFile,8,true) 

out.WriteLine(Request.ServerVariables("REMOTE_HOST")) 
Response.Write("Scrittura eseguita (spero)")
out.Close 
out=null 
Fil=null 
%>

prova così

[Shagrat]

var intModalita 
// Se intModalita viene inizializzato a 2 si perde il contenuto precedente 
// Se intModalita viene inizializzato a 8 si accoda il contenuto 
Fil=CreateObject("Scripting.FileSystemObject") 
var strFile 
strFile = server.mapPath("testo.txt") 
out=Fil.OpenTextFile(strFile,8,true) 

out.WriteLine(Request.ServerVariables("REMOTE_HOST")) 
Response.write("Scrittura eseguita (spero)")
out.Close 
out=null 
Fil=null

così dovrebbe andare

[Sypher]

a Shagrat ma che fai copi?

[Shagrat]

10 secondi prima e potevo dirti la stessa cosa :quote:

[Sypher]

Originariamente inviato da Shagrat
10 secondi prima e potevo dirti la stessa cosa :quote:

:zamm: