<%@LANGUAGE="VBSCRIPT"%> <% on error Resume Next Dim conn Dim rsProduct2, strSQL, strAco, strI 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")="200-double-hooks-order.asp" response.redirect "login-to.asp" response.end end if strCriteria="Series 200 Double Round Hooks" strCriteria1="Series 200 Double Round Hook (With Tabs USD-)" 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 and NOT rsProduct2.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 strItemID=rsProduct2("partNum") strDescription=rsProduct2("description") strColour=rsProduct2("colour") strWeight=rsProduct2("weight") strBoxQty=rsProduct2("boxqty") strImager=rsProduct2("images") if Session("Country")="Canada" then strPrice=rsProduct2("canadaprice") else strPrice=rsProduct2("usprice") end if strPrice=formatCurrency(strPrice, 2) strAco="U"+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() rsProduct2.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 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 *
   
•

Convenient one piece design stabilizes unbalanced products

• Perfect for carded merchandise displays
•
Angled tip and 10° pitch help to secure merchandise and hold carded items in place
• Hooks work well on pegboard with 1" centres and 1/4" holes, or slatwall
<% strNum=0 rsProduct2.Movefirst() While (NOT rsProduct2.EOF) strNum=strNum+1 strItemID=rsProduct2("partNum") strDescription=rsProduct2("description") strColour=rsProduct2("colour") strWeight=rsProduct2("weight") strBoxQty=rsProduct2("boxqty") 'strImager=rsProduct2("imagers") if strWeight="" then strWeight=" " end if strI=100+strNum strAco="#U"+ right(strI, 2) if (strNum Mod 2 <> 0) then %> <% else %> <% end if rsProduct2.MoveNext() Wend if (strNum Mod 2 = 0) then %> <% else %> <% end if %>
<%=strCriteria1%>
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 *
   
•

Double Round hooks are also available with optional label/tab for prices, descriptions or bar codes
• Optional tabs make product loading and product removal hassle free
 
<% rsProduct.close set rsProduct=nothing rsProduct2.close set rsProduct2=nothing conn.close set conn=nothing end if %>