<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% Dim m_Member, m_lngMileage Set m_Member = Server.CreateObject("ExAir.Member") m_lngMileage = m_Member.GetMileage(Application("DSN"), Session("AccountID")) %> Exploration Air Frequent Flyer Member History
Return to Exploration Air Homepage Frequent Flyer History and Reports
Return to Frequent Flyer Home Page  FREQUENT FLYER HOME PAGE


<% ListMemberHistory %>
Date From To Mileage Notes

Your current Frequent Flyer account balance is <%= FormatNumber(m_lngMileage,0) %> miles.

©1997 Microsoft Corporation. All rights reserved. Terms of Use.

<% ' ' Generate the rows for a table consisting of the history for the current member. ' Sub ListMemberHistory Dim History, rstHistoryList Set History = Server.CreateObject("ExAir.History") Set rstHistoryList = History.ListHistoryForID(Application("DSN"), Session("AccountID")) Do Until rstHistoryList.EOF Response.Write "" & Chr(13) Response.Write "" & FormatDateTime(rstHistoryList("FlightDate"),2) & "" & Chr(13) Response.Write "" & rstHistoryList("Origin") & "" & Chr(13) Response.Write "" & rstHistoryList("Destination") & "" & Chr(13) Response.Write "" & FormatNumber(rstHistoryList("Miles"),0) & "" & Chr(13) Response.Write "" & Chr(160) & rstHistoryList("Comment") & "" & Chr(13) Response.Write "" & Chr(13) rstHistoryList.MoveNext Response.Write "" & Chr(13) Loop End Sub %>