我做了个下面的sub，但不知道为什么call调用的时候就出错，错误如下：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/asp/hsggcm/test_fenye.asp, 第 113 行
sub的代码是这样的：
<%
sub listPages()
if n <= 0 then exit sub
%> <form name="trunpage" method="post" action="<%=request.ServerVariables("script_name")%>">
<p><span class=smallFont>
<%if currentpage=1 then%>
<font color=#666666 face="arial" class="as">第一页 上一页</font>
<%else%>
<input type="submit" name="page" value="第一页">
<input type="submit" name="page" value="上一页">
<%end if%>
<%if currentpage=n then%>
<font color=#666666 face="arial" class="as">下一页 最末页</font>
<%else%>
<input type="submit" name="page" value="下一页">
<input type="submit" name="page" value="最末页">
<%end if%>
<font color=#666666 face="arial" class="as">
第:<%=currentpage%>/<%=n%>页 共:<%=totalrec%>条记录
跳转到第:<input name="putpage" type="text" id="putpage" size="3"><%'输入的页号%>
页 <font color=#666666 face="arial" class="as">
<input name="currentpage" type="hidden" value="<%=currentpage%>"><%'当前的页号%>
<input name="pagecount" type="hidden" value="<%=n%>">
<input name="titname" type="hidden" value="<%=request.form("titname")%>">
<input name="keepsql" type="hidden" value="<%=keepsql%>"><%'保持的查找语句%>
<input type="submit" name="page" value="go">
</font> </font></span></p>
</form>
<%end%>
<%end sub%>
请指教！呵呵，也有点急的
