<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "400, 450, 451, 490, 506, 507, 508, 509, 510, 511, 512, 513, 862, 979, 982, 1016" strThisBackPage = "config" %> <% '=============================================== ' 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. '=============================================== '----------------------------------------------- 'MODIFY SHIPPING RATE 'This page lets the store owner bring up and 'modify the shipping rates for each of the 'zones. Whether rates are calculated based on 'weight or order price can be set from the 'config setting 'calcshipcostbyweight'. '----------------------------------------------- '----------------------------------------------- 'PULL OUT SHIPPING PRICE RECORDS '----------------------------------------------- strQuery = "SELECT * FROM tblCactuShopShippingRates INNER JOIN tblCactuShopShippingMethods ON tblCactuShopShippingRates.S_ShippingMethod = tblCactuShopShippingMethods.SM_ID ORDER BY S_ShippingMethod, S_Zone, S_Boundary" Call ExecuteSQL(strQuery, numCursorType, objRecordSet) '----------------------------------------------- 'DETERMINE HOW THE ORDER COST IS CALCULATED '----------------------------------------------- if Application(LICENSENUMBER & "calcshipcostbyweight") = "y" then strOrderCalculation = GetString("ContentText_CalculatedByOrderWeight") else strOrderCalculation = GetString("ContentText_CalculatedByOrderValue") end if %>

<% If Application(LICENSENUMBER & "shippingsystem") <> "c" then %> <% else %> <% end if %> <% WriteString("PageTitle_ShippingRates") %> <% WriteString("ContentText_UPSReminder") %> (<% =strOrderCalculation %>) <% do while not objRecordSet.EOF If objRecordSet("SM_ID") <> SM_ID then numShipTotal = numShipTotal + 1 %> <% numCounter = 0 For numCounter = 1 to numTotalLanguages if aryLangLiveBack(numCounter) = "y" then %> <% end if Next %> <% '----------------------------------------------- 'SHOW COLUMN HEADERS? 'Only display the table headers if it's not a 'special "auto-method". '----------------------------------------------- If Not objRecordSet("SM_AutoMethod") = "y" then %> <% if Application(LICENSENUMBER & "calcshipcostbyweight") = "y" then %> <% else %> <% end if %> <% end if SM_ID = objRecordSet("SM_ID") end if %> <% '----------------------------------------------- 'IF AUTO METHOD, PASS VALUES IN HIDDEN FIELDS 'Auto-method shipping methods cannot be edited - 'so both fields are passed in hidden fields. '----------------------------------------------- if objRecordSet("SM_AutoMethod") = "y" then %> <% else %> <% end if %> <% objRecordSet.moveNext loop %> <% =Getstring("ContentText_ShippingMethod") & " " & numShipTotal %> <% =aryLangBackNames(numCounter) %> -<% =numCounter %>" value="<% =objRecordSet("SM_Name" & CStr(numCounter)) %>"> -<% =numCounter %>"><% =objRecordSet("SM_Description" & CStr(numCounter)) %> <% WriteString("ContentText_OrderWeight") %> <% WriteString("ContentText_OrderValue") %> <% WriteString("ContentText_Shipping") %> <% WriteString("ContentText_Available") %> <% if Not blnDoneHit then %> <% If objRecordSet("S_Zone") <> zonelast then response.write(GetString("ContentText_AutoShippingDesc")) blnDoneHit = true end if %> <% end if %> " value="<% =objRecordSet("S_Boundary") %>"> " size="5" value="<% response.write(CurrencyDisplay(objRecordSet("S_ShippingRate"), 1, blnDefaultCurrencyHasDecimals)) %>"> "> <% If objRecordSet("S_Zone") <> zonelast then response.write(GetString("ContentText_Zone") & " " & objRecordSet("S_Zone")) zonelast = objRecordSet("S_Zone") end if %> <% if objRecordSet("S_Boundary") <> 999999 then if Application(LICENSENUMBER & "calcshipcostbyweight") = "y" then %> " value="<% response.write(CurrencyDisplay(objRecordSet("S_Boundary"), 1, blnDefaultCurrencyHasDecimals)) %>"><% = Application(LICENSENUMBER & "weightunit") %> <% else %> <% WriteString("ContentText_Upto") %> <% = " " & strDefaultCurrencySymbol %> " value="<% response.write(CurrencyDisplay(objRecordSet("S_Boundary"), 1, blnDefaultCurrencyHasDecimals)) %>"> <% end if else %> " value="<% =objRecordSet("S_Boundary") %>"><% WriteString("ContentText_AllHigherOrders") %> <% end if %> <% =strDefaultCurrencySymbol %> " size="5" value="<% response.write(CurrencyDisplay(objRecordSet("S_ShippingRate"), 1, blnDefaultCurrencyHasDecimals)) %>"> <% WriteString("ContentText_RadioYes") %> name="v<% =objRecordSet("S_ID") %>" value="y">  <% WriteString("ContentText_RadioNo") %> name="v<% =objRecordSet("S_ID") %>" value="n"> ">

<% objRecordSet.Close objDataConn.Close set objDataConn = nothing %>