<% '************************************************************************* ' ASP Scripting: ' Filename: user_management_change_account_information.asp ' Written by: Wilbert Madarang ' Date: March 15, 2003 '************************************************************************* ' Description: This is for modifying new account information. '************************************************************************* ' Revision History: '************************************************************************* %> <% '********************** ' LOCAL VARIABLES '********************** Dim inputFirstname, inputLastname, inputEmail, inputPassword, inputConfirmEmail, inputConfirmPassword Dim inputAddress, inputCity, inputProvince, inputPostalCode, inputCountry Dim inputSecretPhrase, inputSecretPhraseHint, inputUserId Dim lbHeader Dim lbFirstname, lbLastname, lbEmail, lbConfirmEmail, lbPassword, lbConfirmPassword Dim lbAddress, lbCity, lbProvince, lbPostalCode, lbCountry Dim lbSecretPhrase, lbSecretPhraseHint, lbUserId Const FORM_ERROR_COLOR = "RED" %>

<% If Session("UserDataAccessedFromDB") = False Then Call retrieveUserDataFromDB( Session("MyEmail") ) Session("UserDataAccessedFromDB") = True End If Call retrieveSessionUserData() Call setupInputLabels() Call setupInputButtons() Call PrintSignUpForm() %>

<% '************************************************************************* ' FUNCTION: PrintSignUpForm ' DESCRIPTION: ' PARAMETERS: ' RETURNS: '************************************************************************* Function PrintSignUpForm Response.Write "

" & vbCrLf Response.Write "" & vbCrLf 'Write Header Response.Write lbHeader 'Write UserId Response.Write "" & vbCrLf Response.Write lbUserId Response.Write inputUserId Response.Write "" & vbCrLf 'Write Firstname Response.Write "" & vbCrLf Response.Write lbFirstname Response.Write inputFirstname Response.Write "" & vbCrLf 'Write Lastname Response.Write "" & vbCrLf Response.Write lbLastname Response.Write inputLastname Response.Write "" & vbCrLf 'Write Email Response.Write "" & vbCrLf Response.Write lbEmail Response.Write inputEmail Response.Write "" & vbCrLf 'Confirm Email Address Response.Write "" & vbCrLf Response.Write lbConfirmEmail Response.Write inputConfirmEmail Response.Write "" & vbCrLf 'Write Password Response.Write "" & vbCrLf Response.Write lbPassword Response.Write inputPassword Response.Write "" & vbCrLf 'Confirm Password Response.Write "" & vbCrLf Response.Write lbConfirmPassword Response.Write inputConfirmPassword Response.Write "" & vbCrLf 'Write Blank Space Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Write Street Address Response.Write "" & vbCrLf Response.Write lbAddress Response.Write inputAddress Response.Write "" & vbCrLf 'Write City Response.Write "" & vbCrLf Response.Write lbCity Response.Write inputCity Response.Write "" & vbCrLf 'Write Province Response.Write "" & vbCrLf Response.Write lbProvince Response.Write inputProvince Response.Write "" & vbCrLf 'Write Postal Code Response.Write "" & vbCrLf Response.Write lbPostalCode Response.Write inputPostalCode Response.Write "" & vbCrLf 'Write Country Response.Write "" & vbCrLf Response.Write lbCountry Response.Write inputCountry Response.Write "" & vbCrLf 'Write Blank Space Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Write Secret Phrase Response.Write "" & vbCrLf Response.Write lbSecretPhrase Response.Write inputSecretPhrase Response.Write "" & vbCrLf 'Write Secret Phrase Hint Response.Write "" & vbCrLf Response.Write lbSecretPhraseHint Response.Write inputSecretPhraseHint Response.Write "" & vbCrLf 'Write Secret Phrase Text Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Write Submit Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

* We ask this question in case you forget your password.

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

" & vbCrLf Response.Write "

" & vbCrLf End Function '************************************************************************* ' FUNCTION: setupInputLabels ' DESCRIPTION: ' PARAMETERS: ' RETURNS: '************************************************************************* Function setupInputLabels() 'Setup These Default Values lbHeader = "

Change of Account Information

  Please fill in all required information." & vbCrLf& vbCrLf lbUserId = "UserId:" & vbCrLf lbFirstname = "First Name:" & vbCrLf lbLastname = "Last Name:" & vbCrLf lbEmail = "Email Address:" & vbCrLf lbConfirmEmail = "Confirm Email Address:" & vbCrLf lbPassword = "Password:" & vbCrLf lbConfirmPassword = "Confirm Password:" & vbCrLf lbAddress = "Street Address:" & vbCrLf lbCity = "City:" & vbCrLf lbProvince = "Province (State):" & vbCrLf lbPostalCode = "Postal Code (Zip Code):" & vbCrLf lbCountry = "Country:" & vbCrLf lbSecretPhrase = "Secret Phrase:*" & vbCrLf lbSecretPhraseHint = "Secret Phrase Hint:*" & vbCrLf 'Fill in all required Data If bConfirmedRequiredData = False Then 'Header lbHeader = "

Change of Account Information

  Please fill in all the required information in " & FORM_ERROR_COLOR & "." & vbCrLf& vbCrLf 'Firstname If strFirstname = "" OR IsNull(strFirstname) Then lbFirstname = "First Name:" & vbCrLf End If 'Lastname If strLastname = "" OR IsNull(strLastname) Then lbLastname = "Last Name:" & vbCrLf End If 'Email If strEmail = "" OR IsNull(strEmail) Then lbEmail = "Email:" & vbCrLf End If 'Email Confirmation If strConfirmEmail = "" OR IsNull(strConfirmEmail) Then lbConfirmEmail = "Confirm Email Address:" & vbCrLf End If 'Password If strPassword = "" OR IsNull(strPassword) Then lbPassword = "Password:" & vbCrLf End If 'Confirm Password If strConfirmPassword = "" OR IsNull(strConfirmPassword) Then lbConfirmPassword = "Confirm Password:" & vbCrLf End If 'Address If strAddress = "" OR IsNull(strAddress) Then lbAddress = "Street Address:" & vbCrLf End If 'City If strCity = "" OR IsNull(strCity) Then lbCity = "City:" & vbCrLf End If 'Province If strProvince = "" OR IsNull(strProvince) Then lbProvince = "Province (State):" & vbCrLf End If 'Postal Code If strPostalCode = "" OR IsNull(strPostalCode) Then lbPostalCode = "Postal Code (Zip Code):" & vbCrLf End If 'Country If strCountry = "" OR IsNull(strCountry) Then lbCountry = "Country:" & vbCrLf End If 'SecretPhrase If strSecretPhrase = "" OR IsNull(strSecretPhrase) Then lbSecretPhrase = "Secret Phrase:" & vbCrLf End If 'SecretPhraseHint If strSecretPhraseHint = "" OR IsNull(strSecretPhraseHint) Then lbSecretPhraseHint = "Secret Phrase Hint:" & vbCrLf End If End If 'Select Another Email If (bIsEmailAvailable = False) AND (bHasEmailChanged=True) Then lbEmail = "Email Address:

This email is already taken. Please Select Another Email Address." & vbCrLf End If 'Confirm Email If bConfirmedEmail = False Then lbConfirmEmail = "Confirm Email Address:
The two emails that you entered did not match. Please Reenter." & vbCrLf End If 'Confirm Password If bConfirmedPassword = False Then lbConfirmPassword = "Confirm Password:
The two passwords that you entered did not match. Please Reenter." & vbCrLf End If End Function '************************************************************************* ' FUNCTION: setupInputButtons ' DESCRIPTION: ' PARAMETERS: ' RETURNS: '************************************************************************* Function setupInputButtons() 'Fill in all required Data inputUserId= "" & strUserId & "" & vbCrLf inputFirstname = "" & vbCrLf inputLastname = "" & vbCrLf inputEmail = "" & vbCrLf inputConfirmEmail = "" & vbCrLf inputPassword = "" & vbCrLf inputConfirmPassword = "" & vbCrLf inputAddress = "" & vbCrLf inputCity = "" & vbCrLf inputProvince = "" & vbCrLf inputPostalCode = "" & vbCrLf inputCountry = "" & vbCrLf inputSecretPhrase = "" & vbCrLf inputSecretPhraseHint = "" & vbCrLf End Function %>