<% ' 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 ' get settings pCurrencySign = getSettingKey("pCurrencySign") pShipmentZone = getUserInput(request.querystring("idZone"),20) if pShipmentZone = "" then pShipmentZone = 0 end if %> <%%>
Add shipment

Description
This shipment method will be used only of the following conditions are true:

Customer type	Select <% mySQL="SELECT idCustomerType, customerTypeDesc FROM customerTypes" call getFromDatabase(mySQL, rstemp, "comersus_backoffice_addShipmentForm.asp") do while not rstemp.eof %> ><%=rstemp("customerTypeDesc")%> <% rstemp.movenext loop %>
Quantity	From	Until
Weight	From	Until
Cart total	From	Until

Fixed price <%=pCurrencySign%>:		Percentage
Shipment time

This shipment method will be used if the customer address is in this Zone:
Shipment Zone	<% MySql = "SELECT * FROM shippingZones ORDER BY zoneName" call getFromDatabase(mySQL, rstemp, "comersus_backoffice_addShipmentForm.asp") Do While not rstemp.eof %> " <%If cint(pShipmentZone) = cInt(rstemp("idShippingZone")) Then response.write "selected"%>> <%=rstemp("zoneName")%> <% rstemp.movenext loop %>

<%call closeDb()%>