<%@LANGUAGE="VBSCRIPT"%> <% on error Resume Next Dim conn Dim rsProduct2, strSQL, strAco, strI, strAco1, strbutton 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")="100-straight-hooks-order.asp" response.redirect "login-to.asp" response.end end if strCriteria="Series 100 Straight Hooks" 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) 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("images") 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 *
   
 
   
•

Hooks work well on pegboard with 1"centres and 1/4" holes, or slatwall

• Ribs every half inch to prevent product from sliding
•
Angled tip and 10° pitch help to secure merchandise
• Strong, durable, all-in-one design
•
Ideal for almost any application
• 1" Short Hook perfect for clocks, pictures, and plants or for single unit display
•
Different lengths allow you to create a tiered display, providing you with more display options
 
<% rsProduct.close set rsProduct=nothing conn.close set conn=nothing else response.write "No Data In Database" end if %>