<% ' Comersus Shopping Cart ' Comersus Open Technologies ' United States ' Software License can be found at License.txt ' http://www.comersus.com ' Details: modify shipping at checkout %> <% on error resume next dim connTemp, mySql, rsTemp, rsTemp2 pIdCustomer = getSessionVariable("idCustomer",0) ' get settings pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pDisableState = getSettingKey("pDisableState") pHeaderKeywords = getSettingKey("pHeaderKeywords") pAuctions = getSettingKey("pAuctions") pAllowNewCustomer = getSettingKey("pAllowNewCustomer") pNewsLetter = getSettingKey("pNewsLetter") pStoreNews = getSettingKey("pStoreNews") pSuppliersList = getSettingKey("pSuppliersList") pEncryptionPassword = getSettingKey("pEncryptionPassword") pEncryptionMethod = getSettingKey("pEncryptionMethod") pCustomerPrefix = getSettingKey("pCustomerPrefix") ' custom field names pCustomerFieldName1 = getSettingKey("customerFieldName1") pCustomerFieldName2 = getSettingKey("customerFieldName2") pCustomerFieldName3 = getSettingKey("customerFieldName3") pRedirect = getUserInput(request.querystring("redirect"),20) ' get customer data mySql="SELECT shippingName, shippingLastName, shippingAddress, shippingZip, shippingStateCode, shippingState, shippingCity, shippingCountryCode FROM customers WHERE idCustomer=" &pIdCustomer call getFromDatabase(mySQL, rstemp, "customerModifyForm") if rstemp.eof then response.redirect "comersus_supportError.asp?error="&Server.Urlencode("Cannot locate customer information in customerModifyForm") end if pStateCode = rstemp("shippingStateCode") pCountryCode = rstemp("shippingCountryCode") %>

<%=getMsg(420,"shipping")%>

<%if pDisableState="0" then%> <%end if%>

<%=getMsg(173,"Name")%>	">
<%=getMsg(174,"L Name")%>	">
<%=getMsg(179,"Add")%>	">
<%=getMsg(180,"Zip")%>	">
<%=getMsg(181,"st code")%>	<% ' get stateCodes mySQL="SELECT stateCode, stateName FROM stateCodes ORDER by stateName" call getFromDatabase(mySQL, rstemp2, "customerModifyForm") %> <%=getMsg(186,"Select state")%> <%do while not rstemp2.eof pStateCode2=rstemp2("stateCode")%> ><%=rstemp2("stateName")%> <%rstemp2.movenext loop%>
<%=getMsg(182,"An state")%>	">
<%=getMsg(183,"City")%>	">
<%=getMsg(184,"Ctry")%>	<% ' get CountryCodes mySQL="SELECT countryCode, countryName FROM countryCodes ORDER by countryName" call getFromDatabase(mySQL, rstemp2, "customerModifyForm") %> <%=getMsg(187,"Select")%> <%do while not rstemp2.eof pCountryCode2=rstemp2("countryCode")%> ><%=rstemp2("countryName")%> <%rstemp2.movenext loop%>
">

<%call closeDb()%>