<%
set rst=server.createobject("adodb.recordset")
sql="select * from BigClass where Ist = true "
rst.open sql,conn,1,1
if Rst.eof or Rst.bof then
response.write"
<%
BigClassID=Trim(Request.QueryString("BigClassID"))
if BigClassID="" then
response.write " 所有產品"
else
sqlBigClass="select * from BigClass where BigClassID=" & BigClassID
set rsBigClass=conn.execute(sqlBigClass)
response.write " " & rsBigClass("BigClassName")
end if
%>
<%
BigClassID=Trim(Request.QueryString("BigClassID"))
if BigClassID="60" or BigClassID="61" or BigClassID="63" then
%>買滿$300免費送貨 買滿20張$15.00/張 買滿50張$8.00/張
買滿100張$7.00/張 買滿200張$6.00/張 買滿500張$5.00/張
<%
elseif BigClassID="62" then %>
<% end if
%>
<%
BigClassID=Trim(Request.QueryString("BigClassID"))
page=clng(request("page"))
set rsProduct=server.createobject("adodb.recordset")
if BigClassID="" then
sqlProduct="select * from Product where Passed=True and Ist=true and SmallclassName=''" & "ORDER BY ID DESC"
else
sqlProduct="select * from Product where Passed=True and Ist=true and BigClassID =" & BigClassID & " and SmallclassName=''" & "ORDER BY ID DESC"
end if
rsProduct.open sqlProduct,conn,1,1
if rsProduct.eof and rsProduct.bof then
response.write"
還沒有添加產品
"
else
rsProduct.PageSize=10
if page=0 then page=1
pages=rsProduct.pagecount
if page > pages then page=pages
rsProduct.AbsolutePage=page
for j=1 to rsProduct.PageSize
%>