<% '************************************************************************* ' ASP Scripting: ' Filename: modify_user_account_information_status_page.asp ' Written by: Wilbert Madarang ' Date: Mar 16, 2003 '************************************************************************* ' Description: Reports the Status of Modifying a User Account ' - Whether Successful or Unsuccessful '************************************************************************* ' Revision History: '************************************************************************* %>

<% Call printModifyUserStatus() %>

<% '************************************************************************* ' FUNCTION: printModifyUserStatus ' DESCRIPTION: This function is used to print the User Account Modification Status. ' PARAMETERS: ' RETURNS: '************************************************************************* Function printModifyUserStatus Dim strStatus strStatus = Request("status") strErrorCode = Request( "error_code" ) If strStatus = "successful" Then Response.Write "



" & vbCrLf Response.Write "User Account Update Succesful

" Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & vbCrLf Response.Write "  Your user account has been successfully updated.   Please click here to be returned to the home page. " & vbCrLf Response.Write "

" & vbCrLf Else Response.Write "



" & vbCrLf Response.Write "User Account Update UnSuccesful

" Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & vbCrLf Response.Write "  Your user account has NOT been successfully updated. " & vbCrLf Response.Write "  If you continue to encounter difficulties, please click here to contact us by email. " & vbCrLf Response.Write "  Please click here to be returned to the home page. " & vbCrLf Response.Write "

" & vbCrLf End If End Function %>