<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "68, 185, 33, 852, 853, 854, 855, 865, 856, 857, 858, 859, 860" %> <% '=============================================== ' 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. '=============================================== Call ReadFromTemplate(strTemplateLocation, aryPageTemplate, strBasketHTML, strCategoryListHTML) response.write(aryPageTemplate(0)) strOldPassword = request.Form("strOldPassword") strNewPassword1 = request.Form("strNewPassword1") strNewPassword2 = request.Form("strNewPassword2") '----------------------------------------------- 'CHECK FOR ERRORS IN SUBMISSIONS '----------------------------------------------- strPleaseGoBack = " " & GetString("ContentText_Please") & " " & "" & GetString("ContentText_GoBack") & " " & GetString("ContentText_AndCorrectTheProblem") If strOldPassword <> CD_Password then 'If the old code doesn't match the new one then redirect strErrorText = GetString("ContentText_CustomerCodeIncorrect") & strPleaseGoBack elseif strNewPassword1 <> strNewPassword2 then 'if the new codes are different, error! strErrorText = GetString("ContentText_CustomerCodesDifferent") & strPleaseGoBack elseif strNewPassword1 = "" then 'new code not filled in strErrorText = GetString("ContentText_BlankNewCustomerCode") & strPleaseGoBack elseif Application(LICENSENUMBER & "minimumcustomercodesize") <> 0 and len(strNewPassword1) < Application(LICENSENUMBER & "minimumcustomercodesize") then 'code is too short strErrorText = GetString("ContentText_CustomerCodeTooShort") & " " & Application(LICENSENUMBER & "minimumcustomercodesize") & " " & GetString("ContentText_CharactersLong") & strPleaseGoBack else 'otherwise lets update in the database! strQuery = "UPDATE tblCactuShopCardholderDetails SET CD_Password = '" & sqlsafe(strNewPassword1) & "' WHERE CD_EmailAddress = '" & sqlsafe(CD_EmailAddress) & "' AND CD_Password='" & sqlsafe(strOldPassword) & "'" Call ExecuteSQL(strQuery, numCursorType, objRecordSet) strErrorText = GetString("ContentText_CustomerCodeUpdated") & " " & GetString("ContentText_CustomerAccount") & " " & GetString("ContentText_CustomerAccountLogin") end if %>

<% WriteString("PageTitle_MyAccount") %>

<%= strErrorText %>

<% '----------------------------------------------- 'WRITE LAST HALF OF PAGE HTML '----------------------------------------------- response.write(aryPageTemplate(1)) '----------------------------------------------- 'CLOSE DATA CONNECTIONS '----------------------------------------------- objDataConn.Close set objDataConn = nothing %>