<%@LANGUAGE="VBSCRIPT"%> <% on error Resume Next Dim conn Dim rsProduct2, strSQL, strAco, strI, strAco1, strbutton Dim rsProduct, strID, strCriteria, strNum, strTotalRe, strSortID, strOldSort, strSorAcr Dim strItem, strItemID, strDescription, strBixQty, strWeight, strColour, strCategory, strImager, strPrice if Session("UsID")="" or Session("Country")="" then Session("Page")="furniture-components-order.asp" response.redirect "login-to.asp" response.end end if strCriteria="Furniture Components" strSQL = "SELECT * FROM newproducts where category ='" + strCriteria + "' order by sortid" set conn = Server.CreateObject("adodb.connection") conn.open "polyman", "polyman", "newpolyman" set rsProduct = Conn.Execute(strSQL) if (not rsProduct.eof) then %> Polyman Plastics Inc.
 
 

   
  FURNITURE DIVISION
Drawer Handles
3" Wheels for Under-Bed Drawers
Hinge Pins
L-Brackets
Conformat Cover Caps
Phillips Cover Caps
Usage mainly in the knock-down and ready-to-assemble furniture sector
<% strNum=0 While (NOT rsProduct.EOF) strNum=strNum+1 strItemID=rsProduct("partNum") strDescription=rsProduct("description") strColour=rsProduct("colour") strWeight=rsProduct("weight") strBoxQty=rsProduct("boxqty") strImager=rsProduct("images") strSortID=rsProduct("sortid") if Session("Country")="Canada" then strPrice=rsProduct("canadaprice") else strPrice=rsProduct("usprice") end if strPrice=formatCurrency(strPrice, 2) if strSortID<>strOldSort then strSorAcr="" else strSorAcr="" end if strAco=strItemID if strImager<>"" then strbutton="View_Order" %>
<%=strSorAcr %>
<%=strItemID %>
Description Box Qty Finish Weight Price
<%=strDescription %> <%=strBoxQty %> <%=strColour %> <%=strWeight %> <%=strPrice %>
Qty.
No. of Units
 
<% end if strOldSort=strSortID rsProduct.MoveNext Wend %> 		 
<% strNum=0 rsProduct.Movefirst() While (NOT rsProduct.EOF) strNum=strNum+1 strItemID=rsProduct("partNum") strDescription=rsProduct("description") strColour=rsProduct("colour") strWeight=rsProduct("weight") strBoxQty=rsProduct("boxqty") 'strImager=rsProduct("imagers") strAco="#"+ strItemID if (strNum Mod 2 <> 0) then %> <% else %> <% end if rsProduct.MoveNext() Wend if (strNum Mod 2 = 0) then %> <% else %> <% end if %>
<%=strCriteria %>
PART # DESCRIPTION BOX QTY FINISH WEIGHT
<%=strItemID%> <%=strDescription%> <%=strBoxQty%> <%=strColour%> <%=strWeight%>
<%=strItemID%> <%=strDescription%> <%=strBoxQty%> <%=strColour%> <%=strWeight%>
* Colour Matches Available, Subject to Minimum Quantities *
* Colour Matches Available, Subject to Minimum Quantities *
   
New Curved Drawer Handle (96-CURV)
• Used primarily for ready-to-assemble drawer and door applications
• 5" (130 mm) and 96 mm hole centres
• Uses No. 8 wood screw
   
Drawer Handle (HDL-96)
• Used primarily on drawer and door applications
• 4" and 96 mm hole centres
• Uses No. 8 wood screw
   
  3" Drawer Wheel (3-W)
• The usual application for this item is for under-bed drawers and space-savers
   
  Hinge Pin (H-PIN)
• 6 mm pin, ideal for lightweight doors on all ready-to-assemble furniture
   
  L-Brackets (L-BRAC)
• Made especially for furniture joints and wall mounting for knock-down furniture
   
  11" Drawer Glide (EZGL)
• Comes with inbuilt drawer stop for pre-grooved drawers
   
  13" Drawer Glide (GLD)
• Comes with 2 inbuilt locating pins to simplify installation further
 
   
  12 mm Phillips Cover Caps (P-CAP)
• Fits No. 8 and No. 10 flathead Phillips and Pozidrive screws
   
  12 mm Confirmat Cover Caps (C-CAP)
• Fits 4 mm hex drive screws
   
  Shelf Supports (SS)
• 5 mm hole, 3/16" – ideal for all shelving situations and applications




 

 

 

 

 
<% rsProduct.close set rsProduct=nothing conn.close set conn=nothing else response.write "No Data In Database" end if %>