<%
sqlProduct="select "
sqlProduct=sqlProduct & " * from Product where newproduct<>true "
if BigClassid<>"" then
sqlProduct=sqlProduct & " and BigClassid="&BigClassid
if SmallClassid<>"" then
sqlProduct=sqlProduct & " and SmallClassid="&SmallClassid
end if
end if
sqlProduct=sqlProduct & " order by orde,id"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sqlProduct,conn,1,1
IF Not(Rs.BOF And Rs.EOF) Then
Rs.Pagesize=15
Pages=Rs.PageCount
Records=Rs.RecordCount
Pageno=Request("Pageno")
IF Pageno="" Or Pageno<1 Then Pageno=1
Pageno=Cint(Pageno)
IF Pageno>Pages Then Pageno=Pages
Rs.Absolutepage=Pageno
Min=1
Max=Rs.Pagesize%>