<%catid = request.QueryString("catid") scatid=request.QueryString("scatid") prodid=request.querystring("prodid") page=request.QueryString("page") sortby=request.querystring("sortby") sr=request.QueryString("sr") if sortby ="" then sortby="id" end if sorttype=request.querystring("sorttype") if sorttype ="" then sorttype="ASC" end if%> Al Saeed Equipment Trading Est.
<%if rs3("imageb") <> "" then%> <%end if%>
<%openconnection if catid <> "" then openrecordset("select * from subproducts where catid = "&catid&" and scatid="&scatid&" and prodid="&prodid&" ORDER BY "&sortby&" "&sorttype&" ") openrecordset1("select * from category where catid = "&catid&"") openrecordset2("select * from subcategory where catid="&catid&" and scatid="&scatid&"") openrecordset3("select * from products where catid = "&catid&" and scatid="&scatid&" and prodid="&prodid&"") else openrecordset("select * from subproducts where catid="&catid&" and scatid = "&scatid&" and prodid ="&prodid&" ORDER BY "&sortby&" "&sorttype&" ") openrecordset1("select * from category where catid = "&catid&"") openrecordset2("select * from subcategory where catid="&catid&" and scatid="&scatid&"") openrecordset3("select * from products where catid = "&catid&" and scatid="&scatid&" and prodid="&prodid&"") end if Dim intPageCount, intRecordCount,intPage,intStart,intFinish rs.pagesize = 8 rs.cachesize = rs.pagesize intPageCount = rs.PageCount intRecordCount = rs.RecordCount intPage = Request.QueryString("page") If intPage = "" then intPage = 1 else intPage = Request.QueryString("page") end if If intRecordCount > 0 Then rs.AbsolutePage = intPage intStart = rs.AbsolutePosition If CInt(intPage) = CInt(intPageCount) Then intFinish = intRecordCount Else intFinish = intStart + (rs.PageSize - 1) End if End If %>
<%closerecordset1 'closerecordset2 'closerecordset3%> <%if rs.eof and rs.bof then strmsg = "True"%> <%else strmsg = "False" for i = 1 to rs.pagesize if Not rs.eof then if sr= rs("itemcode") then%> <%else%> <%end if%> <%rs.movenext end if next end if%>
 Categories » <%=rs1("category")%> » <%=rs2("subcategory")%> » <%=rs3("prodname")%>
Descending products code CODE Ascending product code Descending products descriptions DESCRIPTION Ascending Work PRICE(AED)*
Wholesale Retail
No product is found
   <%=rs("itemcode")%>  <%=rs("description")%>  -   - 
   <%=rs("itemcode")%>  <%=rs("description")%>  -   - 
<%if strmsg = "False" then%> <%end if%>

 * All prices are subjected to changes as per the current market fluctuations

 Currency Converter

<%if intpagecount >1 then %> <%end if%>
<%If intPage > 1 Then%> «Previous <%else%> <%if intPageCount> 0 then %> «Back <%end if%> <%End if%> [ <%for i = 1 to intPageCount%> <%if cint(intpage) = i then%> <%response.write (i)%> <%else%> <%response.write (i)%> <%end if%> <%if i <> intpagecount then %> | <%end if%> <%next%> ] <%If cInt(intPage) < cInt(intPageCount) Then%> Next» <%End If%>
 
<%=rs2("subcategory")%>
">
 
«Back