home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / History.asp < prev    next >
Text File  |  1997-11-01  |  4KB  |  135 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <% Option Explicit %>
  3. <!--#include file=libAuthenticate.asp-->
  4. <%
  5.   Dim m_Member, m_lngMileage
  6.  
  7.   Set m_Member = Server.CreateObject("ExAir.Member")
  8.   m_lngMileage = m_Member.GetMileage(Application("DSN"), Session("AccountID"))
  9. %>
  10. <!--BEGIN HTML-->
  11. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  12. <HTML>
  13. <HEAD>
  14. <!--META TAGS ARE RECOMMENDED FOR THE SEARCH ENGINE-->
  15. <META NAME="DESCRIPTION" CONTENT="Exploration Air's Member History">
  16. <META NAME="KEYWORDS" CONTENT="trade, upgrade, frequent flyer, free">
  17. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  18. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
  19. <!--END META TAGS-->
  20.  
  21. <TITLE>Exploration Air Frequent Flyer Member History</TITLE>
  22. </HEAD>
  23.  
  24. <BODY BGCOLOR=#FFFFFF TOPMARGIN=0 LEFTMARGIN=0 ALINK=#23238E VLINK=#228B22 LINK=#23238E>
  25. <BASEFONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2>
  26.  
  27. <!--Change link color on mouseover
  28.     Only if running Internet Explorer 4.0 or later -->
  29. <!--#include file=../libHighlight.inc-->
  30. <!--#include file=../libGlobalFuncs.inc-->
  31.  
  32. <!--COLOR BANNER_START-->
  33. <CENTER>
  34. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  35.     <TR>
  36.       <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  37.       </TD>
  38.     </TR>
  39. </TABLE>
  40. <!--COLOR BANNER_END-->
  41.  
  42. <!--BEGIN TABLE CONTAINING LOGO, TITLE AND NAVIGATIONAL LINK-->
  43. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  44.     <TR>
  45.       <TD VALIGN=TOP WIDTH=415 HEIGHT=76>
  46.         <A HREF="../default.asp">
  47.           <IMG SRC="../images/logo_sm.gif" WIDTH=200 HEIGHT=100 
  48.             ALT="Return to Exploration Air Homepage" BORDER=0>
  49.         </A>
  50.       </TD>
  51.       <TD VALIGN=MIDDLE WIDTH=200><FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR="#0000FF" SIZE=5>
  52.         Frequent Flyer History and Reports</FONT>
  53.       </TD>
  54.     </TR>
  55.     <TR>
  56.         <TD>
  57.         <A HREF="default.asp"><IMG SRC="../images/barrowy.gif" HEIGHT=8 WIDTH=8 HSPACE=5 ALT="Return to Frequent Flyer Home Page" BORDER=0></A> 
  58.         <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2><STRONG><A HREF="default.asp">FREQUENT FLYER HOME PAGE</A></STRONG></FONT>
  59.       </TD>
  60.     </TR>
  61. </TABLE>
  62. <!--END TABLE CONTAINING LOGO, TITLE AND NAVIGATIONAL LINK-->
  63.  
  64. <BR>
  65. <BR>
  66.  
  67. <!-- BEGIN TABLE CONTAINING THE MEMBER'S FLIGHT AND MILEAGE HISTORY -->
  68. <CENTER>
  69. <TABLE BORDER=1 WIDTH=90%>
  70.     <TR>
  71.         <TH BGCOLOR=#C0C0C0 WIDTH=150>Date
  72.       </TH>
  73.       <TH BGCOLOR=#C0C0C0 WIDTH=150>From
  74.       </TH>
  75.       <TH BGCOLOR=#C0C0C0 WIDTH=150>To
  76.       </TH>
  77.         <TH BGCOLOR=#C0C0C0 WIDTH=50>Mileage
  78.       </TH>
  79.       <TH BGCOLOR=#C0C0C0>Notes
  80.       </TH>
  81.     </TR>
  82. <% ListMemberHistory %>
  83. </TABLE>
  84. </CENTER>
  85. <BR>
  86. <!--DISPLAY MILES EARNED-->
  87. <CENTER><FONT SIZE=4>
  88. Your current Frequent Flyer account balance is <%= FormatNumber(m_lngMileage,0) %> miles.
  89. </FONT></CENTER>
  90. <!--END DISPLAY MILES EARNED-->
  91.  
  92. <P> 
  93. <HR=400>
  94. <P>
  95.  
  96. <CENTER>
  97. <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1"><A HREF="../legal.htm">©1997 Microsoft Corporation. All rights reserved. Terms of Use.</A></FONT>
  98. </CENTER>
  99.  
  100. <P>
  101.  
  102. <!--BEGIN COLOR BANNER-->
  103. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  104.     <TR>
  105.       <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  106.       </TD>
  107.     </TR>
  108. </TABLE>
  109. <!--END COLOR BANNER-->
  110.  
  111. </BODY>
  112. </HTML>
  113. <!--END HTML-->
  114.  
  115. <%
  116.   '
  117.   ' Generate the rows for a table consisting of the history for the current member.
  118.   '
  119.   Sub ListMemberHistory
  120.     Dim History, rstHistoryList
  121.     Set History = Server.CreateObject("ExAir.History")
  122.     Set rstHistoryList = History.ListHistoryForID(Application("DSN"), Session("AccountID"))
  123.     Do Until rstHistoryList.EOF
  124.       Response.Write "<TR>" & Chr(13)
  125.       Response.Write "<TD>" & FormatDateTime(rstHistoryList("FlightDate"),2) & "</TD>" & Chr(13)
  126.       Response.Write "<TD>" & rstHistoryList("Origin") & "</TD>" & Chr(13)
  127.       Response.Write "<TD>" & rstHistoryList("Destination") & "</TD>" & Chr(13)
  128.       Response.Write "<TD ALIGN=RIGHT>" & FormatNumber(rstHistoryList("Miles"),0) & "</TD>" & Chr(13)
  129.       Response.Write "<TD>" & Chr(160) & rstHistoryList("Comment") & "</TD>" & Chr(13)
  130.       Response.Write "</TR>" & Chr(13)
  131.       rstHistoryList.MoveNext
  132.       Response.Write "</TR>" & Chr(13)
  133.     Loop
  134.   End Sub
  135. %>