急！报表显示问题？数据库跟踪有数 asp界面调试没有数据呢

set rs = server.CreateObject("adodb.recordset")
  sql="select a.rukushijian ,sum(cast(b.rkjiagehe as float)) as sumRkjagehe"
  sql= sql& " from pro_rukujiben a, pro_rukudan b where a.rukubianhao=b.rukubianhao and a.rukushijian between '"&date1&"' and '"&date2&"' group by a.rukushijian"  
  rs.PageSize = 25  
  rs.CursorLocation = 3
  rs.Open sql,conn,0,2,1  
  pre = true
  last = true
  page = trim(Request.QueryString("page"))
   
  if len(page) = 0 then
  intpage = 1
  pre = false
  else
  if cint(page) =< 1 then
  intpage = 1
  pre = false
  else
  if cint(page) >= rs.PageCount then
  intpage = rs.PageCount
  last = false
  else
  intpage = cint(page)
  end if
  end if
  end if
  if not rs.eof then
  rs.AbsolutePage = intpage
  end if


%>
<div align="center">
  <table width="766" height="34" border="0" cellpadding="1" cellspacing="0">
  <tr class="tr_southidc">
  <td><table width="766" height="34" border="0" cellpadding="1" cellspacing="0">
  <tr class="back_southidc">
  <td width="113"><div align="center">日期</div></td>
  <td width="113"><div align="center">合计金额</div></td>
  </tr>
 
  <%  
  for i=1 to rs.PageSize
  if not rs.EOF or not rs.BOF then exit for
  %>
  <tr class="tr_southidc">
  <td><div align="center"><%=rs("rukushijian")%></div></td>
  <td><div align="center"><%=rs("sumRkjagehe")%></div></td>

if not rs.EOF or not rs.BOF then exit for？这句话好像有问题当有数据的时候跳出循环？

你这样控制嘛
i=1
do while not rs.EOF 
<tr class="tr_southidc">
  <td><div align="center"><%=rs("rukushijian")%></div></td>
  <td><div align="center"><%=rs("sumRkjagehe")%></div></td>
i=i+1
if i>25 then exit do
rs.movenext
loop

应该是
if (rs.eof or rs.bof) then exit for  
吧。