ASP 分页问题
<!--#include file="function/syscode.asp"--><%
dim nowYear,nowMonth,nowDay,nowHour,nowMinute,nowSecond,tqTime
MaxPerPage=20
session("activepage")=request("activepage")
%>
<HTML>
<HEAD>
<title></title>
<LINK href="css/front_css.css" rel="stylesheet">
</HEAD>
<BODY bottomMargin="0" leftMargin="0" topMargin="0" rightMargin="0" bgColor="#ecf4fb">
<table width="57%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="36" background="piciewbg_1.gif" ></td>
</tr>
<tr>
<td background="piciew_mid.jpg" align="center">
<table width="96%" border="0" align="center" cellpadding="4" cellspacing="0">
<tr>
<td>
<%
Set rsArticle= Server.CreateObject("ADODB.Recordset")
sql="select top 100 ArticleID,ClassID,Title,Author,CopyFrom,UpdateTime,Editor,TitleFontColor,TitleFontType,qishu,IncludePic,PaginationType,DefaultPicUrl"
sql=sql & " from Article "
sql=sql & " where Deleted=0 order by UpdateTime desc"' and (BSNM='"& application("stnm")&"' or IsAll=1) order by UpdateTime desc"
rsArticle.open sql,conn,1
rsArticle.PageSize=2
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then
epage=1
if epage>rsArticle.pagecount then
epage=rsArticle.pagecount
else
epage=1
end if
rsArticle.absolutepage=epage
if rsArticle.bof and rsArticle.eof then
response.write "<li>没有任何文章<>"
else
for i=0 to 5
%>
<tr><td>
<%
call ArticleContent(540,true,true,false,1,false)
'Response.Write "<li>"+rsArticle(2).Value +"<>"
%>
</td></tr>
<%
rsArticle.movenext()
next
exit for
end if
rsArticle.close
%></td>
</tr>
<tr>
<td>
<p align="center">
<a href="" style="color:black">首页</a>
<a href="ShowArticleList.asp" style="color:black">前一页</a>
<a href="ShowArticleList.asp" style="color:black">后一页</a>
<a href="ShowArticleList.asp" style="color:black">末页</a>
</p>
</td>
</tr>
<tr>
<td align="right"><a href="#" style="color:black;" onclick="javascript:history.back()">返回</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="18" background="piciew_down.jpg"></td>
</tr>
</table>
</BODY>
</HTML>
该怎么循环要输出的字段啊！为啥我一循环就出错啊，我都找不倒错误！
