关于asp的问题 下面这段话 调试时总是出现语法错误 不知道错在哪了 问下高人~~~

sub addhtml(filename,dirday)
'首先读取模板文件 tpl
dim fso, readts,tplurl,content
tplurl="..\template\clist.tpl"
set fso=server.createobject("scripting.filesystemobject")
set readts=fso.opentextfile(server.mappath(tplurl),1)

'如果有代码 就读出全部放到变量里去。。

if not readts.atendofstream then
content=readts.readall
end if

readts.close
set readts=nothing

'导入数据库的数据到静态文件里去
content = replace(content,"{date}",fdate)
content = replace(content,"{adv}",adv)
content = replace(content,"{taglist}",taglist)
content = replace(content,"{nav}",nav)
content = replace(content,"{pic}",pic)
content = replace(content,"{rmp}",rmp)
content = replace(content,"{bold}",bold)
content = replace(content,"{color}",color)

content = replace(content,"{title}",title)
content = replace(content,"{name}",name)

'将模版读到变量里，然后再写入HTML文件里，即可 news\20091128\20091128_14_31_33.html
set writets = fso.opentextfile(server.mappath("..\clist\"&dirday&"\"&filename),2,true)
writets.writeline(content)
writets.close
set writets = nothing
set fso = nothing
end sub

就是出现“sub addhtml(filename,dirday) 语法错误” 不知道什么原因？
还有发生意外时什么原因啊？

什么语法错误??>

期待看到有用的回答！