<%
curpage=trim(request("curpage"))
if curpage="" then
curpage=1
end if
rs.pagesize=8
rs.absolutepage=curpage
if rs.recordcount/rs.pagesize=rs.recordcount\rs.pagesize then
n=rs.recordcount\rs.pagesize
else
n=rs.recordcount\rs.pagesize+1
end if
i=0
do while not rs.eof
%>
<%
rs.movenext
i=i+1
if i>=8 then exit do
loop
%>
