asp页面里一行分三段,一页显示5行的分页问题

< %
dim i_1,i_count
i_1=int((rs.recordcount+1)/3)
if i_1>8 then
i_1=8
end if
'response.write i_1
for i_count=1 to i_1 % >

这里是第一个表格显示的数据程序(rs.movenext)
这里是第二个表格显示的数据程序(rs.movenext)
这里是第三个表格显示的数据程序(rs.movenext)

< % next% >

< %rs.close
set rs=nothing% >

这里是翻页程序

i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing