home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_07.cab / Week.asp < prev    next >
Encoding:
Text File  |  1998-04-27  |  3.9 KB  |  112 lines
  1. <!--BEGIN HTML-->
  2. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  3. <HTML>
  4. <HEAD>
  5. <!--META TAGS ARE RECOMMENDED FOR THE SEARCH ENGINE-->
  6. <META NAME="DESCRIPTION" CONTENT="Exploration Air's NetShow Vacation of the Week demo">
  7. <META NAME="KEYWORDS" CONTENT="vacations, fun, travel, Netshow">
  8. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  9. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
  10. <!--END META TAGS-->
  11.  
  12. <TITLE>Exploration Air's Vacation of the Week</TITLE>
  13. </HEAD>
  14.  
  15. <BODY BGCOLOR=#FFFFFF TOPMARGIN=0 LEFTMARGIN=0 ALINK=#23238E VLINK=#228B22 LINK=#23238E>
  16. <BASEFONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2>
  17.  
  18. <!--Change link color on mouseover
  19.     Only if running Internet Explorer 4.0 or later -->
  20. <!--#include file=../libHighlight.inc-->
  21. <!--#include file=../libGlobalFuncs.inc-->
  22.  
  23. <!--COLOR BANNER_START-->
  24. <CENTER>
  25. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  26.     <TR>
  27.     <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  28.     </TD>
  29.     </TR>
  30.     </TABLE>
  31. <!--COLOR BANNER_END-->
  32.  
  33. <!--BEGIN TOP TABLE CONTAINING LOGO AND NAVIGATIONAL LINK-->
  34. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  35.     <TR>
  36.     <TD VALIGN=TOP WIDTH=415 HEIGHT=76>
  37.         <A HREF="<%=HomePage("..")%>"><IMG SRC="../images/logo_sm.gif" WIDTH=200 HEIGHT=100 ALT="Return to Exploration Air Home Page" BORDER=0></A>
  38.         <BR>
  39.         <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>     
  40.         <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2"><STRONG><A HREF="default.asp">FREQUENT  FLYER  HOME PAGE</A></STRONG></FONT>
  41.         <BR><BR><BR>
  42.         <CENTER><EM><FONT COLOR=#0000FF>This page contains audio and video content.</EM></FONT></CENTER>
  43.     </TD>
  44.     <TD VALIGN=MIDDLE WIDTH=200>
  45.     <FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR="#0000FF" SIZE="5">
  46.     Destination of the Week</FONT>
  47.     <BR>
  48.  
  49. <!-- The NetShow On-Demand Player control -->
  50. <OBJECT CLASSID="clsid:2179C5D3-EBFF-11cf-B6FD-00AA00B4E220"
  51.         ID=NSOPlay
  52.         codebase="http://www.microsoft.com/netshow/download/nsplay.exe#Version=2,0,0,770"
  53.         BORDER="0" WIDTH="320" HEIGHT="303"
  54.         standby="Loading Netshow" >
  55.  
  56.     <PARAM NAME="ClickToPlay" VALUE="0">
  57.     <PARAM NAME="AutoStart" Value="True">
  58.     <PARAM NAME="FileName" value=<%= GetASFFileName %>>
  59.     <PARAM NAME="ControlType" VALUE="0">
  60.  
  61. <!--Alternative HTML-->
  62. <BR><BR>If you do not have the NetShow On-Demand Player, you can download it now from 
  63. <BR><A HREF="http://www.microsoft.com/netshow/download/nsplay.exe#Version=2,0,0,770>the NetShow web site</A>.
  64. <P>
  65. Then please proceed to view Exploration Air's <A HREF="WeekLink.asp">Destination of the Week.</A>
  66. <!--End Alternative HTML-->  
  67. </OBJECT> 
  68. </TD></TR></TABLE>
  69.  
  70. <P> 
  71. <HR=400>
  72. <P>
  73.  
  74. <CENTER>
  75. <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1"><A HREF="../legal.htm">©1997 Microsoft Corporation. All rights reserved. Terms of Use.</A></FONT>
  76. </CENTER>
  77.  
  78. <P>
  79.  
  80. <!--BEGIN COLOR BANNER-->
  81. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  82.     <TR>
  83.         <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>    </TD>
  84.     </TR>
  85. </TABLE>
  86. <!--END COLOR BANNER-->
  87.  
  88. </BODY>
  89. </HTML>
  90. <%
  91.   Function GetASFFileName()
  92.     
  93.         Dim strASFPath ' this variable will store the absolute http reference to the asf file
  94.  
  95.         strASFPath = "http://" & Request.ServerVariables("SERVER_NAME")
  96.         strASFPath = strASFPath & Request.ServerVariables("PATH_INFO")
  97.     
  98.         ' at this point, strASFPath contains an absolute reference to 
  99.         ' this page. For example, if the server name is MyServer and 
  100.         ' the application is stored in a virtual called Exair, then the value
  101.         ' of strASFPath is now "http://MyServer/ExAir/Freqflyer/Week.asp"
  102.         ' The next line gets rid of the "Week.asp" part
  103.     
  104.         strASFPath = left(strASFPath, len(strASFPath) - len("Week.asp"))
  105.         
  106.         ' Now, we need to tack on the rest of the path to the asf file:
  107.         
  108.         strASFPath = strASFPath & "multimedia/k2demo288.asf"
  109.         
  110.         GetASFFileName = strASFPath
  111.     End Function
  112. %>