我做计数器，代码如下（已经上传）：

<%
dim out
countfile=Server.mappath("count.txt")
set fs=server.createobject("Scripting.filesystemobject")
set out=fs.opentextfile(countfile,1,false,false)
counter=out.readline
out.close
set fs=server.createobject("Scripting.filesystemobject")
Set out=fs.openTextFile(countfile,1,true,true)

application.lock
counter=counter+1
set out=fs.createtextfile(countfile)
out.writeline(counter)
application.unlock
out.close

response.write"您是本站第"&counter&"位访客"
set fs=nothing
%>

错误信息如下：
Server object error 'ASP 0177 : 800a0035'

Server.CreateObject Failed

/count.asp, line 5

The operation completed successfully.

请各位给予帮助。