N  E  W  S            'Build up the list of headlines <% ListParams %>    Click on a press release above to learn more about us.

= 4 Then %> STYLE="visibility:hiddden;position:absolute;top:0;left:2048;z-index:0" <% End If %> >

<% If HasAccess("benefits/default.asp") Then %> <% End If %> <% If HasAccess("SiteAdmin/default.asp") Then %> <% End If %> <% If IsIndexServerInstalled() Then %> <% End If %> <% If IsCertificateServerInstalled() Then %> <% End If %> Our Online Services <% Dim strFreqFlyerURL If UseSSLOnFreqFlyer() Then strFreqFlyerURL = GetSecurePrefixValue() Else strFreqFlyerURL = GetPrefixValue() End If strFreqFlyerURL = strFreqFlyerURL & "/FreqFlyer" %> Frequent Flyer Club Benefits Site View News Channels Site Admin Product Catalog Search This Site <% Dim strBizPartnersURL If UseSSLOnBusinessPartners() Then strBizPartnersURL = GetSecurePrefixValue() Else strBizPartnersURL = GetPrefixValue() End If strBizPartnersURL = strBizPartnersURL & "/BusinessPartners" %> Business Partners Only Fun 'n' Games <% Dim strCertURL strCertURL = GetServerName() & "/CertSrv/CertEnroll/cacerts.htm" %> Get Our Certificate Reach Us! About This Site (Developers Only!)

Exploration Air, The World's Most Advanced Airline Welcome to the Exploration Air's Web site. Whether you're a seasoned traveler or new to our Frequent Flyer Club, you'll enjoy our secure, quick online services. We're excited to introduce you to the Frequent Flyer Club, our first Web-based service. <% If HasAccess("benefits/default.asp") Then %> News Flash! Users of the Exploration Air Intranet can now access their corporate benefits right off this page! Just click on the Benefits button on the left to find out more! <% End If %> Please <% CreateBookmarkMessage %> and check back often to explore the new services we'll be adding over the upcoming months! <% DisplayPageCount %>

Exploration Air Sample Site for Internet Information Server 4.0 ©1997 Microsoft Corporation. All rights reserved. Terms of Use.

<% If Session("IEVersion") >= 4 Then %> <% End If %> <% ' ListParams uses the FileSystem Object to access a file on the server which holds ' all the latest ExAir headlines. These headlines are then fed into the CoolHeadLines ' Java applet as tags. Sub ListParams On Error Resume Next Dim fso, prFile, intFileNum, strTitle, strLink,strCategory intFileNum = 0 Set fso = Server.CreateObject("Scripting.FileSystemObject") Set prFile = fso.OpenTextFile(Server.MapPath("pr/prFileList.txt")) If Err.Number <> 0 Then Exit Sub End If Do Until prFile.AtEndOfStream ' Get headline strTitle = Chr(34) & prFile.ReadLine & Chr(34) If prFile.AtEndOfStream Then Exit Do ' Get URL strLink = Chr(34) & "pr/" & prFile.ReadLine & Chr(34) ' Get Category (not used in the Java applet) strCategory = prFile.ReadLine response.write "" & Chr(13) response.write "" & Chr(13) intFileNum = intFileNum + 1 Loop Response.Write "" & Chr(13) End Sub ' DisplayPageCount is a function to display the number of users who have come to this site ' so far. It's a function rather than a embedded VBScript so we can catch any errors easily ' This function works only if you have the PageCounter component loaded. ' PageCounter is available from http://www.microsoft.com/iis Sub DisplayPageCount On Error Resume Next Dim MyPageCount, Hits ' The Page Counter Component from the Microsoft Web site has a PROGID = "IISSample" Set MyPageCount = Server.CreateObject("IISSample.PageCounter") MyPageCount.PageHit Hits = MyPageCount.Hits If Err.Number = 0 Then Response.Write "" & Chr(13) Response.Write "