<% ' 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"),10) pIdZone = getUserInput(request("idZone"),10) 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 = "INSERT INTO shippingZonesContents (idShippingZone, zip, stateCode, countryCode) VALUES ("&pIdZone&",'"&pZip&"', '"&pStateCode&"', '"&pCountryCode&"')" call updateDatabase(mySQL, rstemp, "comersus_backoffice_modifyZonesContents.asp") response.redirect "comersus_backoffice_listZonesContents.asp?IdZone="&pIdZone end if %>

Add Zone Content

> >

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.