<% ' 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 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") %> <% if not rstemp.eof then%>
<%=rstemp("zoneName")%> 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 %> >

Zip Code	<%If pZip="" Then response.write "All" else response.write pZip end if%>
State	<%If pStateCode="" Then response.write "All" else response.write getStateName(pStateCode) end if%>
Country Code	<%If pCountryCode="" Then response.write "All" else response.write getCountryName(pCountryCode) end if%>
Modify Delete

<% rstemp.MoveNext loop else %>

There are no Zone Contents in this Shipping Zone.

<%end if %>

Back