}
if productCat="" or productCat="40" then
sqlstr="select id,productTopInfo,productImage,productPrice,productfactor,productTitle,TopProducts from Products where productCat=40 or TopProducts=true"
elseif productCat="39" then
sqlstr="select id,productTopInfo,productImage,productPrice,productfactor,productTitle,TopProducts from Products where productCat=39 or sales=true"
else
sqlstr="select id,productTopInfo,productImage,productPrice,productfactor,productTitle,TopProducts from Products where productCat like '"&Request.QueryString("productCat")&"'"
end if
sqlstr=sqlstr &" and NotOnLine=false"
sqlstr=sqlstr & " order by order_1"
rs.Open sqlstr,con,3,3
if rs.RecordCount<1 then
Response.Write("| לא קימים כרגע מוצרים בקטגוריה זו |
")
else
rs.PageSize=12
rs.AbsolutePage=intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0
%>
| <%call oneProduct()%> |
<%
intRecCount = intRecCount - 1
rs.MoveNext
if not rs.EOF And intRecCount > 0 then
%>
<%call oneProduct()%> |
<%
intRecCount = intRecCount - 1
rs.MoveNext
end if
loop
rs.Close()
end if
%>
|
<%
for i=1 to intPageCount
if intPageCount>1 then
Response.Write(""&i&" ")
end if
next
%>
|