asp打印问题，为什么一页打印10条数据，第二页就打印不出来了，高手指定一下

[pjg1989]

<%
dim pages
dim maxnums
maxnums=ubound(fTArrBT)
if maxnums<10 then
pages=1
else if maxnums<20 then
pages=2
else if maxnums<30 then
pages=3
else if maxnums<40 then
pages=4
else if maxnums<50 then
pages=5
else
pages=6
end if
for t=1 to pages
if t>1 then
%>
<p style='page-break-after:always'></p>
<%
end if
%>
//下面这点是要循环打印的，每页10条
<td class="TdLine" width="60" valign="top"><b>档 号</b></td>
<td class="TdLine" width="400" valign="top" nowrap style="padding-left:1px;font: normal 9pt '宋体'">
<%
if pages=1 then
for i=lbound(fTArrBT) to ubound(fTArrBT)
if fDH=" " then
Response.Write "<a href=JavaScript:openDetail('" & fSourceTable & "'," & fArrID(i) & ")>" & i+1 & "、" & fTArrBT(i) & "</a><BR>"
else
if (i>=lbound(fADH)) and (i<=ubound(fADH)) and (i>=lbound(fArrID)) and (i<=ubound(fArrID)) then
'Response.Write "<a href=JavaScript:openDetail('" & fSourceTable & "'," & fArrID(i) & ")>" & i+1 & "、" & fADH(i) & " >> " & fTArrBT(i) & "</a><BR>" '这是源代码，输出的是档号和标题
Response.Write "<a href=JavaScript:openDetail('" & fSourceTable & "'," & fArrID(i) & ")>" & i+1 & "、" & fADH(i) & "  " & "</a><BR>" '这里值输出档号
elseif (i>=lbound(fADH)) and (i<=ubound(fADH)) then
Response.Write "<a href=JavaScript:openDetail('" & fSourceTable & "',0)>" & i+1 & "、" & fADH(i) & " >> " & fTArrBT(i) & "</a><BR>"
elseif (i>=lbound(fArrID)) and (i<=ubound(fArrID)) then
Response.Write "<a href=JavaScript:openDetail('" & fSourceTable & "'," & fArrID(i) & ")>" & i+1 & "、" & fTArrBT(i) & "</a><BR>"
else
Response.Write "<a href=JavaScript:openDetail('" & fSourceTable & "',0)>" & i+1 & "、" & fTArrBT(i) & "</a><BR>"
end if
end if
next
else

leftnum=10*(t-1)
rightnum=10*(t-1)+9
if rightnum>ubound(fTArrBT) then rightnum=ubound(fTArrBT)
for i=leftnum to rightnum
if fDH=" " then
Response.Write "<a href=JavaScript:openDetail('" & fSourceTable & "'," & fArrID(i) & ")>" & i+1 & "、" & fTArrBT(i) & "</a><BR>"
else
if (i>=lbound(fADH)) and (i<=ubound(fADH)) and (i>=lbound(fArrID)) and (i<=ubound(fArrID)) then
'Response.Write "<a href=JavaScript:openDetail('" & fSourceTable & "'," & fArrID(i) & ")>" & i+1 & "、" & fADH(i) & " >> " & fTArrBT(i) & "</a><BR>" '这是源代码，输出的是档号和标题
Response.Write "<a href=JavaScript:openDetail('" & fSourceTable & "'," & fArrID(i) & ")>" & i+1 & "、" & fADH(i) & "  " & "</a><BR>" '这里值输出档号
elseif (i>=lbound(fADH)) and (i<=ubound(fADH)) then
Response.Write "<a href=JavaScript:openDetail('" & fSourceTable & "',0)>" & i+1 & "、" & fADH(i) & " >> " & fTArrBT(i) & "</a><BR>"
elseif (i>=lbound(fArrID)) and (i<=ubound(fArrID)) then
Response.Write "<a href=JavaScript:openDetail('" & fSourceTable & "'," & fArrID(i) & ")>" & i+1 & "、" & fTArrBT(i) & "</a><BR>"
else
Response.Write "<a href=JavaScript:openDetail('" & fSourceTable & "',0)>" & i+1 & "、" & fTArrBT(i) & "</a><BR>"
end if
end if
next
end if
%>
</td>
</tr>