<% '************************************************************************* ' ASP Scripting: ' Filename: checkout_login_page.asp ' Written by: Wilbert Madarang ' Date: June 28, 2003 '************************************************************************* ' Description: The Checkout Login Page '************************************************************************* ' Revision History: ' 1.0 Modified by WM on May 10, 2003 ' Converted reference to template_login_page.asp to ' PrintLoginForm function ' NOTES: There will now be two entry points for the login page. ' Regular login -> user_management_change_account_information.asp ' Checkout login -> checkout_manager.asp '************************************************************************* %> <% '****************************************** ' GLOBAL VARIABLES '****************************************** 'Dim strSuccessUrl, strFailUrl strSuccessUrl = Request( "success_url" ) strFailUrl = Request( "fail_url" ) If ( strSuccessUrl = "" OR IsNull( strSuccessUrl) ) Then strSuccessUrl = "handler_checkout.asp?action=authenticate" End If If ( strFailUrl = "" OR IsNull( strFailUrl ) ) Then strFailUrl = "checkout_login_page.asp" End If %>

Welcome Back to Charister Home Fashion   Please login to update existing account information. <% Call PrintLoginForm %>

<% '************************************************************************* ' Function: PrintLoginForm ' Description: prints the Login Form ' Parameters: strSuccessfulUrl, strFailUrl ' Returns: none ' Written by: Wilbert Madarang ' Date: May 10, 2003 '************************************************************************* Function PrintLoginForm 'Write Form Header Response.Write "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'User Name Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Password Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Invalid Password If Session("MyLoginFailed") = True Then Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf End If 'Link to Retrieve Password Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Submit Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf 'Link to New Membership Registration Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

Email Address:
Password:
	Invalid email address or password. Please try again.
	**Forgot your password? Please click here.
	" & vbCrLf Response.Write "" & vbCrLf Response.Write "
If you have not registered, please click here to sign up for new Membership.

" & vbCrLf Response.Write "

" & vbCrLf End Function %>