为什么出错？

[alpa]

set content=server.createobject("Scripting.Dictionary")
pagemaxlen=1200
tampcontent=rs("内容")
couter=len(tampcontent)
if couter>pagemaxlen then
tampe=couter mod pagemaxlen
if tampe=0 then
endstep=couter/pagemaxlen
else
endstep=cint(couter/pagemaxlen)+1
end if
for i=1 to endstep
Response.Write(i)
content.add "con"&i,mid(tampcontent,0,700)
next
else
content.add "con1",tampcontent
end if


Microsoft VBScript 运行时错误 错误 '800a0005'

无效的过程调用或参数: 'Mid'

/news/detail6.asp，行133

[alpa]

以是代码是为实现一条记录的分页显示的效果，但总出错，希望高手帮忙。

[若白师妹]

mid(tampcontent,1,700)

[alpa]

谢谢