<%@ LANGUAGE="VBSCRIPT" TRANSACTION=REQUIRED %> <% Option Explicit %> <% ' Dim page-level variables Dim m_UpdateMessage, m_Password1 m_UpdateMessage = "" ' If user entered new password, update database If Request("SavePassword") = "Save" Then GetValuesFromForm ChangePassword m_UpdateMessage = " Language=JavaScript " & _ "onLoad=" & Chr(34) & "{ alert ('Your Password was updated.');" & _ "location.href='default.asp';}" & Chr(34) End If %> Change Your Password >
"> Return to Exploration Air Home Page
Return to Frequent Flyer Home Page   FREQUENT  FLYER  HOME PAGE
Change Your Password
Enter your new password in both fields and then click Save
" LANGUAGE="JavaScript" onSubmit="if (!validateForm(document.PasswordForm)) { alert ('Enter your new password in both fields, then click Save.'); return false; }">
New Password:
New Password:

©1997 Microsoft Corporation. All rights reserved. Terms of Use.

<% 'Get values from Form Sub GetValuesFromForm m_Password1 = Trim(Request.Form("Password1")) End Sub ' ' Update the database. Return 0 if successful or 1 if an error is encountered. ' Function ChangePassword ' On Error Resume Next Dim Member Set Member = Server.CreateObject("ExAir.Member") Member.ChangePassword Application("DSN"), Session("AccountID"), m_Password1 If Err.Number = 0 Then Else ContextObject.SetAbort UpdateDatabase = 1 End If End Function Sub OnTransactionCommit End Sub Sub OnTransactionAbort m_strMainPrompt = "We're sorry, a problem occurred while trying to update the database. Please try again later. " End Sub %>