<%
dim big,small
big=request.QueryString("big")
small=request.QueryString("small")
set rs=server.CreateObject("adodb.recordset")
if big="" and small="" then
sql="select * from clkj_Products order by clkj_paixu,clkj_prid asc"
else if big<>"" and small="" then
sql="select * from clkj_Products where clkj_BigClassID="&big&" order by clkj_paixu,clkj_prid asc"
else if small<>"" and big="" then
sql="select * from clkj_Products where clkj_SmallClassID="&small&" order by clkj_paixu,clkj_prid asc"
end if
end if
end if
rs.open sql,conn,1,1
If rs.eof Then
response.write"
Sorry, no related products!
"
Else
rs.pagesize=clkj_config_sl
page=request("page")
If Not Isnumeric(page) or page="" Then
page=1
else
page=cint(page)
End if
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.AbsolutePage = page
%>