<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "333, 400, 445, 450, 482, 488, 489, 490, 491, 876" 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. '=============================================== strHigh = request.querystring("strHigh") strLow = request.querystring("strLow") strISO = request.querystring("strISO") Set objRecordSet3 = Server.CreateObject("ADODB.Recordset") If strISO = "" then if strLow="" then strQuery = "SELECT * FROM tblCactuShopDestination WHERE D_Destination" & CStr(numLanguageID) & " < '" & strHigh & "' AND D_ISOCode<>'US' AND D_ISOCode<>'CA' AND D_ISOCode<>'AU' ORDER BY D_Destination" & CStr(numLanguageID) else strQuery = "SELECT * FROM tblCactuShopDestination WHERE D_Destination" & CStr(numLanguageID) & " < '" & strHigh & "' AND D_Destination" & CStr(numLanguageID) & " > '" & strLow & "' AND D_ISOCode<>'US' AND D_ISOCode<>'CA' AND D_ISOCode<>'AU' ORDER BY D_Destination" & CStr(numLanguageID) end if Else strQuery = "SELECT * FROM tblCactuShopDestination WHERE D_ISOCode='" & sqlsafe(strISO) & "' ORDER BY D_Destination" & CStr(numLanguageID) End if Call ExecuteSQL(strQuery, numCursorType, objRecordSet) strQuery3 = "SELECT DISTINCT S_Zone FROM tblCactuShopShippingRates" Call ExecuteSQL(strQuery3,numCursorType,objRecordSet3) %>

<% WriteString("PageTitle_ShippingDestinationCountries") %> <% do while not objRecordSet.EOF blnFirstLang = true numCounter = 0 for numCounter = 1 to numTotalLanguages If aryLangLiveBack(numCounter) = "y" then %> <% end if blnFirstLang = false next %> <% objRecordSet.moveNext loop objRecordSet3.Close %> <% WriteString("ContentText_ID") %> <% WriteString("FormLabel_Language") %> <% WriteString("ContentText_Country") %> <% WriteString("ContentText_ISOCode") %> <% WriteString("ContentText_Zone") %> <% WriteString("ContentText_ChargeTax") %> <% WriteString("ContentText_Live") %> <% if blnFirstLang then response.write objRecordSet("D_ID") else response.write " " %> <% =aryLangBackNames(numCounter) %> -<%=numCounter%>" size="30" value="<% =objRecordSet("D_Destination" & CStr(numCounter)) %>"> <% if blnFirstLang then %>" size="3" value="<% =objRecordSet("D_ISOCode") %>"><% else %> <% end if %> <% if blnFirstLang then objRecordSet3.MoveFirst Call SingleDropDown("B"&objRecordSet("D_ID"),"","",objRecordSet3,"S_Zone","S_Zone",objRecordSet("D_ShippingZone")) else %>   <% end if %> <% if blnFirstLang then %> ><% WriteString("ContentText_RadioYes") %> >- <% else %>   <% end if %> <% if blnFirstLang then %> ><% WriteString("ContentText_RadioYes") %> >- <% else %>   <% end if %>   ">

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