<%@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")="400-two-piece-hooks-order.asp" response.redirect "login-to.asp" response.end end if strCriteria="Series 400 Two-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 *
   
   
•
 U-400 Series scan face area 1-7/8”W x 1-1/2”H
• 10° angle to hold product secure
•
Works directly under shelving for tight, hard to get at, merchandising locations
•

Two-piece design for easy installation and loading

• Snaps into place for a snug fit
•
Turns wasted space into profitable selling area
• Designed to fit all contemporary displays
•
Heavy reinforced back for extra support
• Ribs every half inch to hold merchandise neatly in place
•
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 %>