<% TimeOutCheckStocklist(session("MemberUserID")) %> Lavano Marketing Pte Ltd : Premium Quality Sanitary Ware Products
   
     
 
 
<%if Session("MemberUserID") <> "" then%> Logout <%end if%>
 
     
 
 
<% ' Declare our vars Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim iPageCurrent 'The page we want to show Dim objPagingConn 'The ADODB connection object Dim objPagingRS 'The ADODB recordset object Dim iRecordsShown 'Loop controller for displaying just iPageSize records Dim I 'Standard looping var ' Get parameters iPageSize = 12 ' You could easily allow users to change this ' Retrieve page to show or default to 1 If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection=objConn rs.CursorType = 3 'adOpenDynamic rs.CursorLocation = 3 'adUseServer rs.LockType = 1 'adLockOptimistic rs.Source = "SELECT * FROM category where parent is null order by ordno asc" rs.Open if not rs.EOF then 'set page size rs.PageSize=iPageSize rs.cachesize=iPageSize iPageCount=rs.PageCount if iPageCurrent > iPageCount then iPageCurrent = iPageCount If iPageCurrent < 1 then iPageCurrent = 1 rs.AbsolutePage = iPageCurrent %>
<%iRecordsShown=0%> <%Do while iRecordsShown < iPageSize%> <% For i=0 to 3 if rs.EOF then %> <%' response.End() exit for end if %> <% rs.MoveNext next if i<>0 then rs.move -1*i end if %> <% for i=0 to 3 if rs.EOF then ' response.End() exit do %> <% end if %> <% rs.movenext next %> <% iRecordsShown = iRecordsShown + i loop %>
   
<%if strcomp(rs.Fields("name"), "") <> 0 then%>
<%= rs.Fields("name") %>
<%end if%> <%set rs1 = objconn.execute("select * from category where parent = " & rs("id")& "") if not rs1.eof then do until rs1.eof %> <%set rs2 = objconn.execute("select * from product where catid = "& rs1("id")&"") do until rs2.eof%> <%rs2.movenext loop%> <%rs1.movenext loop%> <%else%> <%set rs2 = objconn.execute("select * from product where catid = "& rs("id")&"") do until rs2.eof%> <%rs2.movenext loop%> <%end if%>
<%=rs1("name")%>
" target="_blank" class="contentwhite"><%=rs2("sPDF")%>
" target="_blank" class="contentwhite"><%=rs2("sPDF")%>