帮我看看这个小问题!

[zay]

这是一个防刷新的计数器,怎么样调试呢/ (count.txt；1-8.jpg图片文件都有)，我自己试老有问题，不知道问题在哪？？
<%
countlong=8
'定义计数器位数
On Error Resume Next
'忽略所有的错误
count=server.mappath(count.txt)
set cou=server.createobject(scripting.filesystemobject)
set out-cou.opentextfile(count,1,false,false)
counter=out.readline
out.close
'打开count.txt，读出目前计数器的值
if session(in)<>in then
'判断用户是否进入主页，防止用户刷新或再次来到此页面时计数器再加1
session(in)=in
set out = cou.createtextfile(count,true,false)
application.lock
counter=counter+1
'计数器加1
out.writeline(counter)
application.unlock
out.close
'建立新文件count.txt并写入加1后计数器的值
end if
co=cstr(counter)
'把数字型变量转换成字符型
for i = l to countlong-len(co)
'得到前面0图片的个数
response.write
next
'完成计数器前面的0图片的添加
for 1 = l to len(co)
response.write
next
'从变量co的第i位开始读
%>

[jay_lishijie]

具体出现什么问题

[zay]

报错如下:
麻烦你好好帮我看看,测试一下,谢谢哟!
-----------------------------------------------------------------
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误 错误 '800a03f3'

缺少 '='

/data/Default.asp，行8

set out-cou.opentextfile(count,1,false,false)
-------^