ForAppending

interrupt · August 13th, 2005, 05:14 AM

Hi,

I have started a script that appends user responses via select lists to an HTML file. The problem is, it won't append! Here is my code:

function submitq1(){
        var TristateFalse = 0
        var ForAppending = 8
        var selected = document.q1form.sel1.value
    var user1 = parent.opener.document.form1.userID.value
        var theuser = "C:\\path\\" + user1

aXobject = new ActiveXObject("Scripting.FileSystemObject")
        aXobject.CreateTextFile(theuser + ".html")
        file = aXobject.GetFile(theuser + ".html")
        text = file.OpenAsTextStream(ForAppending, TristateFalse)
        text.Write("<br>Q1 was " + selected + "<br>")
        text.Close()
winOpenQ2()
}
function winOpenQ2(){
var win = window.open('c:\\question 2.html', 'Window1', 'resizable=0,height=150,width=400');
}

All it does is replace the original text. Help!

TIA
interrupt

joefawcett · August 13th, 2005, 05:40 AM

You don't need to create and openAsTextStream:

Code:

var TristateFalse = 0;
var ForAppending = 8;
var oFso = new ActiveXObject("Scripting.FileSystemObject");
var oTS = oFso.openTextFile(<filename>, ForAppending, true, TristateFalse);
oTS.write(<data>);
oTS.close();

--

Joe (Microsoft MVP - XML)