<% ' Comersus BackOffice Lite ' e-commerce ASP Open Source ' Comersus Open Technologies LC ' 2005 ' http://www.comersus.com %> <% on error resume next dim conntemp, mysql, rstemp, rstemp2 ' get settings pEncryptionPassword = getSettingKey("pEncryptionPassword") pEncryptionMethod = getSettingKey("pEncryptionMethod") pIdCustomer = getUserInput(request("idCustomer"),20) mySql="SELECT password, active, idCustomerType, wapAccess, name, lastName, customerCompany, phone, email, address, zip, stateCode, state, city, countryCode FROM customers WHERE idCustomer="&pIdCustomer call getFromDatabase(mySQL, rstemp, "comersus_backoffice_modifyCustomerForm.asp") pPassword = DeCrypt(rstemp("password"), pEncryptionPassword) %>
Modify customer record

Name	">
Last name	">
Company	">
Phone	">
Email	">
Password
Address	">
Zip	">
State	<% ' get stateCodes mySQL="SELECT * FROM stateCodes" call getFromDatabase(mySQL, rsTemp2, "comersus_backoffice_modifyCustomerForm.asp") %> Select a State <%do while not rstemp2.eof pStateCode = rstemp("stateCode") pStateCode2 = rstemp2("stateCode")%> ><%=rstemp2("stateName")%> <%rstemp2.movenext loop%>
City	">
Non listed state	">
Country	<% ' get CountryCodes mySQL="SELECT * FROM countryCodes" call getFromDatabase(mySQL, rsTemp2, "comersus_backoffice_modifyCustomerForm.asp") %> Country <%do while not rstemp2.eof pCountryCode = rstemp("countryCode") pCountryCode2 = rstemp2("countryCode")%> ><%=rstemp2("countryName")%> <%rstemp2.movenext loop%>

Active	>No >Yes	Type	>Retail >Wholesale	WAP Access	>No >Yes

<%call closeDb()%>