<%
if category_id <> "" then
if parent_id <>"" then
SQL1 = "SELECT distinct a.catalog_id, sku,path,a.orderby FROM catalog as a,ccmap as b,category as c WHERE a.catalog_id=b.catalog_id and b.category_id=c.category_id and a.publish='1' and c.publish='1' and c.category_id='" & category_id & "' ORDER BY a.orderby"
else
SQL1 = "SELECT distinct a.catalog_id, sku,path,a.orderby FROM catalog as a,ccmap as b,category as c WHERE a.catalog_id=b.catalog_id and b.category_id=c.category_id and a.publish='1' and c.publish='1' and (c.parent_id='" & category_id & "' or c.category_id='" & category_id & "') ORDER BY a.orderby"
end if
else
SQL1 = "SELECT catalog_id, sku,path,orderby FROM catalog WHERE publish='1' ORDER BY orderby"
end if
if keyword<>"" then
SQL1 = "SELECT catalog_id, sku,path,orderby FROM catalog WHERE publish='1' and gb_keyword like '%" & keyword & "%' ORDER BY orderby"
end if
Set RS1 = Server.CreateObject("ADODB.Recordset")
RS1.Open SQL1,conn,3,2
if not RS1.eof then
RS1.PageSize = myPageSize
PageCount = RS1.PageCount
if CurrentPage <1 then
CurrentPage=1
else
if CurrentPage>PageCount then
CurrentPage=PageCount
end if
end if
maxpages=Pagecount
if isnumeric(request("Page")) then
mypage=int(request("Page"))
if mypage>maxpages then
mypage=maxpages
end if
if mypage<1 then
mypage=1
end if
else
mypage=1
end if
%>
|
VIP SIGN IN NOTE if you are our potential buyer,please
send
E-mail:marlbol.com@tom.com to us to
get
ID and Password to login
This will
bring you to access to
our database
for the
most important informations
including price lists
and download
catalogues etc.,Thank you.
|
