I have some code here, and when I run it on my FTP server it says that it can't create the FileSystemObject, can someone please debug it for me? I've separated the buggy line from the rest to help.

Code:
<Script language="VBScript" RUNAT="Server">
	Const ForReading = 1, ForWriting = 2, ForAppending = 8
	Dim Visitor, fso, MyFile, Data,
	
	Set fso = CreateObject("Scripting.FileSystemObject")
	
	Set MyFile = fso.OpenTextFile("testfile.txt", ForReading, True)
	Data = MyFile.ReadLine
	Visitor = CInt(Data)
	Visitor = Visitor + 1
	Document.Write "<h1>" & Visitor & "</h1>"
	MyFile.Close
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set MyFile = fso.OpenTextFile("testfile.txt", ForWriting, True)
	MyFile.Write Visitor
	MyFile.Close
</Script>