<%@ Language=VBScript %> <% 'Option Explicit ' ************************************** ' Name: Default login page, allows creating new account and/or signing-in ' File Name: combo.asp ' Description: allows users to register or login so that they can use glossary ' and other services ' Author: Andrew Gauvin (andrew_gauvin@yahoo.com) ' Date Created: November 8, 2001 by Andrew Gauvin ' Last Modified: ' Modifications: ' TODOs: ' - detect if user is already logged in. if so, redirect to requested page ' ************************************** ' ************************************** ' Include lib files ' ************************************** %> <% ' ************************************** ' Declare page-scoped variables ' ************************************** Dim gs_PageTitle ' of page Dim gs_processPage ' path for login processing ' input fields... ' ************************************** ' Initialize page-scoped variables ' ************************************** gs_PageTitle = "Allen Resources Online Services: Sign In" %> <!-- #include file="..\includes\global_login_lib.asp" --> <!-- #include file="..\includes\global_linkless_header2_comp.asp" --> <script language="javascript"> <!-- var compatibleBrowser = false if (typeof navigator.platform != 'undefined' && navigator.platform == 'Win32' && navigator.userAgent.indexOf('Opera') < 0) { // If netscape, only allow browser versions 4.06 and higher if (navigator.appName == 'Netscape' && parseFloat(navigator.appVersion) > '4.05') { browserType = 'netscape'; compatibleBrowser = true; // If IE, only allow 4.x and 5.x and 6.x browsers (both browsers read as a 4.0 appVersion. } else if (navigator.appName == 'Microsoft Internet Explorer' && parseFloat(navigator.appVersion) == '4.0') { browserType = 'ie'; compatibleBrowser = true; // Not a valid netscape or ie version } // Not on a Win32 Platfrom or is Opera } if (!compatibleBrowser) { alert("Our online services require the use of \"cookies\" and a 4.0 or greater browser. Check the copyright date and version of your browser (Go to \"Help... About..\"). Users of old browsers may want to try the lastest version from Microsoft, Netscape, or Opera."); } // This next little bit of code tests whether the user accepts cookies. var acceptsCookies = false; if(document.cookie == '') { document.cookie = 'acceptsCookies=yes'; // Try to set a cookie. if(document.cookie.indexOf('acceptsCookies=yes') != -1) { acceptsCookies = true; }// If it succeeds, set variable } else { // there was already a cookie acceptsCookies = true; } if (!acceptsCookies) { alert("Our online services require \"cookies\" to be enabled. If your browser asks you to accept cookies, choose \"accept\" each time. Perhaps your browser is not set to allow cookies. Consult \"Help\" on your browser to find out how to change this setting. Check the copyright date on your browser (Go to \"Help... About..\"). Users of old browsers may want to try the lastest version from Microsoft, Netscape, or Opera."); } //--> </script> <table width="400" cellpadding="4" cellspacing="0" border="0" align="left" bordercolor="#FFFFFF" class="text"> <tr > <td colspan="2" style="{border:1px solid #ffffff;}"> <!-- Begin: heading --> <p class="heading"><%= consts_SERVICE_NAME(gi_serviceID) %>: Sign in</p> <!-- End: heading--> </td> </tr> <tr> <td colspan="2"> <!-- Begin: heading menu--> <!-- End: heading menu--> </td> </tr> <tr> <td bgcolor="#FFFFFF"><img src="../images/pxl_trans.gif" border="0" width="300" height="10" /></td> <td bgcolor="#FFFFFF"><img src="../images/pxl_trans.gif" border="0" width="300" height="10" /></td> </tr> <tr> <td valign="top" style="{border:1px solid #cccccc;}"> <p class="subheading">new users...</p> <hr style="height: 1px; border-style: none; border-color: #cccccc; color: #cccccc; background: #cccccc"> <p class="text">Create an online account with Allen Resources to access <%= consts_SERVICE_NAME(gi_serviceID) %>. Just provide your email address and a password. That's it. The next time you access <%= consts_SERVICE_NAME(gi_serviceID) %> you can simply <a href="../account/login.asp">sign in</a>.</p> <% ' 27-JUL-2002 - Set by order form ' FMC 9/8/03: if session(email) is set, that means the user is logged in. ' therefore, register_express is used and the user is taken straight ' to the glossary. gs_email = session("email") if gs_email <> "" then gs_processPage = "register_express.asp" & "?service=" & gi_serviceID else '21 APRIL 2005 PBB 'Added the id= prameter gs_processPage = "register.asp" & "?service=" & gi_serviceID & "&id=" & gs_id end if %> <!-- #include file="../includes/global_register_comp.asp" --> <% ' 27-JUL-2002 - Set by order form gs_email = "" %> </td> <td valign="top" style="{border:1px solid #cccccc; background:#FFFFCC}"> <p class="subheading">registered users...</p> <hr style="height: 1px; border-style: none; border-color: #cccccc; color: #cccccc; background: #cccccc"> <p><b>TestBank Customers</b><br> <a href="http://www.allenresources.com/testbank"><b>Click Here</b></a> to sign in to your TestBank Online account</p> <hr style="height: 1px; border-style: none; border-color: #cccccc; color: #cccccc; background: #cccccc"> <p><b>Free Services</b><br>To sign in for other Free Services<br/> (such as <b>CFA Exam Glossary</b>, <b>Tips-of-the-Week</b>, or <b>Free Downloads</b>, please sign in below:</p> <p> <% gs_processPage = "login.asp" & "?service=" & gi_serviceID %> <!-- #include file="../includes/global_login_comp.asp" --> </td> </tr> </table> <!-- End: body --> <!-- #include file="..\includes\global_linkless_footer2_comp.asp" -->