高手们,来给我解决一下ASP分页技术的问题吧!!!

  showContent
  showpage totalPut,MaxPerPage,"manage.asp"
   else
        if (currentpage-1)*MaxPerPage<totalPut then
       rs.move(currentpage-1)*MaxPerPage
   dim bookmark
   bookmark=rs.bookmark
   showpage totalPut,MaxPerPage,"manage.asp"
       showContent
       showpage totalPut,MaxPerPage,"manage.asp"
else
      currentpage=1
   showpage totalPut,MaxPerPage,"manage.asp"
       showContent
       showpage totalPut,MaxPerPage,"manage.asp"
end if
end if
rs.close
end if
set rs=nothing

 sub showContent
         dim i
     i=0
%>
     <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCFFFF" style="border-collapse:collapse;">
                                  <tr > 
                                  <td width="10%" height="31" align="center"><strong>ID号</strong></td>
                                  <td width="12%"align="center"><strong>信息类型</strong></td>
                                  <td width="50%"align="center"><strong>信息名称</strong></td>
                                  <td width="14%" align="center"><strong>修  改</strong></td>
                                  <td width="14%" align="center"><strong>删  除</strong></td>
                                </tr>
<%do while not rs.eof%>
<tr >
 <td width="10%" height="30" ><font color="#000000" size="2"><p align="center" >  <%=rs("id")%></p></font></td>
 <td width="12%" height="30" ><font color="#000000" size="2"><p align="center" ><%=rs("txttype")%></p></font></td>
 <td width="50%" height="30" ><font color="#000000" size="2"><p align="center" ><%=rs("txttitle")%></p></font></td>
 <td width="14%" height="30" ><font color="#000000" size="2"><p align="center"  ><a href="edit.asp?id=<%=rs("id")%>">修  改</a></p></font></td>
  <td width="14%" height="30" ><font color="#000000" size="2"><p align="center" ><a href="delete.asp?id=<%=rs("id")%>">删  除</a></p></font></td>    
</tr>
<%
                                       i=i+1
                                       if i>=MaxPerPage then exit do 
                                       rs.movenext
                                       loop 
  %>
<tr>  
<%
  end sub
      Function showpage(totalnumber,maxperpage,filename)
  dim n
  if totalnumber mod  maxperpage=0 then
          n=totalnumber\maxperpage
  else
          n=totalnumber\maxperpage+1
 end if
    response.Write" form method =post action=manage.asp>"
    response.Write"<p align='center'>fontcolor='#000080'>>>分页</font>"
if currentpage<2 then
     response.Write"<fontcolor='#000080'>首页  上一页</font>"
    else
     response.Write"<a href=manage.asp?page=1&>首页 </a>"


 response.Write"<a href=manage.asp?page="&(currentpage-1)&">上一页 </a>"
end if
if n-currentpage<1 then'
 response.Write"<fontcolor='#000080'>下一页  尾页</font>"
    else
     response.Write"<a href=manage.asp?page="&(currentpage+1)&">下一页</a>"
 response.Write"<a href=manage.asp?page="&n&">尾页</a>" 
                                end if 
    response.Write"<fontcolor='#000080'>页次：</font><font color=red>"¤tpage&"</font><fontcolor='#000080'>/"&n&"页</font>"
response.Write"<fontcolor='#000080'>共<b>"&totalnumber&"</b>条信息<b>"&maxperpage&"</b>条信息/页</font>"
response.Write"<fontcolor='#000080'>转到：</font><input type='text' name='page' size=4 maxlength='10' class='smallInput' value='"¤tpage&">"
response.Write"<input class=buttonface type='submit' value='转到' name='cndok'></span></p></form>"
end Function   //就是这里老出错 
%> 
</tr></table> 
  <td width="10%"><br></td>
                          </tr>
                          <tr> 
                            <td height="40" colspan="3"><div align="center"><font color="#FF00FF" size="2"><br>心雨工作室 © 2005-2006</font> <font color="#FF00FF" size="2">设计：<a href="mailto:wg.1983@163.com"><font color="#0000FF">有你一生快乐</font></a></font> 
                                <font color="#FF00FF" size="2" face="Arial, Helvetica, sans-serif"><br></font><font color="#FF00FF" size="2">版权所有，引用不咎，但请注明出处。</font><br><img src="wg_2.gif" width="100" height="50"> </div>
                              </td>
                          </tr>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
            </table>
            
          </td>
        </tr>
      </table></td>
    <td width="12%"> </td>
  </tr>
</table>
</body>
</html>

为什么IE总是提示:错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'但是我加了不少地方都不顶用呀,为什么呢?


(3299) 近视真的不能治么？真相何在？脱掉眼镜就在你轻轻的点击之中……试试贝茨方法、转眼球方法，周祥民方法。让你的眼睛瞬间舒畅！百度搜索一下“改善你的视力”，有很多方法的