how do I make this dialog save as, scriptin filesytemobject

[Mats Lundgren]

Hi,
I got this function to load a.txr or a *htm file in an iframe

function LoadFile()
{
CommonDialog1.ShowOpen();

var fileName = CommonDialog1.FileTitle;
var fObj = new ActiveXObject("Scripting.FileSystemObject");

var f = fObj.OpenTextFile(fileName);
var fileContents = f.ReadAll();

f.Close();
var iframeWin = window.message;
iframeWin.document.write(fileContents);
}

but I want one that saves the iframe contens too, but I can´t figure out how
to do it, plz help

Thanks
Mats