<%catid = request.QueryString("catid") scatid=request.QueryString("scatid") prodid=request.QueryString("prodid") page=request.QueryString("page") sortby=request.querystring("sortby") if sortby ="" then sortby="prodid" end if sorttype=request.querystring("sorttype") if sorttype ="" then sorttype="ASC" end if%> Al Saeed Equipment Trading Est.
<%openconnection openrecordset1("select * from category where catid="&catid&"") openrecordset2("select * from subcategory where catid="&catid&" and scatid="&scatid&"")%> <%closerecordset1 closerecordset2 if catid <> "" and scatid <> "" then openrecordset("select * from products where catid = "&catid&" and scatid="&scatid&" ORDER BY "&sortby&" "&sorttype&" ") else openrecordset("select * from products where catid="&catid&" and scatid = "&scatid&" ORDER BY "&sortby&" "&sorttype&" ") end if Dim intPageCount, intRecordCount,intPage,intStart,intFinish rs.pagesize = 5 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 if rs.eof and rs.bof then%> <%else for i = 1 to rs.pagesize%> <%if Not rs.eof then%> <%if rs("images") <> "" then%> <%end if%> <%if rs.recordcount > 1 then%> <%end if%> <%rs.movenext end if next end if%>
 Category » <%=rs1("category")%> »  <%=rs2("subcategory")%>

 No product is found
   &scatid=<%=rs("scatid")%>&prodid=<%=rs("prodid")%>" class="sajan"><%=rs("prodname")%>&scatid=<%=rs("scatid")%>&prodid=<%=rs("prodid")%>" >">

<%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%>