<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "14, 68, 697, 848, 849, 850, 851" %> <% '=============================================== ' CactuShop ASP Shopping Cart ' ©1999-2004 Cactusoft Ltd. www.cactusoft.com '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== '----------------------------------------------- 'CUSTOMER MODIFY CUSTOMER CODE 'Allows the customer to modify their password. 'Requires their old password plus 2 copies of 'the new one '----------------------------------------------- '----------------------------------------------- 'READ PAGE TEMPLATE FROM FILE '----------------------------------------------- Call ReadFromTemplate(strTemplateLocation, aryPageTemplate, strBasketHTML, strCategoryListHTML) '----------------------------------------------- 'WRITE FIRST HALF OF PAGE HTML '----------------------------------------------- response.write(aryPageTemplate(0)) %>

<% WriteString("PageTitle_MyAccount") %>

<% WriteString("SubTitle_ChangeCustomerCode") %>

<% WriteString("FormLabel_EmailAddress") %> <% =DB_CD_EmailAddress %> <% WriteString("FormLabel_ExistingCustomerCode") %>* <% WriteString("FormLabel_NewCustomerCode") %>* <% WriteString("FormLabel_NewCustomerCodeRepeat")%>*

">

<% '----------------------------------------------- 'WRITE LAST HALF OF PAGE HTML '----------------------------------------------- Response.Write(aryPageTemplate(1)) '----------------------------------------------- 'CLOSE DATA CONNECTIONS '----------------------------------------------- objDataConn.Close Set objDataConn = Nothing %>