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