<%@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")="label-holders-order.asp" response.redirect "login-to.asp" response.end end if strCriteria="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) 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 %>
<%=strCriteria %>
PART # DESCRIPTION BOX QTY FINISH WEIGHT
<%=strItemID%> <%=strDescription%> <%=strBoxQty%> <%=strColour%> <%=strWeight%>
<%=strItemID%> <%=strDescription%> <%=strBoxQty%> <%=strColour%> <%=strWeight%>
   
 
   
•
 Essential for quick inventory scanning and product identification
• Transparent view protects labels and locks securely onto hooks, providing a clean and neat appearance
•
Durable construction and innovative design deters unwanted label movement and eliminates the need for expensive and messy adhesive backed labels
• The two-piece dual scan window has a standard base window size, while the outer flip window can be customized to any width
 
<% 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 %>