<%
' Comersus Shopping Cart
' Comersus Open Technologies
' United States
' Software License can be found at License.txt
' http://www.comersus.com
%>

<!--#include file="../includes/settings.asp"-->
<!--#include file="../includes/getSettingKey.asp"-->
<!--#include file="../includes/databaseFunctions.asp"-->
<!--#include file="../includes/dateFunctions.asp"-->
<!--#include file="../includes/currencyFormat.asp"-->
<!--#include file="../includes/screenMessages.asp"-->
<!--#include file="../includes/cartFunctions.asp"-->
<!--#include file="../includes/miscFunctions.asp"-->
<!--#include file="../includes/stringFunctions.asp"-->
<!--#include file="../includes/discountFunctions.asp"-->
<!--#include file="../includes/encryption.asp"-->
<!--#include file="../includes/sessionFunctions.asp"-->
<!--#include file="../includes/itemFunctions.asp"-->
<!--#include file="../includes/paymentMethodFunctions.asp"-->
<!--#include file="../includes/shippingMethodFunctions.asp"-->
<!--#include file="comersus_optDes.asp"-->
<!--#include file="comersus_optRealTimeUps.asp"-->
<!--#include file="comersus_optRealTimeUsps.asp"-->
<!--#include file="comersus_optRealTimeUspsInt.asp"-->
<!--#include file="comersus_optRealTimeInterShipper.asp"-->
<!--#include file="comersus_optRealTimeFedexShipment.asp"-->
<!--#include file="comersus_optRealTimeCAShipment.asp"-->

<%

on error resume next

dim mySQL, connTemp, rsTemp, rsTemp2, rsTemp3

' get settings.
pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode")
pCurrencySign = getSettingKey("pCurrencySign")
pDecimalSign = getSettingKey("pDecimalSign")
pMoneyDontRound = getSettingKey("pMoneyDontRound")
pCompany = getSettingKey("pCompany")
pCompanyCountryCode = getSettingKey("pCompanyCountryCode")
pApplyGST = getSettingKey("pGST")
pGSTRate = getSettingKey("pGSTRate")
pCompanySlogan = getSettingKey("pCompanySlogan")
pCompanyAddress = getSettingKey("pCompanyAddress")
pCompanyZip = getSettingKey("pCompanyZip")
pCompanyCity = getSettingKey("pCompanyCity")
pCompanyStateCode = getSettingKey("pCompanyStateCode")
pCompanyCountryCode = getSettingKey("pCompanyCountryCode")
pCompanyPhone = getSettingKey("pCompanyPhone")
pCompanyFax = getSettingKey("pCompanyFax")
pChangeDecimalPoint = getSettingKey("pChangeDecimalPoint")
pEncryptionMethod = getSettingKey("pEncryptionMethod")
pOrderFieldName1 = getSettingKey("orderFieldName1")
pOrderFieldName2 = getSettingKey("orderFieldName2")
pOrderFieldName3 = getSettingKey("orderFieldName3")
pDateSwitch = getSettingKey("pDateSwitch")
pByPassShipping = getSettingKey("pByPassShipping")
pBonusPointsPerPrice = getSettingKey("pBonusPointsPerPrice")
pHeaderKeywords = getSettingKey("pHeaderKeywords")

pAuctions = getSettingKey("pAuctions")
pListBestSellers = getSettingKey("pListBestSellers")
pNewsLetter = getSettingKey("pNewsLetter")
pPriceList = getSettingKey("pPriceList")
pStoreNews = getSettingKey("pStoreNews")
pUseVatNumber = getSettingKey("pUseVatNumber")
pShowNews = getSettingKey("pShowNews")

pUseShippingAddress = getSettingKey("pUseShippingAddress")
pStoreClosed = getSettingKey("pStoreClosed")
pRealTimeShipping = getSettingKey("pRealTimeShipping")
pAustPostShipping = getSettingKey("pAustPostShipping")

pIdDbSession = checkSessionData()
pIdDbSessionCart = checkDbSessionCartOpen()

pIdCustomer = getSessionVariable("idCustomer",0)
pIdCustomerType = getSessionVariable("idCustomerType",1)
pDiscountCode = getSessionVariable("discountCode","")

'pTime = getUserInput(request.querystring("time"),12)

' if the store is closed it will not allow checkout.
if pStoreClosed = "-1" then
 response.redirect "comersus_message.asp?message=" & Server.Urlencode(getMsg(391,"Sorry, your cannot checkout, the store is closed right now."))
end if

if countCartRows(pIdDbSessionCart) = 0 then
 response.redirect "comersus_message.asp?message=" & Server.Urlencode(getMsg(392,"The cart is empty, you cannot checkout."))
end if

if pIdCustomer = 0 then
 response.redirect "comersus_checkoutCustomerForm.asp"
end if

' get customer information.
mySQL = "SELECT * FROM customers WHERE idCustomer=" & pIdCustomer
call getFromDatabase(mySQL, rstemp, "checkout2")

if not rstemp.eof then
 pName = rstemp("name")
 pLastName = rstemp("lastName")
 pCustomerCompany = rstemp("customerCompany")
 pEmail = rstemp("email")
 pPassword = rstemp("password")
 pPhone = rstemp("phone")

 pShippingName = rstemp("shippingName")
 pShippingLastName = rstemp("shippingLastName")
 pAddress = rstemp("address")
 pZip = rstemp("zip")
 pStateCode = rstemp("stateCode")
 pState = rstemp("state")
 pCity = rstemp("city")
 pCountryCode = rstemp("countryCode")

 pShippingAddress = rstemp("shippingAddress")
 pShippingStateCode = rstemp("shippingStateCode")
 pShippingState = rstemp("shippingState")
 pShippingCity = rstemp("shippingCity")
 pShippingCountryCode = rstemp("shippingCountryCode")
 if trim(rstemp("shippingZip")) = "" or isNull(rstemp("shippingZip")) then
  pShippingPCode = rstemp("zip")
 else
  pShippingPCode = rstemp("shippingZip")
 end if
end if

if pShippingCountryCode <> "" then
 pFilterCountryCode = pShippingCountryCode
else
 pFilterCountryCode = pCountryCode
end if

' calculate total price of the order, total weight and product total quantities.
pSubTotal = Cdbl(calculateCartTotal(pIdDbSessionCart))
pCartTotalWeight = Cdbl(calculateCartWeight(pIdDbSessionCart))
pCartQuantity = Cdbl(calculateCartQuantity(pIdDbSessionCart))

' populate payment methods.
pStringPaymentMethods = createArrayPayments(pCartQuantity, pCartTotalWeight, pSubTotal)

if pStringPaymentMethods = "" then
 response.redirect "comersus_supportError.asp?error=" & Server.Urlencode("There are no payments available. Please contact us")
end if

pArrayPaymentMethods = split(pStringPaymentMethods,"|")

' populate shipment methods.

' calculate Free Shipping Items inside the cart.
pCartFreeShippingTotal = Cdbl(calculateFreeShippingTotal(pIdDbSessionCart))
pCartFreeShippingWeight = Cdbl(calculateCartFreeShippingWeight(pIdDbSessionCart))
pCartFreeShippingQuantity = Cdbl(calculateCartFreeShippingQuantity(pIdDbSessionCart))

select Case lcase(pRealTimeShipping)
 case "ups"
  pStringShipmentMethods = createArrayShipmentsUps(pCartQuantity - pCartFreeShippingQuantity, pCartTotalWeight - pCartFreeShippingWeight, pSubTotal - pCartFreeShippingTotal)
 case "usps"
  if pFilterCountryCode = "US" then
   pStringShipmentMethods = createArrayShipmentsUsps(pCartQuantity - pCartFreeShippingQuantity, pCartTotalWeight - pCartFreeShippingWeight, pSubTotal - pCartFreeShippingTotal)
  else
   pStringShipmentMethods = createArrayShipmentsUspsInt(pCartQuantity - pCartFreeShippingQuantity, pCartTotalWeight - pCartFreeShippingWeight, pSubTotal - pCartFreeShippingTotal)
  end if
 case "intershipper"
  pStringShipmentMethods = createArrayShipmentsIntershipper(pCartQuantity - pCartFreeShippingQuantity, pCartTotalWeight - pCartFreeShippingWeight, pSubTotal - pCartFreeShippingTotal)
 case "fedex"
  pStringShipmentMethods = createArrayShipmentsFedex(pCartQuantity - pCartFreeShippingQuantity, pCartTotalWeight - pCartFreeShippingWeight, pSubTotal - pCartFreeShippingTotal)
 case "ca"
  pStringShipmentMethods = createArrayShipmentsCA(pCartQuantity - pCartFreeShippingQuantity, pCartTotalWeight - pCartFreeShippingWeight, pSubTotal - pCartFreeShippingTotal)
 case Else
  pStringShipmentMethods = createArrayShipments(pCartQuantity - pCartFreeShippingQuantity, pCartTotalWeight - pCartFreeShippingWeight, pSubTotal - pCartFreeShippingTotal)
end Select

if pStringShipmentMethods = "" then
 response.redirect "comersus_supportError.asp?error=" & Server.Urlencode("There are no shipments available. Please contact us")
end if

pArrayShipmentMethods = split(pStringShipmentMethods,"|")

' retrieve Australia Post Shipping.
if request("pFreightCode") = "" then
 pAustPostServiceType = "STANDARD"
else
 pAustPostServiceType = request("pFreightCode")
end if

' retrieve discount.
pDiscountDesc = ""
pDiscountAmount = 0

call getDiscount(pDiscountCode, pDiscountDesc, pDiscountAmount)

pSubTotal = pSubTotal - pDiscountAmount
%> 
<!--#include file="header.asp"-->
  <form method="post" action="comersus_checkOut3.asp" name="saveorder">
   <table width="100%" cellpadding="10" cellspacing="0">
    <tr><td colspan="6">
     <table cellpadding="5" cellspacing="0">
      <tr><td><div style="color:red;font-weight:bold"><%=getMsg(58,"checkout")%></div><%if pTime <> "" then%><br><br><i><%=getMsg(681,"Reloaded")%></i><%end if%></td></tr>
     </table>
     <table cellpadding="5" cellspacing="0">
      <tr><td colspan="3"><div style="font-style:italic"><%=getMsg(411,"billing")%></div></td></tr>
      <tr>
       <td><b><%=getMsg(448,"name")%></b></td>
       <td><b>:</b></td>
       <td><%=pName&" "&pLastName%></td>
      </tr>
      <%if pCustomerCompany <> "" then%>
      <tr>
       <td><b><%=getMsg(449,"cpany")%></b></td>
       <td><b>:</b></td>
       <td><%=pCustomerCompany%></td>
      </tr>
      <%end if%>
      <tr>
       <td><b><%=getMsg(450,"phone")%></b></td>
       <td><b>:</b></td>
       <td><%=pPhone%></td>
      </tr>
      <tr>
       <td valign="top"><b><%=getMsg(451,"addr")%></b></td>
       <td valign="top"><b>:</b></td>
       <td><%=pAddress%><br><%=pCity%>, <%=pState & pStateCode%>&nbsp;<%=pZip%><br><%=getCountryName(pCountryCode)%></td>
      </tr>
      <tr><td colspan="3"><a href="comersus_customerModifyForm.asp?redirect=checkout">[<%=getMsg(185,"modify")%>]</a></td></tr>
     </table>       
     <%if pUseShippingAddress = "-1" and pByPassShipping = "0" then%>
	 <table cellpadding="3" cellspacing="0">
      <tr><td colspan="2"><hr></td></tr>
      <tr><td colspan="2"><span style="font-style:italic"><%=getMsg(420,"shipping")%></span></td></tr>
      <%if trim(pShippingAddress) = "" or isNull(pShippingAddress) then%>
      <tr>
	   <td width="150"><span style="font-weight:bold"><%=getMsg(471,"ship address")%>&nbsp;:</span></td>
	   <td width="371"><%=getMsg(472,"same as bill")%></td>
	  </tr>
	  <%else%>
	  <tr>
       <td width="150"><span style="font-weight:bold"><%=getMsg(448,"name")%>&nbsp;:</span></td>
       <td width="371"><%=pShippingName & " " & pShippingLastName%></td>
	  </tr>
	  <tr>
	   <td width="150" valign="top"><span style="font-weight:bold"><%=getMsg(471,"ship address")%>&nbsp;:</span></td>
	   <td width="371"><%=pShippingAddress%><br><%=pShippingCity%>, <%=pShippingState & pShippingStateCode%>&nbsp;<%=pShippingZip%><br><%=getCountryName(pShippingCountryCode)%></td>
      <%end if%>
      </tr>
      <tr><td class="std" colspan="4"><a href="comersus_customerModifyShippingForm.asp">[<%=getMsg(185,"modify")%>]</a></td></tr>      
	 </table>
     <%end if%>
     <table cellpadding="5" cellspacing="0">
      <tr><td width="533" colspan="6"><hr></td></tr>
      <tr><td colspan="6"><div style="font-style:italic">Order details</div></td></tr>
      <tr>          
       <td width="60"><div style="text-align:center;font-weight:bold"><%=getMsg(453,"qty")%></div></td>
       <td width="100%"><div style="text-align:center;font-weight:bold"><%=getMsg(454,"item")%></div></td>
       <td width="80"><div style="text-align:center;font-weight:bold"><%=getMsg(455,"variat")%></div></td>
       <td width="50"><div style="text-align:center;font-weight:bold"><%=getMsg(456,"price")%></div></td>
       <%if pCompanyCountryCode = "AU" and pApplyGST = "-1" then%>
        <td width="50"><div style="text-align:center;font-weight:bold">GST</div></td>
        <td width="50"><div style="text-align:center;font-weight:bold">Total</div></td>
       <%end if%>
      </tr>
      <%
       ' iterate through cart.
       mySQL = "SELECT idCartRow, cartRows.idProduct, quantity, unitPrice, unitGST, unitWeight, description, sku, deliveringTime, personalizationDesc FROM cartRows, products WHERE cartRows.idProduct=products.idProduct AND cartRows.idDbSessionCart=" & pIdDbSessionCart
       call getFromDatabase(mySQL, rstemp, "checkout2")
       do while not rstemp.eof
        pIdCartRow = rstemp("idCartRow")
        pIdProduct = rstemp("idProduct")
        pQuantity = rstemp("quantity")
        pUnitPrice = Cdbl(rstemp("unitPrice"))
        pUnitGST = Cdbl(rstemp("unitGST"))
        pUnitWeight = rstemp("unitWeight")
        pDescription = rstemp("description")
        pSku = rstemp("sku")
        pPersonalizationDesc = rstemp("personalizationDesc")
      %>
      <tr>
       <td width="60"><%=pQuantity%></td>
       <td width="100%"><%=pSku & " " & pDescription%>
       <%if pPersonalizationDesc <> "" then response.write "&nbsp;(" & pPersonalizationDesc & ")" end if%>
       </td>
       <td width="80"><%=getCartRowOptionals(pIdCartRow)%></td>
       <td width="50"><div style="text-align:right"><%=pCurrencySign &  money(getCartRowPrice(pIdCartRow))%></div></td>
       <%if pCompanyCountryCode = "AU" and pApplyGST = "-1" then%>
       <td width="50"><div style="text-align:right">
       <%if pUnitGST <> 0 then%>
        <%=pCurrencySign & money(getCartRowPrice(pIdCartRow) * pGSTRate)%>
       <%else%>
        <%pGSTRate = 0%>
        Exempt
       <%end if%>
       </div></td>
       <td width="50"><div style="text-align:right"><%=pCurrencySign & money(getCartRowPrice(pIdCartRow) + money(getCartRowPrice(pIdCartRow) * pGSTRate))%></div></td>
      <%end if%>
      </tr>
      <%
       pTotalWeight = pTotalWeight + (pUnitWeight * pQuantity)
       rstemp.movenext
       loop
      %>
      <tr><td colspan="4"><a href="comersus_showCart.asp">[<%=getMsg(185,"modify")%>]</a></td></tr>
     </table>
     <table cellpadding="5" cellspacing="0">
      <tr><td width="533" colspan="4"><hr></td></tr>
      <tr>
       <td width="418"><div style="text-align:right;font-weight:bold"><%=getMsg(459,"discount")%></div></td>
       <td width="5"><div style="text-align:center;font-weight:bold">:</div></td>
       <td width="80"><div style="text-align:right"><%=pCurrencySign & money(pDiscountAmount)%></div></td>
      </tr>
     </table>
     <%if Cdbl(pBonusPointsPerPrice)>0 then%>
     <table cellpadding="5" cellspacing="0">
      <tr><td>
      <%pBonusPoints = getBonusPoints(pIdCustomer)
       if pBonusPoints >= pSubTotal - pDiscountAmount then
        pBonusPoints = pSubTotal - pDiscountAmount
       else
        pBonusPoints = 0
       end if
      pSubTotal = pSubTotal - pBonusPoints%>
      </td></tr>
     </table>
     <table cellpadding="5" cellspacing="0">
      <tr>
       <td><b><%=getMsg(464,"points")%></b></td>
       <td> - <%=pCurrencySign & money(pBonusPoints)%></td>
      </tr>
     </table>
     <%end if%>
     <table cellpadding="5" cellspacing="0">
      <tr>
       <td width="418"><div style="text-align:right;font-weight:bold"><%=getMsg(465,"subtotal")%></div></td>
       <td width="5"><div style="text-align:center;font-weight:bold">:</div></td>
       <td width="80"><div style="text-align:right"><%=pCurrencySign & money(pSubTotal)%></div></td>
      </tr>
     </table>
     <%if pAustPostShipping <> "0" then%>
      <table cellpadding="5" cellspacing="0">
       <tr><td width="533" colspan="3"><hr></td></tr>
       <tr><td colspan="3"><div style="font-style:italic">Freight details</div></td></tr>
       <tr>
        <td width="418"><div style="text-align:right">Australia Post <%=pAustPostServiceType%></div></td>
        <input type="hidden" value="<%=pAustPostServiceType%>" name="AustPostServiceType">
        <%
         response.Buffer = true

         dim xmlhttp
         dim sURL
         dim qs
         dim sMethod
         dim pos1, pos2, charge, days, msg, str

         sURL = "http://drc.edeliver.com.au/rateCalc.asp?Height=100&Length=100&Weight=" & (pTotalWeight * 1000) & "&Width=100&Pickup_postcode=2446&Destination_Postcode=" & pShippingPCode & "&Country=AU&Service_Type=" & pAustPostServiceType & "&Quantity=1"
         sMethod = "GET"

         ' Create an xmlhttp object:
         set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
         ' Or, for version 3.0 of XMLHTTP, use:
         ' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

         ' Opens the connection to the remote server.
         xmlhttp.Open sMethod, sURL, false

         ' Actually Sends the request and returns the data:
         xmlhttp.Send

         ' Parse the results.
         if (xmlhttp.readyState = 4 and xmlhttp.status = 200) then
          str = xmlhttp.responseText
          pos1 = instr(1,str,"charge=") + 7
          pos2 = instr(1,str,"days=") - 1
          charge = Cdbl(mid(str,pos1, pos2-pos1))
          pos1 = instr(1,str,"days=") + 5
          pos2 = instr(1,str,"err_msg=") - 1
          days = mid(str,pos1, pos2-pos1)
          pos1 = instr(1,str,"err_msg=") + 8
          pos2 = instr(1,str,chr(13)) - 1
          msg = mid(str,pos1,pos2)
         else
          'report error'
          response.write(xmlhttp.responseText)
         end if

         set xmlhttp = Nothing
        %>
        <td width="5"><div style="text-align:center">:</div></td>
        <td width="80"><div style="text-align:right"><%=pCurrencySign & formatnumber(money(charge),2)%></div></td>
        <input type="hidden" value="<%=charge%>" name="AustPostServiceCharge">
       </tr>
       <tr><td colspan="3"><div style="font-size:10px;font-style:italic;text-align:left">Expected delivery period : <%=days%> working days.</div></td></tr>
       <tr><td colspan="3"><a href="comersus_customerModifyFreightForm.asp">[<%=getMsg(185,"modify")%>]</a></td></tr>
      </table>
     <%else%>
      <%if pByPassShipping = "0" then%>
       <table cellpadding="5" cellspacing="0">
        <tr>
         <td colspan="3"><b><%=getMsg(458,"ship method")%></b> <%=pShipmentDesc%></td>
         <td>
          <div align="left">
          <select name="idShipmentArray" size="1">
          <%for f = 0 to uBound(pArrayShipmentMethods) - 1%> 
          <%
           if instr(pArrayShipmentMethods(f),"&") = 0 then
            response.redirect "comersus_supportError.asp?error=" & Server.Urlencode("Invalid shipment method selection array")
           end if
           pArrayOneShipmentMethod = split(pArrayShipmentMethods(f),"&")
           pShipmentMethodDescription = pArrayOneShipmentMethod(0)
           pShipmentMethodAmount = pArrayOneShipmentMethod(1)
           pShipmentMethodHandling = pArrayOneShipmentMethod(2)
           if Cdbl(pShipmentMethodAmount) > 0 then
            pShipmentMethodDescription = pShipmentMethodDescription & " " & pCurrencySign & money(pShipmentMethodAmount)
           end if
           if Cdbl(pShipmentMethodHandling) > 0 then
            pShipmentMethodDescription = pShipmentMethodDescription & " handling " & pCurrencySign & money(pShipmentMethodHandling)
           end if
          %>
          <option value="<%=f%>"> <%=pShipmentMethodDescription%></option>
          <%next%>
          </select>
          </div>
         </td>
        </tr>
       </table>
      <%end if%>
     <%end if%>
     <table cellpadding="5" cellspacing="0">
      <tr><td width="533" colspan="4"><hr></td></tr>
      <tr>
       <td width="150"><b><%=getMsg(457,"payment")%></b> <%=pPaymentDesc%></td>
       <td width="343">
        <div align="left">
        <select name="idPaymentArray" size="1">
        <%for f = 0 to uBound(pArrayPaymentMethods) - 1%>
        <%
         if instr(pArrayPaymentMethods(f),"&") = 0 then
          response.redirect "comersus_supportError.asp?error=" & Server.Urlencode("Invalid payment method selection array")
         end if
         pArrayOnePaymentMethod = split(pArrayPaymentMethods(f),"&")
         pPaymentMethodDescription = pArrayOnePaymentMethod(0)
         pPaymentMethodSurcharge = pArrayOnePaymentMethod(1)
         if pPaymentMethodSurcharge > 0 then
          pPaymentMethodDescription = pPaymentMethodDescription & " " & pCurrencySign & money(pPaymentMethodSurcharge)
         end if
        %>
         <option value="<%=f%>"> <%=pPaymentMethodDescription%></option>
        <%next%>
        </select>
        </div>
       </td>
      </tr>
     </table>
     <%if pUseVatNumber = "-1" then%>
     <table cellpadding="5" cellspacing="0">
      <tr>
       <td><b><%=getMsg(733,"VAT")%></b></td>
       <td><div align="left"><input type="text" name="vatNumber" length="20" maxlength="20"></div></td>
      </tr>
     </table>
     <%end if%>
     <%if pOrderFieldName1 <> "" then%>
     <table cellpadding="5" cellspacing="0">
      <tr>
       <td><b><%=pOrderFieldName1%></b></td>
       <td><input type="text" name="user1"></td>
      </tr>
     </table>
     <%end if%>
     <%if pOrderFieldName2 <> "" then%>
     <table cellpadding="5" cellspacing="0">
      <tr>
       <td><b><%=pOrderFieldName2%></b></td>
       <td><input type="text" name="user2"></td>
      </tr>
     </table>
     <%end if%>
     <%if pOrderFieldName3 <> "" then%>
     <table cellpadding="5" cellspacing="0">
      <tr>
       <td><b><%=pOrderFieldName3%></b></td>
       <td><input type="text" name="user3"></td>
      </tr>
     </table>
     <%end if%>
     <table cellpadding="5" cellspacing="0">
      <tr>
       <td><b><%=getMsg(444,"comments")%></b></td>
       <td><div align="left"><textarea name="comments" cols="35" maxlength="500"></textarea></div></td>
      </tr>
     </table>
     <%if pAustPostShipping <> "0" then%>
      <table cellpadding="5" cellspacing="0">
       <tr><td width="533"><hr></td></tr>
       <tr><td><div align="justify"><%=pCompany%> accepts responsibility for any loss of, damage to, late delivery or non-delivery of goods ordered from our web site.<br><br>To the maximum extent permitted by law, you agree to release our carriers from any liability relating to loss of, damage to, late delivery or non-delivery of any goods you order from this web site and to assign all rights to claim compensation or insurance against our carriers to us and expressly and irrevocably do so by clicking the following box.<br><br>In rural and regional areas of Australia, delivery times for Express Parcel Services are in respect of delivery to the Post Office of the principal township in that area. Delivery to final destinations may take longer. If in doubt please check with your local Post Office.</div></td></tr>
      </table>
     <%end if%>
     <table cellpadding="5" cellspacing="0">
      <tr><td width="533"><hr></td></tr>
      <tr><td><div align="center"><input type="submit" name="Save" value="<%=getMsg(421,"continue")%>"></div></td></tr>
     </table>
    </td></tr>
   </table>
   </form>

<!--#include file="footer.asp"-->

<%call closeDb()%>