asp的一个分页问题？？？

我们网站以前的一个程序员做的分页是这样的
<%
sql_all="select productid,productname,hot,tuicommend,taocommend,dancommend,cruisename,shipname,cruiseen,shipurl,passarea,passregion,priceadult,moneytype,typeshow,pricenotes,stardate,starport,endport,totalday,prophoto from v_product where "&sql&" and delflag=0 order by tuicommend desc,sortid desc"
'response.Write(sql_all)
set rs=server.createobject("adodb.recordset")
rs.open sql_all,conn,3,1

rs.pagesize=pagesz
total=rs.recordcount
pa=cint(total/pagesz)
tmp=total/pagesz-pa
    if tmp>0 then pa=pa+1

if pa=0 then pa=1
if  page="" then page=1
if  page < 1 then page=1
if cint(page)>rs.pagecount then page=rs.pagecount
if not rs.eof then
rs.absolutepage=page
end if
if total=0 then
  %>
          暂无线路
          <%else%> 


<%
  rs.movenext
  if rs.bof or rs.eof then exit for
    next
  %>
        <table width="100%" border="0" cellspacing="0" cellpadding="5">
          <tr>
  &nb