|
|
<%dim sql,rows,page,rall,tpage
page=request("page")
if len(page)<>0 and isnumeric(page) then
page=int(page)
else
page=1
end if
set rs=server.createobject("adodb.recordset")
sql="select * from products where sel=0 order by proid desc"
rs.open sql,conn,1,1
if rs.eof then
tpage="no"
response.Write(" | Not currently available! | ")
else
rows=0
rall=rs.recordcount
const size=16
rs.pagesize=size
tpage=int(rall/size)
if rall mod size<>0 then tpage=tpage+1 end if
if page>tpage or page<1 then page=1 end if
rs.absolutepage=page
while not rs.eof and n |
<%if rows=3 then
rows=0%>
<%else
rows=rows+1
end if
rs.movenext
n=n+1
Wend
rs.close
set rs=nothing
end if%>
|
|
<%if tpage<>"no" then%>
<%if tpage=1 then%>
First Previous Next Final
<%else
select case page
case 1%>
First Previous Next Final
<%case tpage%>
First Previous Next Final
<%case else%>
First Previous Next Final
<%end select%>
Total <%=tpage%> Page,<%=page%>/<%=tpage%> Page
<%end if
end if%>
|
|
|
