Home
About Us
Golfing Gifts
Contest
Join Our E-Mail List
Golfing Links
Contact Us
Join our Email List
Email:
US Visitors
 
<% Set rs = server.CreateObject("ADODB.Recordset") strSQL = "select * from Category where category_id=" & request("category_id") rs.open strSQL, dbCon If Not rs.EOF Then title = Trim(rs("category_name")) end if rs.close %>
<%=title%> Products
<% if not isnull(request("offset")) and request("offset")<>"" then offsetVal = CInt(request("offset")) end if 'response.Write "offsetVal:" & offsetVal Set rs = server.CreateObject("ADODB.Recordset") 'strSQL = "select * from subcategory where f_category_id=" & request("category_id") & " order by subcate_id desc" strSQL = "select * from subcategory where f_category_id=" & request("category_id") & " order by subcate_brand" rs.open strSQL, dbCon If Not rs.EOF Then ' *** must use MoveLast function in order to get record number *** rs.MoveLast 'response.Write "count:" & rs.recordCount recordNbr = rs.recordCount recPerPage = 6 pageNbr = recordNbr/recPerPage rs.moveFirst if offsetVal > 0 then for j = 1 to offsetVal rs.moveNext() next if recordNbr > offsetVal+recPerPage then response.Write"" endRec = recPerPage else response.Write"" endRec = recordNbr - offsetVal end if else if recordNbr > recPerPage then response.Write"" endRec = recPerPage else response.Write"" endRec = recordNbr End if End If 'response.Write "endRec:" & endRec count = 1 'Do while not rs.EOF for i = 1 to endRec if count=1 then response.Write"" response.Write"" if count=3 then response.Write"" rs.MoveNext count = count + 1 if count = 4 then count = 1 'loop next response.Write"" else response.Write"" End if rs.close dbCon.close %>
Previous Showing products " & offsetVal+1 & " to " & offsetVal+recPerPage & " of " & recordNbr & " Next
Previous Showing products " & offsetVal+1 & " to " & recordNbr & " of " & recordNbr & "
Showing products 1 to " & recPerPage & " of " & recordNbr & " Next
Showing products 1 to " & recordNbr & "
" & rs("subcate_brand") & "
" response.Write"" & rs("subcate_name") & "

" response.Write"

" response.Write"
" & title & " product is coming soon ...