home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / iis4_07.cab / History.asp < prev    next >
Encoding:
Text File  |  1997-09-08  |  4.2 KB  |  134 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>Use Your Exploration Air Frequent Flyer Miles</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 virtual=IISSamples/ExAir/libHighlight.inc-->
  30.  
  31. <!--COLOR BANNER_START-->
  32. <CENTER>
  33. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  34.     <TR>
  35.       <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  36.       </TD>
  37.     </TR>
  38. </TABLE>
  39. <!--COLOR BANNER_END-->
  40.  
  41. <!--BEGIN TABLE CONTAINING LOGO, TITLE AND NAVIGATIONAL LINK-->
  42. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  43.     <TR>
  44.       <TD VALIGN=TOP WIDTH=415 HEIGHT=76>
  45.         <IMG SRC="../images/logo_sm.gif" WIDTH=200 HEIGHT=100 ALT="Exploration Air logo" VSPACE="20">
  46.         <BR>
  47.         <A HREF="../default.asp"><IMG SRC="../images/barrowy.gif" HEIGHT=8 WIDTH=8 HSPACE=5         ALT="Return to Exploration Air Home Page" BORDER=0></A> 
  48.         <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2"><STRONG><A HREF="../default.asp">EXPLORATION  AIR  HOME PAGE</A></STRONG></FONT>
  49.       </TD>
  50.       <TD VALIGN=MIDDLE WIDTH=200><FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR="#0000FF" SIZE=5>
  51.         Frequent flyer History and Reports</FONT>
  52.       </TD>
  53.     </TR>
  54.     <TR>
  55.         <TD>
  56.         <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> 
  57.         <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2><STRONG><A HREF="default.asp">FREQUENT flyer HOME PAGE</A></STRONG></FONT>
  58.       </TD>
  59.     </TR>
  60. </TABLE>
  61. <!--END TABLE CONTAINING LOGO, TITLE AND NAVIGATIONAL LINK-->
  62.  
  63. <BR>
  64. <BR>
  65.  
  66. <!-- BEGIN TABLE CONTAINING THE MEMBER'S FLIGHT AND MILEAGE HISTORY -->
  67. <CENTER>
  68. <TABLE BORDER=1>
  69.     <TR>
  70.         <TD BGCOLOR=#C0C0C0 WIDTH=150>Date
  71.       </TD>
  72.       <TD BGCOLOR=#C0C0C0 WIDTH=150>From
  73.       </TD>
  74.       <TD BGCOLOR=#C0C0C0 WIDTH=150>To
  75.       </TD>
  76.         <TD BGCOLOR=#C0C0C0 WIDTH=50>Mileage
  77.       </TD>
  78.       <TD BGCOLOR=#C0C0C0>Notes
  79.       </TD>
  80.     </TR>
  81. <% ListMemberHistory %>
  82. </TABLE>
  83. </CENTER>
  84. <BR>
  85. <!--DISPLAY MILES EARNED-->
  86. <CENTER>
  87. You have earned <%= m_lngMileage %> miles.
  88. </CENTER>
  89. <!--END DISPLAY MILES EARNED-->
  90.  
  91. <P> 
  92. <HR=400>
  93. <P>
  94.  
  95. <CENTER>
  96. <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1"><A HREF="../legal.htm">©1997 Microsoft Corporation. All rights reserved. Terms of Use.</A></FONT>
  97. </CENTER>
  98.  
  99. <P>
  100.  
  101. <!--BEGIN COLOR BANNER-->
  102. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  103.     <TR>
  104.       <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  105.       </TD>
  106.     </TR>
  107. </TABLE>
  108. <!--END COLOR BANNER-->
  109.  
  110. </BODY>
  111. </HTML>
  112. <!--END HTML-->
  113.  
  114. <%
  115.   '
  116.   ' Generate the rows for a table consisting of the history for the current member.
  117.   '
  118.   Sub ListMemberHistory
  119.     Dim History, rstHistoryList
  120.     Set History = Server.CreateObject("ExAir.History")
  121.     Set rstHistoryList = History.ListHistoryForID(Application("DSN"), Session("AccountID"))
  122.     Do Until rstHistoryList.EOF
  123.       Response.Write "<TR>" & Chr(13)
  124.       Response.Write "<TD>" & rstHistoryList("TravelDate") & "</TD>" & Chr(13)
  125.       Response.Write "<TD>" & rstHistoryList("Departure") & "</TD>" & Chr(13)
  126.       Response.Write "<TD>" & rstHistoryList("Arrival") & "</TD>" & Chr(13)
  127.       Response.Write "<TD>" & rstHistoryList("Miles") & "</TD>" & Chr(13)
  128.       Response.Write "<TD>" & rstHistoryList("Comment") & "</TD>" & Chr(13)
  129.       Response.Write "</TR>" & Chr(13)
  130.       rstHistoryList.MoveNext
  131.       Response.Write "</TR>" & Chr(13)
  132.     Loop
  133.   End Sub
  134. %>