home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / iis4_07.cab / default.asp2 < prev    next >
Encoding:
Text File  |  1997-09-08  |  9.3 KB  |  338 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 virtual=IISSamples/ExAir/libHighlight.inc-->
  23.  
  24. <A NAME="TOP"></A>
  25. <!--COLOR BANNER_START-->
  26. <CENTER>
  27. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  28.     <TR>
  29.         <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  30.         </TD>
  31.     </TR>
  32. </TABLE>
  33. <!--COLOR BANNER_END-->
  34.  
  35.  
  36. <!--BEGIN TABLE and SUB-TABLES WHICH CONTAIN NAVIGATIONAL SIDEBAR AND MAIN CONTENT-->
  37. <!--BEGIN NAVIGATIONAL SIDEBAR-->
  38. <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100% HEIGHT=100%>
  39.     <TR>
  40.         <TD WIDTH=100% COLSPAN=4 VALIGN=TOP HEIGHT=74>
  41.  
  42.     <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  43.  
  44.     <TR>
  45.     <TD WIDTH=415 HEIGHT=76>
  46.  
  47.         <TABLE WIDTH=415 HEIGHT=76 CELLSPACING=0 CELLPADDING=0 BORDER=0>
  48.         
  49.         <TR>
  50.         <TD HEIGHT=179 COLSPAN=5>    
  51.     <IMG SRC="images/freqflyer.jpg" WIDTH=420 HEIGHT=240 ALT="Exploration Air Frequent Flyer logo"></TD>
  52.         </TR>
  53.         
  54.         <TR>
  55.         <TD  ALIGN=RIGHT VALIGN=TOP BGCOLOR="#FFFFFF" WIDTH=20 HEIGHT=31>
  56.         <A HREF="../default.asp"><IMG SRC="../images/barrowy.gif" HEIGHT=8 WIDTH=8 ALT="Return to Exploration Airlines' Home Page" VSPACE=6 BORDER=0></A>
  57.         </TD>
  58.     <TD  VALIGN="TOP" BGCOLOR="#FFFFFF" WIDTH=300 HEIGHT=40>
  59.          <FONT FACE="VERDANA, ARIAL, HELVETICA"         SIZE="2"><STRONG><A HREF="../default.asp">EXPLORATION  AIR  HOMEPAGE</A></STRONG></FONT>
  60.         </TD>
  61.         <TD WIDTH=2 BGCOLOR="#FFFFFF">
  62.         </TD>
  63.         <TD VALIGN=TOP BGCOLOR="#FFFFFF" WIDTH=200 HEIGHT=40>
  64.         </TD>
  65.         </TR>
  66.         </TABLE>
  67.  
  68.     </TD>
  69.  
  70. <!--BEGIN TARGETED AD APPLET-->
  71.     <TD WIDTH=195 ALIGN="RIGHT">
  72. <FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR="#0000FF" SIZE=5>
  73. <TABLE BORDER=3 BORDERCOLOR=#000000>
  74. <TR><TD>
  75. <APPLET
  76.     code=CoolScroll.class
  77.     name=CoolScroll
  78.         codebase=../Applets
  79.     width=240
  80.     height=240 >
  81.  
  82.     <param name=ClickHereMsg value="Click here">
  83.     <param name=URLPrefix value=<%= GetPrefixValue %>>
  84.     
  85.     <param name=ScrollRate value=10>
  86.     <param name=Delay value=4>
  87.  
  88.     <% ListAdParameters %>
  89. </APPLET>
  90. </TD></TR>
  91. </TABLE>
  92. <!--END TARGETED AD APPLET-->
  93. </FONT></TD>
  94.  
  95.     <TD WIDTH=60>
  96.         <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  97.         <TR>
  98.         <TD ROWSPAN=2 WIDTH=100% HEIGHT=76 BGCOLOR="#FFFFFF">
  99.         </TD>
  100.         </TR>
  101.         </TABLE>
  102.     </TD>
  103.     </TR>
  104.     </TABLE>
  105.  
  106. </TD>
  107. </TR>
  108.  
  109. <TR>
  110. <TD VALIGN=TOP BGCOLOR="#FFFFFF"  WIDTH=185>
  111. <!--BEGIN SUB NAVIGATIONAL NESTED TABLE-->
  112.     <TABLE  WIDTH=95% CELLSPACING=0 CELLPADDING=0 BORDER=0>
  113.     <!-- GO TO THE BEHIND THE SCENES EXPLANATORY PAGE -->
  114.     <TR>
  115.     <TD BGCOLOR=#FFFFFF COLSPAN=3 ALIGN=CENTER> 
  116.     <A HREF="../HowItWorks/HIWFreqDefault.asp">
  117.     <IMG SRC="../images/btssmall.gif" WIDTH="115" HEIGHT="52" ALT="Click here to learn how this page works" BORDER=0></A>
  118.     </TD>
  119.     <TD HEIGHT=5 WIDTH=3>
  120.     </TD>
  121.     </TR>
  122.  
  123.     <TR>
  124.     <TD COLSPAN=3 ALIGN=CENTER>
  125.     <FONT FACE="TIMES NEW ROMAN, ARIAL, HELVETICA" COLOR=#228B22 SIZE=5><STRONG>Frequent Flyer     Services</STRONG></FONT>
  126.     </TD>
  127.     </TR>    
  128.  
  129.     <TR>
  130.     <TD WIDTH=3>
  131.     </TD>
  132.  
  133.     <TD VALIGN=TOP>
  134. <A HREF="UseMiles.asp"><IMG SRC="../images/barrow.gif" WIDTH="" HEIGHT="" BORDER=0 HSPACE="4" VSPACE="4" ALT="Navigational button"></a>
  135.     </TD>
  136.     <TD WIDTH=170><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR="#228B22"><A HREF="UseMiles.asp">Use Your Miles</A></FONT>
  137. <P>
  138.     </TD>
  139.     </TR>
  140.  
  141.     <TR>
  142.     <TD WIDTH=3>
  143.     </TD>
  144.  
  145.     <TD VALIGN=TOP>
  146. <A HREF="History.asp"><IMG SRC="../images/barrow.gif" WIDTH="" HEIGHT="" BORDER=0 HSPACE="4" VSPACE="4" ALT="Navigational button"></A>
  147.     </TD>
  148.     <TD><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR="#228B22"><A HREF="History.asp">View Member History</A></FONT>
  149. <P>
  150.     </TD>
  151.     </TR>
  152.  
  153.     <TR>
  154.     <TD WIDTH=3>
  155.     </TD>
  156.  
  157.  
  158.     <TD VALIGN=TOP>
  159.     <A HREF="Profile.asp?UpdateUser=1"><IMG SRC="../images/barrow.gif" WIDTH="" HEIGHT="" BORDER=0 HSPACE="4" VSPACE="4" ALT="Navigational button"></A>
  160.     </TD>
  161.     <TD><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR="#228B22"><A HREF="Profile.asp?UpdateUser=1">Edit Your Profile</A></FONT>
  162. <P>
  163.     </TD>
  164.     </TR>
  165.  
  166.     <TR>
  167.     <TD WIDTH=3>
  168.     </TD>
  169.  
  170.     <TD VALIGN=TOP>
  171.     <A HREF="Week.asp"><IMG SRC="../images/barrow.gif" WIDTH="" HEIGHT="" BORDER=0 HSPACE="4" VSPACE="4" ALT="Navigational button"></A>
  172.     </TD>
  173.     <TD><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR="#228B22"><A HREF="Week.asp">Destination of the Week</A></FONT>
  174. <P>
  175.     </TD>
  176.     </TR>
  177.  
  178.  
  179.     <TR>
  180.     <TD WIDTH=3>
  181.     </TD>
  182.  
  183.     </TD>
  184.     </TR>
  185.     </TABLE>
  186. </CENTER>
  187.  
  188.  
  189.  
  190. </TD>
  191. <TD WIDTH=2 BGCOLOR="#FFFFFF">
  192. </TD>
  193. <TD WIDTH=5>
  194. </TD>
  195.  
  196. <TD BGCOLOR=#FFFFFF VALIGN=TOP HEIGHT=100%>
  197.  
  198. <CENTER>
  199.  
  200.     <TABLE WIDTH=95% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  201.         <TR>
  202.             <TD HEIGHT=15></TD>
  203.         </TR>
  204.  
  205.         <TR>
  206.             <TD>
  207.                 <FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA">
  208.                 <TABLE WIDTH=95% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  209.                     <TR>
  210.                         <TD>
  211.                             <FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA"><STRONG>Category Explanations</STRONG>
  212.                             <P>
  213.                             <STRONG>Use Your Miles</STRONG>
  214.                             <BR>
  215.                             Club members can swap mileage with other members and book Exploration Air flights.
  216.                             <P>
  217.                             <STRONG>View Member History</STRONG>
  218.                             <BR>
  219.                             Our state-of-the-art tracking system keeps a running tally of the miles you've earned.  
  220.                             New Frequent Flyer Club members automatically receive a sign-up bonus of 2,500 miles.
  221.                             <P>
  222.                             <STRONG>Edit Your Profile</STRONG>
  223.                             <BR>
  224.                             It's easy to update your preferences: seat location, meal preference, the business locations 
  225.                             you're interested in, and more.
  226.                             <P>
  227.                             <STRONG>Destination of the Week</STRONG>
  228.                             <BR>
  229.                             Exploration Air works with top resorts around the world to bring you well-crafted, 
  230.                             well-priced vacation packages that are hard to resist!
  231.                             <P>
  232.                             
  233.                             <TABLE WIDTH=100% TABLE CELLPADDING=0 BORDER=0>
  234.                                 <TR>
  235.                                     <TD WIDTH=90%> </TD>
  236.                                     <TD WIDTH=10%>
  237.                                         <A HREF="#TOP"><IMG SRC="../images/up.gif" WIDTH=11 HEIGHT=11 BORDER=0 ALIGN=RIGHT ALT="Up"></A>
  238.                                     </TD>
  239.                                 </TR>
  240.  
  241.                                 <TR>
  242.                                     <TD COLSPAN=2 HEIGHT=1 BGCOLOR="#808080">
  243.                                         <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0>
  244.                                             <TR>
  245.                                                 <TD></TD>
  246.                                             </TR>
  247.                                         </TABLE>
  248.                                     </TD>
  249.                                 </TR>
  250.  
  251.                                 <TR>
  252.                                     <TD HEIGHT=2 COLSPAN=2></TD>
  253.                                 </TR>
  254.                                 <TR>
  255.                             </TABLE>
  256.                             </FONT>
  257.                         </TD>
  258.                     </TR>
  259.                 </TABLE>
  260.  
  261.                 </FONT>
  262.                 <BR>
  263.                 <BR>
  264.  
  265.                 <CENTER>
  266.                     <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1"><A HREF="../legal.htm">©1997 Microsoft Corporation. All rights reserved. Terms of Use.</A></FONT>
  267.                 </CENTER>
  268.  
  269.                 <BR>
  270.                  
  271.             </TD>
  272.         </TR>
  273.     </TABLE>
  274. </CENTER>
  275.  
  276. </TD>
  277. </TR>
  278. </TABLE>
  279.  
  280. <!--COLOR BANNER START-->
  281. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  282.     <TR>
  283.     <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  284.     </TD>
  285.     </TR>
  286.     </TABLE>
  287. <!--COLOR BANNER END-->
  288.  
  289. </BODY>
  290. </HTML>
  291. <!--END HTML-->
  292.  
  293. <%
  294.     '
  295.     ' This subroutine builds the parameters for the CoolScroll applet
  296.     ' by calling methods which in turn query the database to determine which ads will
  297.     ' appeal to the current member. The result is a list of parameters that tell the 
  298.     ' applet to display ads based on the member's areas of interest.
  299.     '
  300.     ' If an error is encountered during this subroutine, the parameters will not be
  301.     ' properly created. This will potentially keep the applet from running but should
  302.     ' not cause problems for the rest of the page.
  303.     '
  304.     Sub ListAdParameters
  305.         On Error Resume Next
  306.         Dim Ads, arrAdFiles, i, n, strParam, strFileName
  307.  
  308.         Set Ads = Server.CreateObject("ExAir.Advertisement")
  309.         arrAdFiles = Ads.ListForInterests(Application("DSN"), Session("AccountID"))
  310.         n = 0
  311.         For Each i In arrAdFiles
  312.             strFileName = Left(i, InStr(i, ".")) & "htm"
  313.             strParam = "<PARAM NAME=IMAGE" & n & _
  314.             " VALUE=ads/" & i & ">" & Chr(10) & Chr(13) & _
  315.             "<PARAM NAME=URL" & n & _
  316.             " VALUE=ads/" & strFileName & ">" & Chr(10) & Chr(13)
  317.             response.write strParam
  318.             n = n+1
  319.         Next
  320.         response.write "<PARAM NAME=NumItems VALUE=" & n & ">" & Chr(10) & Chr(13)
  321.     End Sub
  322.  
  323.     Function GetPrefixValue()
  324.         Dim strFullPath, strLastChar
  325.         strFullPath = "http://"
  326.         strFullPath = strFullPath & Request.ServerVariables("SERVER_NAME")
  327.         strFullPath = strFullPath & Request.ServerVariables("PATH_INFO")
  328.  
  329.         ' now str has a value like: "http://servname/exair/freqflyer/default.asp"
  330.         ' we need to cut off the "/default.asp" part
  331.         strLastChar = ""
  332.         Do Until strLastChar = "/"
  333.             strLastChar = right(strFullPath, 1)
  334.             strFullPath = left(strFullPath, len(strFullPath) - 1)    
  335.         Loop
  336.         GetPrefixValue = strFullPath
  337.     End Function
  338. %>