近5年金融大事件:asp高手请进

请帮我找到ASP代码的错误,第22行48列
即pagecute=pagecute&"<a href='"&pageurl&"'>[1]</a>
源代码如下:
<%
function encodehtml(str)
str=replace(str,vbcrlf,"<br>")
str=replace(str,chr(9)," ")
encodehtml=str
end function
'分页显示'
function pagecute(allpages,viewpage,pageurl,pp)
if int(allpages)=0 then
pagecute="<font color=red>[1]</font>"
exit function
end if
dim pn,pi,page_num,ppp,pl,pr:pi=1:ppp=pp\2
if pp mod 2 = 0 then ppp=ppp-1
pl=viewpage-ppp:pr=pl+pp-1
if pl<1 then
pr=pr-pl+1:pl=1
if pr>allpages then pr=allpages
if pl<1 then pl=1
end if
if pl>1 then
pagecute=pagecute&"<a href='"&pageurl&"'>[1]</a>
<a href='"&pageurl&"?pageno="&pl-1&"'>[<<]</a>"
end if
for pi=pl to pr
fi cint(viewpage)=cint(pi) then
pagecute=pagecute&"<font color=red>["&pi&"]</font>"
else
pagecute=pagecute&"<a href='"&pageurl&"?pageno="&pi&"' title='第"&pi&"页'>["&pi&"]</a>"
end if
next
if pr<allpages then
pagecute=pagecute&"<a href='"&pageurl&"?pageno="&pi&"' title='后一页'>[>>]</a>
<a href='"&pageurl&"?pageno="&allpages&"' title='最后一页'>[>>>]</a>
end if
end function
%>
if pl>1 then
pagecute=pagecute&"<a href='"&pageurl&"'>[1]</a>
<a href='"&pageurl&"?pageno="&pl-1&"'>[<<]</a>"
这一行到底有何错误