请各位朋友帮我分析以下代码哪里出错了？
Sub NumberAppend()
Set files=Server.CreateObject("Scripting.FileSystemObject")
Set numtxt=files.OpenTextFile(Server.MapPath("/Number.txt"))
Application("Number")=numtxt.ReadLine
numtxt.Close
第二行有什么错误吗，我运行的时候，警告第二行有错，请知道的帮帮忙，谢谢！！！

提示的错误是：
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/rlnzhy/index.asp, line 49

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at:
请帮忙分析分析，谢谢！！

哦？？
那要我的服务器支持才行呀。但是我觉得支持数据庫了，怎么会不支持这个呢。