<% 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%>

<% call ShowClassGuide() %> PRODUCTS SEARCH:

<%Do While Not Rs.EOF And Min<=Max/5%> <%i=1 Do While i<=5 IF Not Rs.EOF Then%> <%Rs.MoveNext Else%> <%End IF i=i+1 Loop%> <%Min=Min+1 Loop%>
&BigClassID=<%=Rs("BigClassID")%>&SmallClassID=<%=Rs("SmallClassID")%>"> " width="150" height="142" id="item<%=Rs("ID")%>" style="FILTER: alpha(opacity=100)" onMouseOver="makevisible(this,1);" onMouseOut="makevisible(this,bgColor='#989898')">
   <%=Rs("Product_Id")%>
  

Totals <%=Records%> Pages<%=Pageno%>/<%=Pages%>

กก
กก
<%else response.Write("
") response.Write("     No product!") End IF Rs.Close:Set Rs=Nothing%>