hey glenmac!
your code doesn't seem to work .It does not dislay an inputbox.could you make it fine.here's your code:-
<html>
<script>
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Const TristateFalse = 0
Const TristateTrue = -1
Const TristateUseDefault = -2
Dim title
Dim paragraph
Dim afile
Dim ts
Dim fs
title = "Writing to File"
paragraph = inputbox("enter your text"
Set fs = CreateObject("Scripting.FileSystemObject"
' open file to write to, create if not there, using ASCII
afile ="D:\feedback"
Set ts = fs.OpenTextFile(afile, 8 , -1)
ts.WriteLine title
ts.WriteBlankLines(1)
ts.WriteLine paragraph
ts.Close</script>
</html>
your code doesn't seem to work .It does not dislay an inputbox.could you make it fine.here's your code:-
<html>
<script>
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Const TristateFalse = 0
Const TristateTrue = -1
Const TristateUseDefault = -2
Dim title
Dim paragraph
Dim afile
Dim ts
Dim fs
title = "Writing to File"
paragraph = inputbox("enter your text"
Set fs = CreateObject("Scripting.FileSystemObject"
' open file to write to, create if not there, using ASCII
afile ="D:\feedback"
Set ts = fs.OpenTextFile(afile, 8 , -1)
ts.WriteLine title
ts.WriteBlankLines(1)
ts.WriteLine paragraph
ts.Close</script>
</html>
