asp代码有问题，请高手指点！
<%
const forreading=1,forwriting=2,forappending=3
const TristateUseDefault=-2,TristateTrue=-1,TristateFalse=0
filepath=server.MapPath("/count")
filename=filepath+"\counter.txt"
set fs=CreateObject("scripting.filesystemobject")
if fs.fileexists(filename) then
set f=fs.getfile(filename)
set ts=f.OpenAsTextStream(ForReading,TristateUseDefault)
s=ts.readline+1
ts.close
else
fs.createtextfile(filename)
set f=fs.getfile(filename)
s=1
end if
%>
我这段代码不能实现在服务器跟目录创建count目录和文件，显示HTTP 500 - 内部服务器错误
