超急分页有关问题,为什么小弟我的代码,前一页,后一页,首页都没有有关问题,到最后一页就出错了

超急!!!!分页问题,为什么我的代码,前一页,后一页,首页都没有问题,到最后一页就出错了
超急!!!!分页问题,为什么我的代码,前一页,后一页,首页都没有问题,到最后一页就出错了.
代码如下:
NewsType=request.querystring( "NewsType ")
'读取新闻资料,并分页显示在网页上
Set   rst=   Server.CreateObject( "ADODB.Recordset ")
csql= "select   *   from   News   where   NewsType= "&SqlValue(NewsType)& "   order   by   NewsID   DESC "
Rst.open   csql,conn2,1,1
if   rst.eof   then     '如果记录为空则执行相关操作,暂空
show   " <br> <br> <br> <div   align= " "center " "> 暂无新闻，敬请期待！ </div> "
response.end
rst.close
set   rst=nothing
else
rst.pagesize=pgsize
pgcount=rst.pagecount
'初始化当前页
if   trim(request.querystring( "page "))= " "   or   not   isnumeric(trim(request.querystring( "page ")))   then
page=1
else
page=cint(trim(request.querystring( "page ")))
if   page <0   then   page=1
if   page> pgcount   then   page=pgcount
end   if
rst.AbsolutePage=page     '设置当前页

i=1
show   " <table   width= " "98% " "     border= " "0 " "   cellspacing= " "2 " "   cellpadding= " "0 " "> "
do   while   not   rst.eof   and   i <=pgsize
show   " <tr   onmouseover= " "this.bgColor= '#FEF9F4 '; " "   onmouseout= " "this.bgColor= ' '; " "> "
show   " <td   align= 'center '   width= " "25 " "   height= " "25 " "> <img   src= " "images/home_drop02.gif " "   width= " "4 " "   height= " "4 " "> </td> "
show   " <td   align= 'left '   height= " "25 " "> "
show   " <a   href= " "shownews.asp?id= "   &   rst( "NewsID ")   &   " " "   target= " "_blank " "> "
'show   " <img   src= " "images\arrow03.gif " "   border= " "0 " "   align= " "absmiddle " "> &nbsp; "  
show     rst( "Title ")   &   " </a> "
show   " <td   width= " "70 " "> <font   color= " "#D6CFD5 " "> "   &   formatdatetime(rst( "UploadTime "),vbshortdate)   &   " </font> </td> </tr> "
i=i+1
rst.movenext
loop

'显示新闻列表结束
show   " </table> <br> <br> "

'显示新闻面页链接
show   " <table   width= " "98% " "   height= " "30 " "     border= " "0 " "   cellspacing= " "0 " "   cellpadding= " "0 " "   style= " "border-top:   1px   dashed   #D7D5D9 " "> "
show   " <tr   height= " "30 " "> "

show   " <td   align= " "center " "   valign= " "bottom " "> "
show   " <font   color=red> "   &   page   &   " </font> "   &   "/ "   &   pgcount   &   "&nbsp;&nbsp; "
show   "每页显示   "   &   pgsize   &   "   条&nbsp;&nbsp; "
show   "共   "   &   rst.recordcount   &   "   条&nbsp;&nbsp;&nbsp;&nbsp; <font   face=webdings> "
if   page <=1   then
show   "9&nbsp;&nbsp;7&nbsp;&nbsp; "
else
show   " <a   href=News.asp?page=1&NewsType= "&rst( "NewsType ")& "> 9 </a> &nbsp;&nbsp; "
show   " <a   href=News.asp?page= "   &   page-1   &   "&NewsType= "&rst( "NewsType ")& "> 7 </a> &nbsp;&nbsp; "
end   if
if   page <pgcount   then
show   " <a   href=News.asp?page= "   &   page+1   &   "&NewsType= "&rst( "NewsType ")& "> 8 </a> &nbsp;&nbsp; "
show   " <a   href=News.asp?page= "   &   pgcount   &   "&NewsType= "&rst( "NewsType ")& "> : </a> "
else
show   "8&nbsp;&nbsp;: "
end   if
show   " </font> "
show   " </td> </tr> </table> "
rst.close
set   rst=nothing
end   if

[解决办法]
up
[解决办法]
学习
[解决办法]
do while not rst.eof or i <=pgsize
可以将or i <=pgsize去掉，是没有用的
你的分页做的不好，如果用do循环就不要再用变量i了，
如果用变量i就用for循环。

[解决办法]
do while (not rst.eof and i <=pgsize)

这样试一试
多加一个 "( ) "