<%catid = request.QueryString("catid") if catid = "" then catid = "1" end if%> Al Saeed Equipment Trading Est.
<%openconnection openrecordset("select category from category where catid="&catid&"")%> <%closerecordset openrecordset("select * from subcategory where catid="&catid&" order by scatid") 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 for i = 1 to rs.pagesize%> <%if Not rs.eof then%> <%rs.movenext end if next%>
 Categories » <%=rs("category")%>
   &scatid=<%=rs("scatid")%>" class="sajan"><%=rs("subcategory")%>  

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