<% ' Comersus Shopping Cart ' Comersus Open Technologies ' United States ' Software License can be found at License.txt ' http://www.comersus.com ' Details: update personal info for a logged customer %> <% on error resume next dim connTemp, rsTemp, mySql ' get settings pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pDisableState = getSettingKey("pDisableState") ' get from session pIdCustomer = getSessionVariable("idCustomer","0") ' form data pShippingName = formatForDb(getUserInput(request.form("shippingName"),30)) pshippingLastName = formatForDb(getUserInput(request.form("shippingLastName"),30)) pshippingAddress = formatForDb(getUserInput(request.form("shippingaddress"),50)) pshippingCity = formatForDb(getUserInput(request.form("shippingcity"),30)) pshippingZip = getUserInput(request.form("shippingzip"),20) pshippingState = formatForDb(getUserInput(request.form("shippingstate"),20)) pshippingStateCode = getUserInput(request.form("shippingstateCode"),4) pshippingCountryCode = getUserInput(request.form("shippingcountryCode"),4) if pStoreFrontDemoMode="-1" then response.redirect "comersus_message.asp?message="&Server.Urlencode(getMsg(188,"Option disabled for this demo.")) end if if pshippingState<>"" and pshippingStateCode<>"" then response.redirect "comersus_message.asp?message="&Server.Urlencode(getMsg(189,"Please enter state code or another state. You cannot select both.")) end if ' update customer record mySql="UPDATE customers SET shippingName='" &pShippingName& "', shippingLastName='" &pshippingLastName&"', shippingCity='" &pshippingCity& "',shippingzip='" &pshippingZip& "',shippingcountryCode='" &pshippingCountryCode& "',shippingstate='" &pshippingState& "', shippingstateCode='" &pshippingStateCode& "',shippingAddress='" &pshippingAddress& "' WHERE idCustomer="&pIdCustomer call updateDatabase(mySQL, rstemp, "customerModifyShippingExec") response.redirect "comersus_checkout2.asp" call closeDb() %>