CATALOG
<%Set rs=Server.CreateObject("ADODB.recordset") sql="select * from class_pay order by orderID " rs.open sql,conn,1,3 do while not rs.eof set rss=Server.CreateObject("ADODB.recordset") sql1="select * from pays where classid="&rs("orderid") rss.open sql1,conn,1,3 i=0 do while not rss.eof i=i+1 rss.movenext loop %>     "> <%response.Write(rs("classname"))%>(<%=i%>) <%response.Write "

" rs.movenext loop rss.close rs.close %>


Choose the category to see products!
<% Set rss=Server.CreateObject("ADODB.recordset") sql1="SELECT * FROM pays WHERE classname LIKE '%"&request("keywords")&"%' or title LIKE '%"&request("keywords")&"%' ORDER BY id DESC" 'sql1="SELECT * FROM pays WHERE title LIKE '%"&request("keywords")&"%' ORDER BY id DESC" page=request.querystring("page") if page="" then page=1 if not(isnumeric(page)) then page=1 if page<1 then page=1 page=int(page) rss.open sql1,conn,2,3 if rss.bof or rss.eof then%> <%else rss.pagesize=27 totalrec=rss.recordcount totalpage=rss.pagecount if page>totalpage then page=totalpage 'rss.absolutepage=page rss.cachesize=rss.pagesize %>
   Searching>><%=request("keywords")%>
<%response.write "Sorry!There are no products what you want!"%>
   Searching>><%=request("keywords")%>
<% i=0 do while not rss.eof and (i <% if (i mod 3=0) and i>=3 then%> <%end if rss.movenext loop end if%>
<%if rss.pagecount<>1 and rss.pagecount<>0 then%> <%if page>1 then%> [First] [Up Page] <%if page [Next Page] [Last] <%else%> [Next Page] [Last] <%end if%> <%else%> [First] [Up Page] [Next Page] [Last] <%end if %> <%else%> [First] [Up Page] [Next Page] [Last] <%end if%> [Page:<%=page%>/<%=rss.PageCount%>] [<%=rss.PageSize%> Articles/Page]