home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / Channel.asp < prev    next >
Text File  |  1997-11-01  |  7KB  |  202 lines
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  2. <HTML>
  3. <HEAD>
  4. <!--META TAGS ARE RECOMMENDED FOR THE SEARCH ENGINE-->
  5. <META NAME="DESCRIPTION" CONTENT="Exploration Air's IE 4.0 Channel Subscription page that demos push technology">
  6. <META NAME="KEYWORDS" CONTENT="Internet Explorer 4.0, channels, push technology, subscriptions, new browser features, ActiveX">
  7. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  8. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
  9. <!--END META TAGS-->
  10.  
  11. <TITLE>Microsoft Internet Explorer 4.0 News Channel</TITLE>
  12. </HEAD>
  13.  
  14. <BODY BGCOLOR=#FFFFFF TOPMARGIN=0 LEFTMARGIN=0 ALINK=#23238E VLINK=#228B22 LINK=#23238E>
  15. <BASEFONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2>
  16.  
  17. <!--Change link color on mouseover
  18.     Only if running Internet Explorer 4.0 or later -->
  19. <!--#include file=../libHighlight.inc-->
  20.  
  21. <!--#include file=../libGlobalFuncs.inc-->
  22.  
  23. <% 
  24.     ' Are they using IE4?
  25.     Dim br 
  26.     Set br = Server.CreateObject("MSWC.BrowserType")
  27.     If br.browser = "IE" And br.majorver >= 4 Then
  28.         fUsingIE4 = True
  29.     Else
  30.         fUsingIE4 = False
  31.     End If
  32. %>
  33.  
  34. <!--COLOR BANNER_START-->
  35. <CENTER>
  36. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  37.     <TR>
  38.       <TD BGCOLOR=#C71585 WIDTH=100% HEIGHT=20>
  39.       </TD>
  40.     </TR>
  41. </TABLE>
  42. <!--COLOR BANNER_END-->
  43.  
  44. <!--BEGIN TABLE CONTAINING LOGO, TITLE AND NAVIGATIONAL LINK-->
  45. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  46.     <TR>
  47.       <TD VALIGN=TOP WIDTH=400>
  48.       <A HREF="<%=Homepage("..")%>">
  49.         <IMG SRC="../images/logo_sm.gif" WIDTH=200 HEIGHT=100 ALT="Return to Exploration Air's Home Page" BORDER=0></A>
  50.         <BR>
  51.       </TD>
  52.       <TD VALIGN=MIDDLE WIDTH=400>
  53.         <FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR=#0000FF SIZE=5>Microsoft Internet Explorer 4.0 News Channel</FONT>
  54.       </TD>
  55.      <TD ALIGN=RIGHT VALIGN=MIDDLE>
  56. <A HREF="../HowItWorks/HIWChannels.asp"><IMG SRC="../images/btssmall.gif" WIDTH="110" HEIGHT="52" ALT="Click here to learn how this page works" BORDER=0></A>
  57.     </TR>
  58. </TABLE>
  59. <!--END TABLE CONTAINING LOGO, TITLE, AND NAVIGATIONAL LINK -->
  60. <BR>
  61.  
  62. <!-- BEGIN TABLE CONTAINING CHANNEL CONTENT -->
  63. <CENTER>
  64. <TABLE WIDTH=100% BORDER=0>
  65.     <TR>
  66.       <TD> </TD>
  67.       <TD>
  68.         <H2>Add <EM>LIVE</EM> Exploration Air updates to your desktop!</H2>
  69.  
  70.             <!-- If the user is using IE4 then provide the explanation text as Dynamic HTML to conserve screen space -->
  71.             <% If fUsingIE4 Then %>
  72.                 <DIV ID=ClickBody STYLE="cursor: hand" onClick="toggle(document.all.MainBody)">
  73.                     <FONT COLOR=#0000FF>
  74.                         Click here to collapse the Channels explanation.
  75.                     </FONT>
  76.                 </DIV>
  77.  
  78.                 <SCRIPT LANGUAGE=JavaScript>
  79.                     function toggle(e)
  80.                     {
  81.                         if (e.style.display=="none")
  82.                         {
  83.                             e.style.display="";
  84.                             document.all.ClickBody.innerText="Click here to collapse the Channels explanation.";
  85.                             document.all.ClickBody.style.color=0xFF;
  86.                         }
  87.                         else
  88.                         {
  89.                             e.style.display="none";
  90.                             document.all.ClickBody.innerText="Click here to learn more about Channels.";
  91.                             document.all.ClickBody.style.color=0xFF;
  92.                         }
  93.                     }
  94.                 </SCRIPT>
  95.                 <SPAN ID=MainBody STYLE="DISPLAY:">
  96.  
  97.             <% End If %>
  98.                 <!-- The text below can be hidden if the user is using Dynamic HTML -->
  99.                 Microsoft Internet Explorer 4.0 introduces new ways to view Web content. 
  100.                 You can use these features to have your favorite Web sites, such as Exploration Air, examined for new content 
  101.                 according to the schedule you specify. Then you can choose to either be notified that there is new content 
  102.                 available or have the new content automatically updated and downloaded to your hard disk 
  103.                 (for example, at night or when your computer is idle) so you can view the pages at your convenience. 
  104.                 This is also called <EM>subscribing</EM> to a Web site (in this sense, subscribing to a site does not necessarily mean paying fees to the site).
  105.                 <P>
  106.                 You can schedule updates for all of the Web sites you subscribe to or for individual sites throughout the day, 
  107.                 daily, weekly, or monthly. 
  108.                 <P>
  109.                 After you have set up your subscriptions, you can view your favorite Web sites off line at your leisure. 
  110.                 <P>
  111.                 Another form of subscribing is <STRONG>channels</STRONG>. Channels are Web sites that are automatically updated to your computer 
  112.                 according to a schedule specified by the content provider. Channels can be displayed in the browser, like other 
  113.                 Web pages, or in a full-screen window and as your desktop or screen saver too! 
  114.                 <P>
  115.                 Exploration Air supports both subscriptions and channels.
  116.                 <P>
  117.                 </SPAN>
  118.       </TD>
  119.     </TR>
  120.  
  121.     <% If fUsingIE4 Then%>
  122.     <TR>
  123.       <TD>
  124.       </TD>
  125.       <TD>
  126.         <FORM NAME="Channel" ACTION="MakeCDF.cdx" METHOD="POST" onsubmit="return (ValidateChannelForm())">
  127.             <CENTER>
  128.                 <HR>
  129.                 <STRONG>Please select the Exploration Air channels you want to subscribe to:</STRONG>
  130.                 <P>
  131.                 <INPUT TYPE="CHECKBOX" ACCESSKEY="D" NAME="PushDest"  VALUE="1" CHECKED>Destinations  
  132.                 <INPUT TYPE="CHECKBOX" ACCESSKEY="F" NAME="PushFin"   VALUE="2"           >Financial News  
  133.                 <INPUT TYPE="CHECKBOX" ACCESSKEY="R" NAME="PushRates" VALUE="3"           >Special Rates  
  134.                 <INPUT TYPE="CHECKBOX" ACCESSKEY="G" NAME="PushGen"   VALUE="4" CHECKED>General News  
  135.                 <P>
  136.                 <INPUT TYPE="IMAGE" VALUE="OK" SRC="images/IEAddChannel.gif" WIDTH="136" HEIGHT="20" ALT="Add Channel News" BORDER=0>
  137.                 <HR>
  138.             </CENTER>
  139.         </FORM>
  140.       </TD>
  141.     </TR>
  142.  
  143.     <SCRIPT LANGUAGE="VBScript">
  144.     Function ValidateChannelForm()
  145.         Dim fOkToSubmit
  146.         fOkToSubmit=false
  147.  
  148.         If document.forms("Channel").item("PushDest").checked  <> 0 Or _
  149.            document.forms("Channel").item("PushFin").checked   <> 0 Or _
  150.            document.forms("Channel").item("PushRates").checked <> 0 Or _
  151.            document.forms("Channel").item("PushGen").checked   <> 0 Then
  152.             fOkToSubmit = true
  153.         End If
  154.  
  155.         If Not fOkToSubmit Then
  156.             MsgBox "You must select at least one channel.", vbExclamation, "Exploration Air News Channels"
  157.         End If
  158.  
  159.         ValidateChannelForm = fOkToSubmit
  160.  
  161.     End Function
  162.     </SCRIPT>
  163.  
  164.     <% Else %>
  165.  
  166.     <TR>
  167.       <TD> <A HREF="http://www.microsoft.com/ie/ie40"><IMG SRC="images/IE40.gif" WIDTH="82" HEIGHT="72" ALT="Internet Explorer 4.0" BORDER=0></A>
  168.       </TD>
  169.       <TD>Visit the <A HREF="http://www.microsoft.com/ie/ie40">Microsoft Internet Explorer 4.0 Web site</A> to learn more.
  170.       </TD>
  171.     </TR>
  172.         
  173.     <% End If %>
  174.  
  175. </TABLE>
  176. <!-- END TABLE CONTAINING CHANNEL CONTENT -->
  177.  
  178. <P> 
  179. <HR=500>
  180. <P>
  181. </CENTER>
  182.  
  183.  
  184. <CENTER>
  185. <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1"><A HREF="../legal.htm">©1997 Microsoft Corporation. All rights reserved. Terms of Use.</A></FONT>
  186. </CENTER>
  187.  
  188. <P>
  189.  
  190. <!--BEGIN COLOR BANNER-->
  191. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  192.     <TR>
  193.       <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  194.       </TD>
  195.     </TR>
  196. </TABLE>
  197. <!--END COLOR BANNER-->
  198.  
  199. </BODY>
  200. </HTML>
  201.  
  202.