Sub() to handle files

[dvst8]

I am trying to have a VBScript Sub() that will write a file upon the click of the Submit button on a form.

Here is my code:

<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--

Sub B1_onclick

Set filesys = CreateObject("Scripting.FileSystemObject")
Set MyFile = filesys.CreateTextFile("c:\temp\tttt.asp",true)
MyFile.Writeln("This is a test.")
MyFile.Close

End Sub

-->
</SCRIPT>

However, upon clicking the submit button I get the following error:

"Error: ActiveX component can't create object 'Scripting.FileSystemObject'"

I am baffled. Can someone tell me what's going on here, and suggest a way to get this going?

Thank you very much!