<%@LANGUAGE="VBSCRIPT"%> <% on error Resume Next Dim conn Dim rsProduct2, strSQL, strAco, strI, strAco1, strbutton, strNum2 Dim rsProduct, strID, strCriteria, strNum, strTotalRe Dim strItem, strItemID, strDescription, strBixQty, strWeight, strColour, strCategory, strImager, strPrice if Session("UsID")="" or Session("Country")="" then Session("Page")="300-one-piece-hooks-order.asp" response.redirect "login-to.asp" response.end end if strCriteria="Series 300 One-Piece Scanner Hook" strCriteria1="Label Holders" strSQL = "SELECT * FROM newproducts where category ='" + strCriteria + "' order by partNum" set conn = Server.CreateObject("adodb.connection") conn.open "polyman", "polyman", "newpolyman" set rsProduct = Conn.Execute(strSQL) strSQL = "SELECT * FROM newproducts where category ='" + strCriteria1 + "' order by partNum" set rsProduct2 = Conn.Execute(strSQL) if (not rsProduct.eof) then %> Polyman Plastics Inc.
 
 
<% 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") if Session("Country")="Canada" then strPrice=rsProduct("canadaprice") else strPrice=rsProduct("usprice") end if strPrice=formatCurrency(strPrice, 2) strI=100+strNum strAco="D"+ right(strI, 2) if strImager<>"" then strbutton="View_Order" %>
<%=strItemID %>
Description Box Qty Finish Weight Price
<%=strDescription %> <%=strBoxQty %> <%=strColour %> <%=strWeight %> <%=strPrice %>
Qty.
No. of Units
 
<% end if 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") strI=100+strNum strAco="#D"+ right(strI, 2) if (strNum Mod 2 <> 0) then %> <% else %> <% end if rsProduct.MoveNext() Wend strNum2=0 While (NOT rsProduct2.EOF) strNum=strNum+1 strNum2=strNum2+1 strItemID=rsProduct2("partNum") strDescription=rsProduct2("description") strColour=rsProduct2("colour") strWeight=rsProduct2("weight") strBoxQty=rsProduct2("boxqty") 'strImager=rsProduct("imagers") strI=100+strNum2 strAco="label-holders.asp#D"+ right(strI, 2) if (strNum Mod 2 <> 0) then %> <% else %> <% end if rsProduct2.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%>
<%=strItemID%> <%=strDescription%> <%=strBoxQty%> <%=strColour%> <%=strWeight%>
<%=strItemID%> <%=strDescription%> <%=strBoxQty%> <%=strColour%> <%=strWeight%>
* Colour Matches Available, Subject to Minimum Quantities *
* Colour Matches Available, Subject to Minimum Quantities *
   
   
•
 300 Series scan face area 1-7/8" W x 1-1/2" H
• 300 Series scan face area 1-7/8" W x 1-1/2" H
•
U-400 Scan Window is made of high-quality injection moulded plastic
•

5° angle to hold product secure • Ribs every half inch to hold merchandise neatly in place

• Scan window allows for easy and quick product identification and inventory scanning
•
Convenient one-piece design stabilizes unbalanced products
• Heavy duty scanning hook requires no assembly and can be easily installed and relocated
•
Replaceable scan windows make relabeling easy and mess free
• Eliminates the need for messy adhesive-backed labels
•
Hooks work well on pegboard with 1" centres and 1/4" holes, or slatwall
 
<% rsProduct.close set rsProduct=nothing if (not rsProduct.eof) then rsProduct2.close set rsProduct2=nothing end if conn.close set conn=nothing else response.write "No Data In Database" end if %>