<%
dim rs,Allrecord,Pagesize,Allpage,ThisPage,i
if request("page")="" then
ThisPage=1
else
ThisPage=request("page")
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from yinet_products order by id desc",conn,1,1
rs.Pagesize=6
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then
ThisPage=1
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
if rs.eof and rs.bof then
response.write "
