home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / default.asp3 < prev    next >
Text File  |  1997-11-01  |  11KB  |  354 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <% Option Explicit %>
  3. <!--#include file=libAuthenticate.asp-->
  4. <!-- BEGIN HTML-->
  5. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  6. <HTML>
  7. <HEAD>
  8. <!--META TAGS ARE RECOMMENDED FOR THE SEARCH ENGINE-->
  9. <META NAME="DESCRIPTION" CONTENT="Frequent flyer Home Page">
  10. <META NAME="KEYWORDS" CONTENT="frequent flyer, travel, savings, miles, history, vacation">
  11. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  12. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
  13. <!--END META TAGS-->
  14. <TITLE>Exploration Air Frequent Flyer Program</TITLE>
  15. </HEAD>
  16.  
  17. <BODY BGCOLOR=#FFFFFF TOPMARGIN=0 LEFTMARGIN=0 ALINK=#23238E VLINK=#228B22 LINK=#23238E>
  18. <BASEFONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2>
  19.  
  20. <!--Change link color on mouseover
  21.     Only if running Internet Explorer 4.0 or later -->
  22. <!--#include file=../libHighlight.inc-->
  23. <!--#include file=../libGlobalFuncs.inc-->
  24.  
  25. <A NAME="TOP"></A>
  26. <!--COLOR BANNER_START-->
  27. <CENTER>
  28. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  29.     <TR>
  30.         <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20></TD>
  31.     </TR>
  32. </TABLE>
  33. <!--COLOR BANNER_END-->
  34.  
  35. <!--BEGIN TABLE and SUB-TABLES WHICH CONTAIN NAVIGATIONAL SIDEBAR AND MAIN CONTENT-->
  36. <!--BEGIN NAVIGATIONAL SIDEBAR-->
  37. <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100% HEIGHT=100%>
  38.     <TR>
  39.         <TD WIDTH=100% COLSPAN=4 VALIGN=TOP HEIGHT=74>
  40.             <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  41.                 <TR>
  42.                     <TD WIDTH=415 HEIGHT=76>
  43.                         <TABLE WIDTH=415 HEIGHT=76 CELLSPACING=0 CELLPADDING=0 BORDER=0>
  44.                             <TR>
  45.                                 <TD HEIGHT=179 COLSPAN=5>    
  46.                                     <IMG SRC="images/freqflyer.jpg" WIDTH=420 HEIGHT=240 ALT="Exploration Air Frequent Flyer logo">
  47.                                 </TD>
  48.                             </TR>
  49.                             <TR>
  50.                                 <TD ALIGN=RIGHT VALIGN=TOP BGCOLOR="#FFFFFF" WIDTH=20 HEIGHT=31>
  51.                                     <A HREF="<%=HomePage("..")%>"><IMG SRC="../images/barrowy.gif" HEIGHT=8 WIDTH=8 ALT="Return to Exploration Airlines' Home Page" VSPACE=6 BORDER=0></A>
  52.                                 </TD>
  53.                                 <TD VALIGN="TOP" BGCOLOR="#FFFFFF" WIDTH=300 HEIGHT=40>
  54.                                      
  55.                                     <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">
  56.                                         <STRONG><A HREF="<%=HomePage("..")%>">EXPLORATION  AIR  HOME PAGE</A></STRONG>
  57.                                     </FONT>
  58.                                 </TD>
  59.                                 <TD WIDTH=2 BGCOLOR="#FFFFFF"></TD>
  60.                                 <TD VALIGN=TOP BGCOLOR="#FFFFFF" WIDTH=200 HEIGHT=40></TD>
  61.                             </TR>
  62.                         </TABLE>
  63.                     </TD>
  64.  
  65.                     <!--BEGIN TARGETED AD APPLET-->
  66.                     <TD WIDTH=195 ALIGN="RIGHT">
  67.                         <FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR="#0000FF" SIZE=5>
  68.                         <TABLE BORDER=3 BORDERCOLOR=#000000>
  69.                             <TR>
  70.                                 <TD>
  71.                                     <APPLET
  72.                                         code=CoolScroll.class
  73.                                         name=CoolScroll
  74.                                         codebase="../Applets"
  75.                                         width=240
  76.                                         height=240>
  77.  
  78.                                         <param name=ClickHereMsg value="Click here">
  79. <% 
  80.         Dim strFreqFlyerURL
  81.         If UseSSLOnFreqFlyer() Then
  82.             strFreqFlyerURL = GetSecurePrefixValue() 
  83.         Else
  84.             strFreqFlyerURL = GetPrefixValue()
  85.         End If
  86.         strFreqFlyerURL = strFreqFlyerURL
  87.     %>
  88.                                         <param name=URLPrefix value=<%= strFreqFlyerURL %>>
  89.     
  90.                                         <param name=ScrollRate value=10>
  91.                                         <param name=Delay value=4>
  92.  
  93.                                         <% ListAdParameters %>
  94.                                     </APPLET>
  95.                                 </TD>
  96.                             </TR>
  97.                         </TABLE>
  98.                         <!--END TARGETED AD APPLET-->
  99.  
  100.                         </FONT>
  101.                     </TD>
  102.  
  103.                     <TD WIDTH=60>
  104.                         <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  105.                             <TR>
  106.                                 <TD ROWSPAN=2 WIDTH=100% HEIGHT=76 BGCOLOR="#FFFFFF"></TD>
  107.                             </TR>
  108.                         </TABLE>
  109.                     </TD>
  110.                 </TR>
  111.             </TABLE>
  112.         </TD>
  113.     </TR>
  114.  
  115.     <TR>
  116.         <TD VALIGN=TOP BGCOLOR="#FFFFFF"  WIDTH=185>
  117.  
  118.             <!--BEGIN SUB NAVIGATIONAL NESTED TABLE-->
  119.             <TABLE  WIDTH=95% CELLSPACING=0 CELLPADDING=0 BORDER=0>
  120.                 <!-- GO TO THE BEHIND THE SCENES EXPLANATORY PAGE -->
  121.                 <TR>
  122.                     <TD BGCOLOR=#FFFFFF COLSPAN=3 ALIGN=CENTER> 
  123.                         <A HREF="../HowItWorks/HIWFreqDefault.asp">
  124.                         <IMG SRC="../images/btssmall.gif" WIDTH="115" HEIGHT="52" ALT="Click here to learn how this page works" BORDER=0></A>
  125.                     </TD>
  126.                     <TD HEIGHT=5 WIDTH=3></TD>
  127.                 </TR>
  128.                 <TR>
  129.                     <TD COLSPAN=3 ALIGN=CENTER>
  130.                         <FONT FACE="TIMES NEW ROMAN, ARIAL, HELVETICA" COLOR=#228B22 SIZE=5><STRONG>Frequent Flyer     Services</STRONG></FONT>
  131.                     </TD>
  132.                 </TR>    
  133.  
  134.                 <!-- USE YOUR MILES TO BOOK FLIGHT -->
  135.                 <TR>
  136.                     <TD WIDTH=3>
  137.                     </TD>
  138.                     <TD VALIGN=TOP>
  139.                         <A HREF="BookFlight.asp"><IMG SRC="../images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE="4" VSPACE="4" ALT="Navigational button"></a>
  140.                     </TD>
  141.                     <TD WIDTH=170><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR="#228B22"><A HREF="BookFlight.asp">Book a Free Flight</A></FONT>
  142.                         <P>
  143.                     </TD>
  144.                 </TR>
  145.  
  146.                 <!-- VIEW YOUR MEMBERSHIP HISTORY -->
  147.                 <TR>
  148.                     <TD WIDTH=3>
  149.                     </TD>
  150.                     <TD VALIGN=TOP>
  151.                         <A HREF="History.asp"><IMG SRC="../images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE="4" VSPACE="4" ALT="Navigational button"></A>
  152.                     </TD>
  153.                     <TD><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR="#228B22"><A HREF="History.asp">View Member History</A></FONT>
  154.                         <P>
  155.                     </TD>
  156.                 </TR>
  157.  
  158.                 <!-- EDIT YOUR PROFILE -->
  159.                 <TR>
  160.                     <TD WIDTH=3>
  161.                     </TD>
  162.                     <TD VALIGN=TOP>
  163.                         <A HREF="Profile.asp?UpdateUser=1"><IMG SRC="../images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE="4" VSPACE="4" ALT="Navigational button"></A>
  164.                     </TD>
  165.                     <TD><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR="#228B22"><A HREF="Profile.asp?UpdateUser=1">Edit your Profile</A></FONT>
  166.                         <P>
  167.                     </TD>
  168.                 </TR>
  169.  
  170.                 <!-- CHANGE YOUR PASSWORD -->
  171.                 <TR>
  172.                     <TD WIDTH=3>
  173.                     </TD>
  174.                     <TD VALIGN=TOP>
  175.                         <A HREF="Password.asp"><IMG SRC="../images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE="4" VSPACE="4" ALT="Navigational button"></A>
  176.                     </TD>
  177.                     <TD><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR="#228B22"><A HREF="Password.asp">Change your Password</A></FONT>
  178.                         <P>
  179.                     </TD>
  180.                 </TR>
  181.  
  182.                 <!-- VIEW THE DESTINATION OF THE WEEK -->
  183.                 <TR>
  184.                     <TD WIDTH=3>
  185.                     </TD>
  186.                     <TD VALIGN=TOP>
  187.                         <A HREF="Week.asp"><IMG SRC="../images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE="4" VSPACE="4" ALT="Navigational button"></A>
  188.                     </TD>
  189.                     <TD><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR="#228B22"><A HREF="Week.asp">Destination of the Week</A></FONT>
  190.                         <P>
  191.                     </TD>
  192.                 </TR>
  193.  
  194.                 <TR>
  195.                     <TD> </TD>
  196.                 </TR>
  197.  
  198.                 <!-- LOGOFF -->
  199.                 <TR>
  200.                     <TD WIDTH=3></TD>
  201.                     <TD VALIGN=TOP></TD>
  202.                     <TD VALIGN=BOTTOM ALIGN=LEFT>
  203.                         <P>
  204.                         <FORM NAME="QuitForm" METHOD="POST" ACTION="Logoff.asp" OnSubmit="return false">
  205.                             <INPUT TYPE="button" VALUE="Logoff" OnClick="JavaScript:if (ConfirmLogoff()) { this.form.submit() }">
  206.                         </FORM>
  207.                     </TD>
  208.                 </TR>
  209.             </TABLE>
  210.             </CENTER>
  211.  
  212.             <SCRIPT LANGUAGE=JavaScript>
  213.                 function ConfirmLogoff()
  214.                 {
  215.                     return confirm("Are you sure you wish to leave the Frequent Flyer Club?");
  216.                 }
  217.             </SCRIPT>
  218.  
  219.         </TD>
  220.         <TD WIDTH=2 BGCOLOR="#FFFFFF"></TD>
  221.         <TD WIDTH=5></TD>
  222.         <TD BGCOLOR=#FFFFFF VALIGN=TOP HEIGHT=100%>
  223.  
  224.             <CENTER>
  225.             <TABLE WIDTH=95% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  226.                 <TR>
  227.                     <TD HEIGHT=15></TD>
  228.                 </TR>
  229.  
  230.                 <TR>
  231.                     <TD>
  232.                         <FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA">
  233.                         <TABLE WIDTH=95% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  234.                             <TR>
  235.                                 <TD>
  236.                                     <FONT SIZE=3 FACE="VERDANA, ARIAL, HELVETICA">
  237.                                     <STRONG>Category Explanations</STRONG>
  238.                                     </FONT>
  239.                                     <FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA">
  240.                                     <P>
  241.                                     <STRONG>Book a Free Flight</STRONG>
  242.                                     <BR>
  243.                                     Club members can book a free flight using their Exploration Air Miles.
  244.                                     <P>
  245.                                     <STRONG>View Member History</STRONG>
  246.                                     <BR>
  247.                                     Our state-of-the-art tracking system keeps a running tally of the miles you've earned
  248.                                     and used.
  249.                                     <P>
  250.                                     <STRONG>Edit your Profile</STRONG>
  251.                                     <BR>
  252.                                     It's easy to update your preferences: seat location, meal preference, the business
  253.                                     locations you're interested in, and more.
  254.                                     <P>
  255.                                     <STRONG>Change your Password</STRONG>
  256.                                     <BR>
  257.                                     It's easy to change your password at any time.
  258.                                     <P>
  259.                                     <STRONG>Destination of the Week</STRONG>
  260.                                     <BR>
  261.                                     Exploration Air works with top resorts around the world to bring you well-crafted, 
  262.                                     well-priced vacation packages that are hard to resist!
  263.                                     <P>
  264.                                 
  265.                                     <TABLE WIDTH=100% TABLE CELLPADDING=0 BORDER=0>
  266.                                         <TR>
  267.                                             <TD WIDTH=90%> </TD>
  268.                                             <TD WIDTH=10%>
  269.                                                 <A HREF="#TOP"><IMG SRC="../images/up.gif" WIDTH=11 HEIGHT=11 BORDER=0 ALIGN=RIGHT ALT="Up"></A>
  270.                                             </TD>
  271.                                         </TR>
  272.  
  273.                                         <TR>
  274.                                             <TD COLSPAN=2 HEIGHT=1 BGCOLOR="#808080">
  275.                                                 <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0>
  276.                                                     <TR>
  277.                                                         <TD></TD>
  278.                                                     </TR>
  279.                                                 </TABLE>
  280.                                             </TD>
  281.                                         </TR>
  282.  
  283.                                         <TR>
  284.                                             <TD HEIGHT=2 COLSPAN=2></TD>
  285.                                         </TR>
  286.                                         <TR>
  287.                                     </TABLE>
  288.                                     </FONT>
  289.                                 </TD>
  290.                             </TR>
  291.                         </TABLE>
  292.  
  293.                         </FONT>
  294.                         <BR>
  295.                         <BR>
  296.  
  297.                         <CENTER>
  298.                             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1"><A HREF="../legal.htm">©1997 Microsoft Corporation. All rights reserved. Terms of Use.</A></FONT>
  299.                         </CENTER>
  300.  
  301.                         <BR>
  302.                          
  303.                     </TD>
  304.                 </TR>
  305.             </TABLE>
  306.             </CENTER>
  307.  
  308.         </TD>
  309.     </TR>
  310. </TABLE>
  311.  
  312. <!--COLOR BANNER START-->
  313. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  314.     <TR>
  315.     <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  316.     </TD>
  317.     </TR>
  318. </TABLE>
  319. <!--COLOR BANNER END-->
  320.  
  321. </BODY>
  322. </HTML>
  323. <!--END HTML-->
  324.  
  325. <%
  326.     '
  327.     ' This subroutine builds the parameters for the CoolScroll applet
  328.     ' by calling methods which in turn query the database to determine which ads will
  329.     ' appeal to the current member. The result is a list of parameters that tell the 
  330.     ' applet to display ads based on the member's areas of interest.
  331.     '
  332.     ' If an error is encountered during this subroutine, the parameters will not be
  333.     ' properly created. This will potentially keep the applet from running but should
  334.     ' not cause problems for the rest of the page.
  335.     '
  336.     Sub ListAdParameters
  337.         On Error Resume Next
  338.         Dim Ads, arrAdFiles, i, n, strParam, strFileName
  339.  
  340.         Set Ads = Server.CreateObject("ExAir.Advertisement")
  341.         arrAdFiles = Ads.ListForInterests(Application("DSN"), Session("AccountID"))
  342.         n = 0
  343.         For Each i In arrAdFiles
  344.             strFileName = Left(i, InStr(i, ".")) & "asp"
  345.             strParam = "<PARAM NAME=IMAGE" & n & _
  346.             " VALUE=ads/" & i & ">" & Chr(10) & Chr(13) & _
  347.             "<PARAM NAME=URL" & n & _
  348.             " VALUE=ads/" & strFileName & ">" & Chr(10) & Chr(13)
  349.             response.write strParam
  350.             n = n+1
  351.         Next
  352.         response.write "<PARAM NAME=NumItems VALUE=" & n & ">" & Chr(10) & Chr(13)
  353.     End Sub
  354. %>