<% ' Comersus Shopping Cart ' Comersus Open Technologies ' United States ' Software License can be found at License.txt ' http://www.comersus.com ' Details: modify customer data %> <% on error resume next dim connTemp, mySql, rsTemp, rsTemp2 pIdCustomer = getSessionVariable("idCustomer",0) pIdCustomerType = getSessionVariable("idCustomerType",1) ' get settings pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pCompanySlogan = getSettingKey("pCompanySlogan") pAboutUsLink = getSettingKey("pAboutUsLink") pDisableState = getSettingKey("pDisableState") pAuctions = getSettingKey("pAuctions") pAllowNewCustomer = getSettingKey("pAllowNewCustomer") pNewsLetter = getSettingKey("pNewsLetter") pStoreNews = getSettingKey("pStoreNews") pSuppliersList = getSettingKey("pSuppliersList") pShowNews = getSettingKey("pShowNews") pHeaderKeywords = getSettingKey("pHeaderKeywords") 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 name, lastName, customerCompany, phone, email, password, address, zip, state, city, stateCode, countryCode, user1, user2, user3 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("stateCode") pCountryCode = rstemp("countryCode") %>

<%=getMsg(171,"Pers Inf")%>

<%if pDisableState="0" then%> <%end if%> <%if pCustomerFieldName1<>"" then%> <%end if%> <%if pCustomerFieldName2<>"" then%> <%end if%> <%if pCustomerFieldName3<>"" then%> <%end if%>

<%=getMsg(172,"Cust")%>	<%=pCustomerPrefix&pIdCustomer%>
<%=getMsg(173,"Name")%>	">
<%=getMsg(174,"L Name")%>	">
<%=getMsg(175,"Company")%>	">
<%=getMsg(176,"Phone")%>	">
<%=getMsg(177,"Email")%>	">
<%=getMsg(178,"Pwd")%>	">
<%=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%>
<%=pCustomerFieldName1%>	">
<%=pCustomerFieldName2%>	">
<%=pCustomerFieldName3%>	">
">

<%call closeDb()%>