Exploration Air's Log On Page

<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit Dim m_lngAccountID, m_intLoginRequest, m_strPassword, m_strMainPrompt, m_intPassChk m_intLoginRequest = Request.Form("ValidationReq") If m_intLoginRequest = 1 Then 'This is a request to authenticate and log on ' now validate to make sure an integer was entered If Not IsWholeNum(Request.Form("AccountID")) Then m_strMainPrompt = "You must enter a valid account number to log on. For example: 12345" Else m_strPassword = Request.Form("Password") 'Check to see if the correct password was entered CheckPassword End If Else 'not a login request-- first time hitting the page m_strMainPrompt = "Please enter your account number and password to log on." End If %> <% ' Are we using SSL for this page? Dim m_fUsingSSL m_fUsingSSL = False If UCase(Request.ServerVariables("HTTPS")) = "ON" Then m_fUsingSSL = True %> Exploration Air's Log On Page >


">	> ">EXPLORATION AIR HOME PAGE

COLOR="#0000FF"> <%If m_fUsingSSL Then Response.Write("Secure ")%>Log On
> <%= m_strMainPrompt %>

COLOR="#FFFFFF">Account Number:	>
COLOR="#FFFFFF">Password:

<% ' If this is an SSL connection then place some text ' on the screen to make the users feel comfortable! If m_fUsingSSL Then %>

The site operates in a secure environment while in the Frequent Flyer Club. This ensures the integrity of your name, password and any details you provide.

<% End If %>

Limited Time Offer! Join today and receive 50,000 free miles to get your travel started. You can book a free flight today just by joining!

If you are not a member of the Exploration Air Frequent Flyer Club and would like to join, simply click the button on the left. Once you log on to Exploration Air's Frequent Flyer application, (and fill out a brief form if you're new to our online services) it's very easy to explore the following benefits:

Book a Free Flight
View Your Account History
Edit Your Profile
Destination of the Week

Online customers also receive special vacation package deals available only on our Web site, so be sure to check out Exploration Air's Destination of the Week!

We hope by now we've piqued your interest in the excellent benefits our Frequent Flyer Club members receive. Registering is simple, fast, and secure, and our logon program will provide you with a confidential password.

<% Sub CheckPassword On Error Resume Next Dim Member, intPassResult Set Member = Server.CreateObject("ExAir.Member") If Err.Number <> 0 Then m_strMainPrompt = err.number & err.description & " An error occurred while trying to create an instance of the Member component. Please try to log in again later." Exit Sub End If intPassResult = Member.CheckPassword(Application("DSN"), m_lngAccountID, m_strPassword) If Err.Number <> 0 Then m_strMainPrompt = "An error occurred (" & Hex(Err.Number) & ") while checking the database (" & Application("DSN") & "). Please try to log in again later." Exit Sub End If If intPassResult = 1 Then Session("AccountID") = m_lngAccountID Response.Redirect("default.asp") ' Response.End ElseIf intPassResult = 0 Then m_strMainPrompt = "You did not provide the correct password for this account. Please check your account number and password and try again." End If End Sub Function IsWholeNum(input) On Error Resume Next m_lngAccountID = CLng(input) If Err.Number <> 0 Then IsWholeNum = False Else IsWholeNum = True End If End Function %>