here is my code.You wanted to see it fengshui_1998 :-
<html>
<script language="VBScript">
function save()
Dim oFS, writefile
Set oFS = CreateObject("Scripting.FileSystemObject")
Set writefile= oFS.OpenTextFile("c:\a.txt",true)
writefile.write(S1.value)...