<% Option Explicit Dim strCategoryName, strConn, cmdProducts, rsProducts, arProducts, arProductFieldsName Dim cmdPrices, rsPrices, arPrices, arQuantities, sQuantities, arPriceFieldsName strCategoryName = Request.Querystring("finditemnum") strConn = "Provider=SQLOLEDB;Initial Catalog=OL;Data Source=S60153;User Id=DotNetUser;Password=labels1982;" Set cmdProducts = Server.CreateObject("ADODB.Command") Set rsProducts = Server.CreateObject("ADODB.Recordset") cmdProducts.ActiveConnection = strConn cmdProducts.CommandText = "OLEA_S_OLEA_DECODE_ProductInfoForPageGeneration" cmdProducts.CommandType = adCmdStoredProc cmdProducts.Parameters.Append cmdProducts.CreateParameter("@ProductName", adVarChar, adParamInput, 20, "") cmdProducts.Parameters.Append cmdProducts.CreateParameter("@CategoryName", adVarChar, adParamInput, 20, strCategoryName) Set rsProducts = cmdProducts.Execute arProductFieldsName = Array ("Name", "ColorDescriptionPublic", "ColorID", "DiscountGroupID", "ColorDescription", "ColorCode") arProducts = rsProducts.GetRows(-1, 0, arProductFieldsName) arQuantities = Array ("100", "250", "500", "1000", "2000", "5000", "10000") sQuantities = Join(arQuantities, ", ") Set cmdPrices = Server.CreateObject("ADODB.Command") Set rsPrices = Server.CreateObject("ADODB.Recordset") cmdPrices.ActiveConnection = strConn cmdPrices.CommandText = "OLEA_S_OLEA_DECODE_QuantityDiscountRules" cmdPrices.Parameters.Append cmdPrices.CreateParameter("@ID", adInteger, adParamInput, , 0) cmdPrices.Parameters.Append cmdPrices.CreateParameter("@GroupID", adInteger, adParamInput, , 0) cmdPrices.Parameters.Append cmdPrices.CreateParameter("@Qty", adVarChar, adParamInput, 500, sQuantities) cmdPrices.CommandType = adCmdStoredProc Set rsPrices = cmdPrices.Execute arPriceFieldsName = Array ("DiscountGroupID", "Quantity", "PricePerSheet") arPrices = rsPrices.GetRows(-1, 0, arPriceFieldsName) %> <% Function GetPriceByQty(iThisQty, iThisDiscountGroupID) Dim j, dThisPrice dThisPrice = 0 For j = 0 To UBound(arPrices, 2) If CInt(arPrices(0, j)) = iThisDiscountGroupID Then If CInt(arPrices(1, j)) = iThisQty Then dThisPrice = CDbl(arPrices(2, j)) * iThisQty GetPriceByQty = FormatNumber(Round(dThisPrice, 2), 2) End If End If Next End Function %> <% Function GetTableHeight() Dim iThisTableHeight iThisTableHeight = 23 * (CInt(UBound(arProducts, 2)) + 6) End Function %> <% 'finditems = Request.Querystring("finditemnum") 'Dim strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/path/to/db.mdb")" 'Set Connect = Server.CreateObject ("ADODB.Connection") 'Connect.Open "pricing" 'Query = "SELECT * FROM itemdesc WHERE itemtype='"&finditems&"'" 'Set findItem = Connect.Execute(Query) %> Worldlabel.Com - CD labels for printers! CD stomper®, neato®, compatible, Cdr. labels, VHS labels, audio, dvd, and video labels. Mediaface, CD labeler, CD label software.
Item# WL- <%=strCategoryName%>
Back to <%=strCategoryName%> | Main Menu
Sheet Type:  # of Sheets Required: 
<%Dim iMaterial, iLastIndexMaterial iLastIndexMaterial = UBound(arProducts, 2) If iLastIndexMaterial > 0 Then %> <% End If%> <%Dim iQuantity%>
 
  <%Dim iProduct, iLastIndexProduct, iDiscountGroupID, iLastIndexQuantity, iQty iLastIndexProduct = UBound(arProducts, 2) iLastIndexQuantity = UBound(arQuantities) For iProduct = 0 To iLastIndexProduct iDiscountGroupID = arProducts(3, iProduct) %> <%Next%>

 Sheet Type

  Item#

Pricing (pull down to view)
 <%=arProducts(1, iProduct)%> WL-<%=arProducts(0, iProduct)%>
Your price per sheet (and per label) drops significantly as you increase your order quantity.   Higher quantities mean big savings!

336 Convent Avenue, Suite 2A
New York NY 10031 USA
Sales (866) 226-8669

e-mail: Click Here
Worldlabel.Com CD labels for your CD stomper, Neato and all other popular CD labeler and CD software. Mediaface labels including VHS, audio, video, Cdr, dvd, and diskette labels. We stock sizes and or labels come on 8.5 x 11" sheets.
We offer the following:Laser Labels, Inkjet Labels, Address Labels, Office Supplies, Printer Labels, Online shopping, Mailing labels, labels, Stationary supplies, self adhesive labels, ic-creations
<% 'Customer.close 'set Customer=nothing 'Connection.Close 'Set Connection = nothing %>