<% '************************************************************************* ' ASP Scripting: ' Filename: membership_signup_page.asp ' Written by: Wilbert Madarang ' Date: January 1, 2003 '************************************************************************* ' Description: This is for new membership signup. '************************************************************************* ' Revision History: ' ' 1.0 WM changed Country from TextBox to SelectionList - March 25, 2003 ' '************************************************************************* ' 1.1 WM fixed bug - May 6, 2003 ' Changed the following from: ' Response.Write "" & vbCrLf ' Response.Write "" & vbCrLf ' 'ay111105 Add referring code '************************************************************************* %> <% '********************** ' LOCAL VARIABLES '********************** Dim inputFirstname, inputLastname, inputEmail, inputPassword, inputConfirmEmail, inputConfirmPassword Dim inputAddress, inputCity, inputProvince, inputPostalCode, inputCountry Dim inputSecretPhrase, inputSecretPhraseHint 'ay111105 Add referring code Dim inputReferCode Dim lbHeader Dim lbFirstname, lbLastname, lbEmail, lbConfirmEmail, lbPassword, lbConfirmPassword Dim lbAddress, lbCity, lbProvince, lbPostalCode, lbCountry Dim lbSecretPhrase, lbSecretPhraseHint 'ay111105 Add referring code Dim lbReferCode Const FORM_ERROR_COLOR = "8ecea8" 'Const FORM_ERROR_COLOR = "94DFDD" %>

<% 'ay111205 Added so that data is only retreived when user tries to re-submit data and not when coming from the home page If ( Request.ServerVariables("HTTP_REFERER")<>"http://dev.charister.com/home.asp" And Request.ServerVariables("HTTP_REFERER")<>"http://www.charister.com/home.asp" And Request.ServerVariables("HTTP_REFERER")<>"http://www.torontoconsulting.com/charister/home.asp") Then Call retrieveSessionUserData() End If 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 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 '********************************************************* ' Changed by WM. March 25, 2003 '********************************************************* ' Changed Country from TextBox to SelectionBox '********************************************************* 'Response.Write inputCountry Response.Write "" & vbCrLf '********************************************************* ' End of change by WM. March 25, 2003 '********************************************************* 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 '**************************************************** ' Modified May 14, 2003 by WM ' 1. Disable this feature enabled. ' 2. Replace with Dummy value passed. '**************************************************** 'Write Secret Phrase Hint 'Response.Write "" & vbCrLf 'Response.Write lbSecretPhraseHint 'Response.Write inputSecretPhraseHint 'Response.Write "" & vbCrLf '**************************************************** Response.Write "" & vbCrLf 'Write Secret Phrase Text Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'ay111105 Add referring code 'Write Refer Code Response.Write "" & vbCrLf Response.Write lbReferCode Response.Write inputReferCode Response.Write "" & vbCrLf 'Write Submit Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & vbCrLf Response.Write "" & vbCrLf If Session("MyCountry") = "canada" Then Response.Write "Canada" & vbCrLf Response.Write "US" & vbCrLf Else Response.Write "US" & vbCrLf Response.Write "Canada" & vbCrLf End If 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 = "

Member Registration   (Existing member, please click here.)

When you sign up at charister.com, you will be first to know about:

Special Promotions and Exclusive Offers to registered customers

Sale Events

New Merchandise

  Please fill in all required information." & vbCrLf& 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 = "State (Province):" & vbCrLf lbPostalCode = "Zip Code (Postal Code):" & vbCrLf lbCountry = "Country:" & vbCrLf lbSecretPhrase = "Secret Phrase:*" & vbCrLf lbSecretPhraseHint = "Secret Phrase Hint:*" & vbCrLf 'ay111105 Add referring code lbReferCode = "Refer Code:

" & vbCrLf 'Fill in all required Data 'ay110705 Update so the error color code only shows right after signup failure and not at new signup ' If bConfirmedRequiredData = False Then If bConfirmedRequiredData = False And ( Request.ServerVariables("HTTP_REFERER")="http://dev.charister.com/membership_signup_page.asp" Or Request.ServerVariables("HTTP_REFERER")="http://www.charister.com/membership_signup_page.asp" Or Request.ServerVariables("HTTP_REFERER")="http://www.torontoconsulting.com/charister/membership_signup_page.asp") Then 'Header lbHeader = "

Member Registration

  Please fill in all the required information highlighted in Green." & 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 = "State (Province):" & vbCrLf End If 'Postal Code If strPostalCode = "" OR IsNull(strPostalCode) Then lbPostalCode = "Zip Code (Postal 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 'ay111105 Add referring code 'ReferCode ' If strReferCode = "" OR IsNull(strReferCode) Then ' lbReferCode = "Refer Code:" & vbCrLf ' End If End If 'Select Another Email If bIsEmailAvailable = False And strEmail <> "" Then lbEmail = "Email Address:
This email is already taken. Please Select Another Email Address." & vbCrLf End If 'Confirm Email If bConfirmedEmail = False And strConfirmEmail <> "" Then lbConfirmEmail = "Confirm Email Address:
The two emails that you entered did not match. Please Re-enter." & vbCrLf End If 'Confirm Password If bConfirmedPassword = False And strConfirmPassword <> "" Then lbConfirmPassword = "Confirm Password:
The two passwords that you entered did not match. Please Reenter." & vbCrLf End If 'Confirm Refer Code If bConfirmedReferCodeExists = False And strReferCode <> "" Then lbReferCode = "Refer Code:
Invalid or Expired Refer Code. If there is not a valid Refer Code, please leave this field empty." & vbCrLf End If End Function '************************************************************************* ' FUNCTION: setupInputButtons ' DESCRIPTION: ' PARAMETERS: ' RETURNS: '************************************************************************* Function setupInputButtons() 'Fill in all required Data 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 'ay111105 Add referring code inputReferCode = "" & vbCrLf End Function %>