Въпрос към знаещите VB / VBscript

Zdravejte,

molq vi pomognete.Napravil sum page s forma v koqto ima textarea, i iskam pri natiskane na butona Save tova koeto e vavedeno v textatea da se zapazi v .txt file. Nisto ne razbiram ot vbscript, tova dolu go namerih gotovo iz inet.
V momenta raboti taka - file path i file name se zadavat kato parametar, v slucaja c:\test.txt - tova moze da promenja no celija path trjabva da se vavede ot user-a.
Vaprosa mi e moze li pri natiskane na Save da se pokaze standartno windows-ko 'Save As' menu za da moze user-a po-lesno da izbere kade da zapazi fajla? Ako moze i v nego vece da e vaveden njakakav filename?
Eto go fajla v segashnija mu vid, ako njakoj reshi da go probva moze da go zapazi s .hta extension za da ne pokazva ActiveX security alert.
Blagodarja!

<html><head><title>test</title></head>
<body bgcolor="#FFFFFF">

<form name="form1">
<textarea name="o1" cols="50" rows="7"></textarea>


<input type="button" name="Button" value="Save" onClick=saveit()>
<input type="reset" name="Reset" value="Reset">
</form>

<script language="VBSCRIPT">

Sub saveit

Dim TheForm
Set TheForm = Document.form1
Const fsoForWriting = 2


dim filename

filename = InputBox("Enter filename: ", "Save file", "c:\test.txt")  
if trim(filename) <> "" then
  Dim objFSO
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Dim objTextStream
  Set objTextStream = objFSO.OpenTextFile(filename, fsoForWriting, True)
  objTextStream.WriteLine (TheForm.o1.Value) 
  objTextStream.Close
  Set objTextStream = Nothing
  Set objFSO = Nothing
end if  

End Sub
</script>
</body></html>

Edwa li ti trqbwa s cel razlichna ot towa da stowarish neshto na User PC sled koeto da mu razkagesh igrata, za towa ne bih ti pomognal.
Ima nachin da go naprawis no e w razrez s wsqkakwi prawila za korektnost w programirane....






JAVA lets make things badly!!

Az ne spadam kam 'знаещите VB / VBscript', no vse pak probvaj toja variant s javascript

<script>
newwin = window.open("")
newwin.document.write(document.forms.form1.o1.value); 
newwin.document.execCommand('SaveAs',null, 'filename.txt'); 
newwin.close()
</script>

Estestveno tova e gadno, otwarja nov prozorec i t.n(no mozesh da go otworish s width i heigth =1)
No vse pak otvarja save as dialog kakto iskash i zapazva file pod kvoto ime si izberesh. Ima i edin goljam minus razbira se :) - file size se uvelicava pocti dvojno.Ako otvorish save-natija file v hex editor ste razberesh zashto - slaga 00 mezdu vseki 2 characters.
Za momenta ne moga da izmislja neshto po-dobro, pitaj i vav foruma za programisti

Microsoft_anon, mnogo ti blagodarja.Tova raboti , no za sazalenie s nedostatuka za kojto spomenavash.
wili98, ti javno si podozritelen po default :)
Purvo, ako sloza tova v web stranica, user-a ste vidi activeX security alert.
Ako otgovori Yes, az moga da otvarjam fajlove, da gi promenjam, premestvam, triq i vsjakakvi drugi gadosti - bez toj izobsto da razbere.
No az ne iskam tova, a iskam da zapazja text v .txt file, i da PITAM usera kade iska da go save-ne.
Znam kak da save-na njakade bez da pitam.
Taka che maj ne sum 'w razrez s wsqkakwi prawila za korektnost w programirane....'