ASP控制每页打印行数(2)

      <td align="center" height="20" bgcolor="#BDCBEE" width="168" >商品名称（规格）</td>            
      <td align="center" height="20" bgcolor="#BDCBEE" width="121" >客户</td>            
      <td align="center" height="20" bgcolor="#BDCBEE" width="30" >数量</td>            
      <td align="center" height="20" bgcolor="#BDCBEE" width="24" >单位</td>            
      <td align="center" height="20" bgcolor="#BDCBEE" width="50" >销售价</td>            
      <td align="center" height="20" bgcolor="#BDCBEE" width="23" >折%</td>            
      <td align="center" height="20" bgcolor="#BDCBEE" width="52" >进货价</td>            
      <td align="center" height="20" bgcolor="#BDCBEE" width="55" >小计</td>            
      <td align="center" height="20" bgcolor="#BDCBEE" width="45" >利润</td>            
      <td align="center" height="20" bgcolor="#BDCBEE" width="25" >付款</td>            
      <td align="center" height="20" bgcolor="#BDCBEE" width="61" >销售日期</td>            
    </tr>
  </table>
<%            
  moncount2=0            
  moncount5=0            
  Do while not rs1.eof 
%>
<table border="1" cellpadding="0" cellspacing="0" width="740" align="center" style="border-collapse:collapse; font-size:10pt;color:#000000" bordercolor="#000000">
<%
for i=1 to pagenum
if not rs1.eof then
  if trim(rs1("fukuan"))="欠款" then            
  moncount6=Csng(rs1("lirun1"))            
  moncount5=moncount5+moncount6