<% ' 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") pIdShippingZone = getUserInput(request.querystring("idZone"),20) ' get all shipment zone contents mySQL="SELECT shippingZones.zoneName FROM shippingZones WHERE shippingZones.idShippingZone = "&pIdShippingZone call getFromDatabase(mySQL, rstemp2, "comersus_backoffice_listZonesContents.asp") ' get all shipment zone contents mySQL="SELECT shippingZonesContents.*, shippingZones.zoneName FROM shippingZones, shippingZonesContents WHERE shippingZones.idShippingZone = shippingZonesContents.idShippingZone AND shippingZones.idShippingZone = "&pIdShippingZone&" ORDER BY idShippingZonesContents" call getFromDatabase(mySQL, rstemp, "comersus_backoffice_listZonesContents.asp") %>

Zone Name: "> |


<% if not rstemp.eof then%> Zone Contents
<% do while not rstemp.eof pIdZoneContent = rstemp("idShippingZonesContents") 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 %> <% rstemp.MoveNext loop%>
Zip | State | Country | Actions
<%If pZip="" Then response.write "All" else response.write pZip end if%> | <%If pStateCode="" Then response.write "All" else response.write getStateName(pStateCode) end if%> | <%If pCountryCode="" Then response.write "All" else response.write getCountryName(pCountryCode) end if%> | Edit Delete
<% else %>

There are no Zone Contents in this Shipping Zone.

<%end if %>

Add Zone Content >
Zip
State <% ' get stateCodes mySQL="SELECT * FROM stateCodes" call getFromDatabase(mySQL, rstemp2, "comersus_backoffice_addShipmentExec.asp") %>
Country <% ' get CountryCodes mySQL="SELECT * FROM countryCodes" call getFromDatabase(mySQL, rstemp2, "comersus_backoffice_addShipmentExec.asp") %>
If you leave zip unset, the rule will work for all zips.

Add new shipment method for this Zone
>

Back