橄榄树合唱谱:求助高手：asp计数器问题．

我用asp想学做个网页计数器，图形的．下面是asp部分的代码：

<%
Function Digital ( counter )
Dim i, MyStr, sCounter

sCounter = CStr(counter)
For i = 1 To 6 - Len(sCounter)
MyStr = MyStr & "<IMG SRC=counter\0.gif>"&" "
Next
For i = 1 To Len(sCounter)
MyStr = MyStr & "<IMG SRC=counter\" & Mid(sCounter, i, 1) & ".gif>"&" "
Next
Digital = MyStr
End Function

CountFile=Server.MapPath("counter/num.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
counter= counter + 1
Out.WriteLine(counter)
Application.unlock
Out.Close
%>

我在笔记本上测试是可以用的（winme系统，装了个PWS来测试asp页面．），但是台式机上试就不行了（winxp系统，系统自带的IIS），报错如下：

HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Microsoft VBScript 运行时错误 (0x800A0046)
没有权限
/counter2.asp, 第 21 行
（即：Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)）

上传到服务器上也不行．

麻烦高手帮解决一下．我分少，如能解决的话再追加50分，决不食言．谢谢！