<%
' 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")
' get all shipments
mySQL="SELECT * FROM shippingZones ORDER BY zoneName"
call getFromDatabase(mySQL, rstemp, "comersus_backoffice_listShipmentZones.asp")
if rstemp.eof then
response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("No zones in database")
end if
%>
Zones
<%
do while not rstemp.eof
pIdZone = rstemp("idShippingZone")
pZoneName = rstemp("zoneName")
%>
>