<% ' Comersus BackOffice Lite ' e-commerce ASP Open Source ' Comersus Open Technologies LC ' 2005 ' http://www.comersus.com %> <% on error resume next dim mySQL, conntemp, rstemp pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pIdZoneContent = getUserInput(request("idZoneContent"),100) pIdZone = getUserInput(request("idZone"),100) If getUserInput(request.form("submit"),20) <> "" Then 'update shipping zone pZip = getUserInput(request("zip"),50) pStateCode = getUserInput(request("statecode"),10) pCountryCode = getUserInput(request("CountryCode"),10) MySQL = "UPDATE shippingZonesContents SET zip='"&pZip&"', stateCode='"&pStateCode&"', countryCode='"&pCountryCode&"' WHERE idShippingZonesContents=" & pIdZoneContent call updateDatabase(mySQL, rstemp, "comersus_backoffice_modifyZonesContents.asp") response.redirect "comersus_backoffice_listZoneAndContent.asp?IdZone="&pIdZone end if ' get shipment mySQL="SELECT * FROM shippingZonesContents WHERE idShippingZonesContents = " & pIdZoneContent call getFromDatabase(mySQL, rstemp, "comersus_backoffice_modifyZoneContents.asp") if rstemp.eof then response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("Couldn't find the zone in database") end if %>

Zone Contents

<% if not isnull(rstemp("zip")) Then pZip = rstemp("zip") else pZip = "" end if if not isnull(rstemp("stateCode")) Then pStateCode = rstemp("stateCode") else pStateCode = "" end if if not isnull(rstemp("countryCode")) Then pCountryCode = rstemp("countryCode") else pCountryCode = "" end if %> > >

Zip
State	<% ' get stateCodes mySQL="SELECT * FROM stateCodes" call getFromDatabase(mySQL, rstemp2, "comersus_backoffice_addShipmentExec.asp") %> All <%do while not rstemp2.eof pStateCode2=rstemp2("stateCode")%> ><%=rstemp2("stateName")%> <%rstemp2.movenext loop%>
Country	<% ' get CountryCodes mySQL="SELECT * FROM countryCodes" call getFromDatabase(mySQL, rstemp2, "comersus_backoffice_addShipmentExec.asp") %> All <%do while not rstemp2.eof pCountryCode2=rstemp2("countryCode")%> ><%=rstemp2("countryName")%> <%rstemp2.movenext loop%>
If you leave zip unset, the rule will work for all zips.