<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "324, 325, 326, 327, 360, 361, 362, 363" strThisBackPage = "products" %> <% '=============================================== ' CactuShop ASP Shopping Cart ' ©1999-2004 Cactusoft Ltd. www.cactusoft.com '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== %>

<% '----------------------------------------------- 'THIS NESTED QUERY DRAWS VERSION TABLE '----------------------------------------------- strQuery = "SELECT * FROM tblCactuShopVersions WHERE V_Quantity0 ORDER BY (V_Quantity+0.001)/V_QuantityWarnLevel" Call ExecuteSQL(strQuery, numCursorType, objRecordSet) %> <% WriteString("PageTitle_StockLevelWarnings") %> <% do while not objRecordSet.EOF numBackgroundCounter = numBackgroundCounter + 1 If numBackgroundCounter mod 2 = 0 then strBgColour = "#EEEEEE" strBgColour2 = "#FFAAAA" else strBgColour = "#DDDDDD" strBgColour2 = "#FFBBBB" end if If objRecordSet("V_Quantity") <= 0 then strBgColour = strBgColour2 %> <% objRecordSet.moveNext loop objRecordSet.Close %> <% WriteString("ContentText_CodeNumber") %> <% WriteString("ContentText_Name") %> <% WriteString("ContentText_Qty") %> <% WriteString("ContentText_WarnLevel") %>   <% =objRecordSet("V_CodeNumber") %> <% =objRecordSet("V_Name" & CStr(numLanguageID)) %> <% =objRecordSet("V_Quantity") %> (<% =objRecordSet("V_QuantityWarnLevel") %>) &P_ID=<% =objRecordSet("V_Product") %>&strCallMode=c">" title="<% WriteSafeString("ImageLabel_CloneThisVersion") %>" src="images_webshop/c_version.gif" border="0"> &P_ID=<% =objRecordSet("V_Product") %>">" title="<% WriteSafeString("ImageLabel_EditThisVersion") %>" src="images_webshop/b_version.gif" border="0"> <% WriteString("ContentText_StockLevelPagetext") %>