home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_07.cab / default.asp6 < prev    next >
Text File  |  1998-04-27  |  16KB  |  451 lines
  1. <% @LANGUAGE="VBSCRIPT" %>
  2. <% Option Explicit %>
  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 Web site offers secure, rapid online services with the best prices">
  8. <META NAME="KEYWORDS" CONTENT="airline, travel, frequent flyer, online services, transactions, tickets, vacation">
  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. <TITLE>Welcome to Exploration Air Online</TITLE>
  13. </HEAD>
  14.  
  15. <!--#include file=libGlobalFuncs.inc-->
  16.  
  17. <BODY BGCOLOR=#FFFFFF 
  18.       TOPMARGIN=0 
  19.       LEFTMARGIN=0 
  20.       ALINK=#23238E 
  21.       VLINK=#228B22 
  22.       LINK=#23238E
  23.       <% If Session("IEVersion") >= 4 Then %>
  24.       onload="StartGlide()"
  25.       <% End If %>
  26. >
  27.  
  28. <BASEFONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2>
  29.  
  30. <!--Change link color on mouseover
  31.     Only if running Internet Explorer 4.0 or later -->
  32. <!--#include file=libHighlight.inc-->
  33.  
  34. <!--BEGIN TOP TABLE HOLDING PRESS RELEASE JAVA APPLET AND EXPLORATION AIR LOGO-->
  35. <CENTER>
  36. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  37.     <TR>
  38.         <!-- JAVA APPLET TO VIEW LATEST HEADLINES-->
  39.         <TD WIDTH=175 ALIGN=RIGHT>
  40.         <FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22 SIZE="3"><STRONG>N  E  W  S           </STRONG></FONT>
  41.         <BR>
  42.  
  43.         <APPLET
  44.             CODE=CoolHeadLines.class
  45.             NAME=CoolHeadLines
  46.             CODEBASE=Applets
  47.             WIDTH=170
  48.             HEIGHT=76 >
  49.  
  50.             <PARAM NAME=BackColor VALUE="255 255 255">
  51.             <PARAM NAME=TextColor VALUE="0 0 0">
  52.             <PARAM NAME=HiliteTextColor VALUE="60 179 113">
  53.             <PARAM NAME=ScrollDelay VALUE=10>
  54.             <PARAM NAME=MessageDelay VALUE=4>    
  55.               <PARAM NAME=URLPrefix VALUE="<%=GetPrefixValue()%>">
  56.  
  57.             'Build up the list of headlines
  58.             <% ListParams %>
  59.         </APPLET>
  60.     <BR>
  61.     <BR>
  62.     <FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR=#0000FF SIZE=2>
  63.     <EM>   Click on a press release above to learn more about us.</EM>
  64.     </FONT>
  65.     </TD>
  66.     <!-- END PRESS RELEASE JAVA APPLET-->
  67.  
  68.     <!--BEGIN EXPLORATION AIR LOGO-->
  69.     <TD WIDTH=572 ALIGN=RIGHT>
  70.         <IMG ID="WelcomeLogo" 
  71.              SRC="images/welcome.gif" 
  72.              WIDTH=572 
  73.              HEIGHT=270 
  74.              ALT="Exploration Air's welcoming logo"  
  75.              BORDER=0
  76.     <% If Session("IEVersion") >= 4 Then %>
  77.              STYLE="visibility:hiddden;position:absolute;top:0;left:2048;z-index:0"
  78.     <% End If %>
  79.         >
  80.  
  81.     </TD>
  82.     <!--END EXPLORATION AIR LOGO-->
  83.     </TR>
  84. </TABLE>
  85. </CENTER>
  86. <!--END TOP TABLE HOLDING JAVA PRESS RELEASE APPLET AND EXPLORATION AIR LOGO-->
  87. <P>
  88. <P>
  89.  
  90. <!--BEGIN MASTER TABLE THAT HOLDS THREE NESTED TABLES: MAIN AND SUB NAVIGATIONAL TABLES, AND MAIN EXPLORATION AIR CONTENT TABLE-->
  91.     <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 BORDER=0>
  92.     <TR>
  93. <!--THIS TABLE CELL WILL EXPAND IN HEIGHT ACCORDINGLY IF CONTENT IS ADDED TO THE MAIN EXPLORATION AIR CONTENT TABLE, KEEP THE NAVIGATIONAL TABLE IN PLACE, AND ALLOW NEW CATEGORIES TO BE ADDED-->
  94.     <TD VALIGN=TOP HEIGHT=40%>
  95.     <!--BEGIN MAIN NAVIGATIONAL NESTED TABLE-->
  96.     <TABLE BGCOLOR=#FFFFFF CELLSPACING=0 CELLPADDING=0 WIDTH=185 HEIGHT=100% BORDER=0>
  97.     <TR>
  98.     <TD WIDTH=225 ALIGN=RIGHT VALIGN=TOP HEIGHT=100%>
  99.  
  100. <CENTER> 
  101.     <!--BEGIN SUB NAVIGATIONAL NESTED TABLE-->
  102.     <TABLE  WIDTH=95% CELLSPACING=0 CELLPADDING=0 BORDER=0>
  103.     <!-- GO TO THE BEHIND THE SCENES EXPLANATORY PAGE -->
  104.     <TR>
  105.     <TD BGCOLOR=#FFFFFF COLSPAN=3 ALIGN=CENTER> 
  106.     <A HREF="HowItWorks/HIWExAirDefault.asp">
  107.     <IMG SRC="images/btssmall.gif" WIDTH="115" HEIGHT="52" ALT="Click here to learn how this page works" BORDER=0></A>
  108.     </TD>
  109.     <TD HEIGHT=5 WIDTH=3>
  110.     </TD>
  111.     </TR>
  112.  
  113.     <TR>
  114.     <TD BGCOLOR=#FFFFFF COLSPAN=3 ALIGN=CENTER> 
  115.     <BR>
  116.     <FONT FACE="TIMES NEW ROMAN, ARIAL, HELVETICA" COLOR=#228B22 SIZE=5><STRONG>Our Online Services</STRONG></FONT>
  117.     </TD>
  118.     </TR>    
  119.  
  120. <!--BEGIN CATEGORIES AND LINKS-->
  121.  
  122.     <!-- GO TO THE FREQUENT FLYER PROGRAM -->
  123.     <!-- Jumps to a directory which sets up a secure channel using Secure Sockets Layer (SSL)  -->
  124.     <TR>
  125.     <TD WIDTH=3>
  126.     </TD>
  127.     <TD ALIGN=CENTER>
  128.     <% 
  129.         Dim strFreqFlyerURL
  130.         If UseSSLOnFreqFlyer() Then
  131.             strFreqFlyerURL = GetSecurePrefixValue() 
  132.         Else
  133.             strFreqFlyerURL = GetPrefixValue()
  134.         End If
  135.  
  136.         strFreqFlyerURL = strFreqFlyerURL & "/FreqFlyer"
  137.     %>
  138.     <A HREF="<%=strFreqFlyerURL%>"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2 VSPACE=4 ALT="Frequent Flyer Home Page"></A>
  139.     </TD>
  140.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="<%=strFreqFlyerURL%>">Frequent Flyer Club</A></FONT></STRONG><P>
  141.     </TD>
  142.     </TR>
  143.  
  144.     <!-- GO TO BENEFITS -->
  145.     <!-- If the user has been authenticated by Windows NT and they are in the Users group -->
  146.     <% If HasAccess("benefits/default.asp") Then %>
  147.     <TR>
  148.     <TD WIDTH=3></TD>
  149.     <TD ALIGN=CENTER>
  150.     <A HREF="Benefits/Default.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2 VSPACE=4 ALT="Benefits"></A></TD>
  151.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="Benefits/Default.asp">Benefits</A></FONT></STRONG><P></TD>
  152.     </TR>
  153.     <% End If %>
  154.  
  155.     <!-- GO TO THE SITE VIEW -->
  156.     <TR>
  157.     <TD WIDTH=3></TD>
  158.     <TD ALIGN=CENTER>
  159.     <A HREF="siteview.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2 VSPACE=4 ALT="Site View"></A></TD>
  160.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="siteview.asp">Site View</A></FONT></STRONG><P></TD>
  161.     </TR>
  162.  
  163.     <!-- SUBSCRIBE TO THE EXPLORATION AIR CHANNELS -->
  164.     <TR>
  165.     <TD WIDTH=3></TD>
  166.     <TD ALIGN=CENTER>
  167.     <A HREF="IEPush/Channel.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2  VSPACE=4 ALT="News Channels"></A></TD>
  168.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="IEPush/Channel.asp">News Channels</A></FONT></STRONG><P></TD>
  169.     </TR>
  170.  
  171.     <!-- SITE ADMIN -->
  172.     <!-- If the user is an admin then let then admin the site -->
  173.     <% If HasAccess("SiteAdmin/default.asp") Then %>
  174.     <TR>
  175.     <TD WIDTH=3></TD>
  176.     <TD ALIGN=CENTER>
  177.     <A HREF="SiteAdmin/Default.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE="2" VSPACE="4" ALT="Site Administration"></A></TD>
  178.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="SiteAdmin/Default.asp">Site Admin</A></FONT></STRONG><P></TD>
  179.     </TR>
  180.     <% End If %>
  181.  
  182.     <!-- EXAIR/ADVWORKS CATALOG -->
  183.     <TR>
  184.     <TD WIDTH=3></TD>
  185.     <TD ALIGN=CENTER>
  186.     <A HREF="Catalog/Catalog.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE="2" VSPACE="4" ALT="Catalog"></A></TD>
  187.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="Catalog/Catalog.asp">Product Catalog</A></FONT></STRONG><P></TD>
  188.     </TR>
  189.  
  190.     <!-- SEARCH THIS SITE -->
  191.     <% If IsIndexServerInstalled() Then %>
  192.     <TR>
  193.     <TD WIDTH=3></TD>
  194.     <TD ALIGN=CENTER>
  195.     <A HREF="Search/Search.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE="2" VSPACE="4" ALT="Search This Site"></A></TD>
  196.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="Search/Search.asp">Search This Site</A></FONT></STRONG><P></TD>
  197.     </TR>
  198.     <% End If %>
  199.  
  200.     <!-- EXTRANET SCENARIOS -->
  201.     <!-- Jumps to a directory which requires client-side certificate signed by ExAir -->
  202.     <TR>
  203.     <TD WIDTH=3></TD>
  204.     <TD ALIGN=CENTER>
  205.     <% 
  206.         Dim strBizPartnersURL
  207.         If UseSSLOnBusinessPartners() Then
  208.             strBizPartnersURL = GetSecurePrefixValue() 
  209.         Else
  210.             strBizPartnersURL = GetPrefixValue()
  211.         End If
  212.  
  213.         strBizPartnersURL = strBizPartnersURL & "/BusinessPartners"
  214.     %>
  215.     <A HREF="<%=strBizPartnersURL%>"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2 VSPACE=4 ALT="Site View"></A></TD>
  216.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="<%=strBizPartnersURL%>">Business Partners Only</A></FONT></STRONG><P></TD>
  217.     </TR>
  218.  
  219.     <!-- FUN 'N' GAMES-->
  220.     <TR>
  221.     <TD WIDTH=3></TD>
  222.     <TD ALIGN=CENTER>
  223.     <A HREF="FunNGames/FunNGames.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE="2" VSPACE="4" ALT="Fun 'n' Games"></A></TD>
  224.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="FunNGames/FunNGames.asp">Fun 'n' Games</A></FONT></STRONG><P></TD>
  225.     </TR>
  226.  
  227.     <!-- GET OUR SSL CERTIFICATE -->
  228.     <% If IsCertificateServerInstalled() Then %>
  229.     <TR>
  230.     <TD WIDTH=3></TD>
  231.     <TD ALIGN=CENTER>
  232.     <%
  233.         Dim strCertURL
  234.         strCertURL = GetServerName() & "/CertSrv/CertEnroll/cacerts.htm"
  235.     %>
  236.     <A HREF="<%=strCertURL%>"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" border=0 HSPACE="2" VSPACE="4" ALT="Get Our Certificate"></A></TD>
  237.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="<%=strCertURL%>">Get Our Certificate</A></FONT></STRONG><P>
  238.     </TD>
  239.     </TR>
  240.     <% End If %>
  241.  
  242.     <!-- REACH US -->
  243.     <TR>
  244.     <TD WIDTH=3></TD>
  245.     <TD ALIGN=CENTER>
  246.     <A HREF="HowToReachUs.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE="2" VSPACE="4" ALT="Contact Us"></A></TD>
  247.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="HowToReachUs.asp">Reach Us!</A></FONT></STRONG><P></TD>
  248.     </TR>
  249.  
  250.     <!-- DEVELOPER INFO -->
  251.     <TR>
  252.     <TD WIDTH=3></TD>
  253.     <TD ALIGN=CENTER>
  254.     <A HREF="About.asp"><IMG SRC="images/barrow.gif" WIDTH="52" HEIGHT="25" border=0 HSPACE="2" VSPACE="4" ALT="Developer info about the Exploration Air Site"></A></TD>
  255.     <TD><STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22><A HREF="About.asp">About This Site (Developers Only!)</A></FONT></STRONG><P>
  256.     </TD>
  257.     </TR>
  258.  
  259.     </TABLE>
  260. </CENTER>
  261. <!--END CATEGORIES AND LINKS-->
  262. <!--END OF SUB NAVIGATIONAL NESTED TABLE--> 
  263.     </TD>
  264.     </TABLE>
  265.     <!--END OF NESTED NAVIGATIONAL TABLE-->
  266.     </TD>
  267. <!--END OF EXPANDABLE HEIGHT TABLE CELL FROM MASTER TABLE-->
  268.  
  269.     <!--THIS TABLE CELL PROVIDES A SPACER BETWEEN THE NAVIGATIONAL COLUMN AND MAIN     CONTENT-->
  270.     <TD WIDTH=2 BGCOLOR="#FFFFFF">
  271.     </TD>
  272.     <!--END SPACER TABLE CELL-->
  273.  
  274. <!--THIS TABLE CELL IS PART OF THE MASTER TABLE, AND HOLDS THE NESTED MAIN EXPLORATION AIR CONTENT TABLE-->
  275.     <TD BGCOLOR="#FFFFFF" ALIGN=LEFT VALIGN=TOP>
  276.  
  277. <!--BEGIN NESTED TABLE CONTAINING MAIN EXPLORATION AIR CONTENT-->
  278. <TABLE CELLSPACING=0 CELLPADDING=5 BORDER=0>
  279.         <TR>
  280.         <TD VALIGN=TOP> 
  281.         <FONT SIZE=5 FACE="TIMES NEW ROMAN, ARIAL, HELVETICA" COLOR=#0000FF><STRONG>
  282.         <DIV id=Quote1 STYLE="VISIBILITY:HIDDEN">
  283.         Exploration Air,
  284.         <BR>
  285.         The World's Most Advanced Airline</STRONG>
  286.         </FONT>
  287.         </DIV>
  288.         <P>
  289.         <FONT SIZE=3 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#000000>
  290.         Welcome to the Exploration Air's Web site.  Whether you're a seasoned traveler or
  291.         new to our Frequent Flyer Club, you'll enjoy our secure, quick online services. We're
  292.         excited to introduce you to the <STRONG>Frequent Flyer Club</STRONG>, our first 
  293.         Web-based service.  
  294.         <P>
  295.         <% If HasAccess("benefits/default.asp") Then %>
  296.         <FONT COLOR=#FF0000><STRONG>News Flash!</STRONG></FONT> Users of the Exploration Air
  297.         Intranet can now access their corporate benefits right off this page! Just click on 
  298.         the Benefits button on the left to find out more!
  299.         <% End If %>
  300.         <P>
  301.         Please <% CreateBookmarkMessage %> and check back often to explore the new services we'll be adding over 
  302.         the upcoming months!
  303.            <BR>
  304.         <BR>
  305.         <BR>
  306.         <BR>
  307.         <BR>
  308.         <% DisplayPageCount %>
  309.         </FONT>
  310.         </TD> 
  311.     </TR>
  312. </TABLE>
  313. <!--END NESTED TABLE CONTAINING MAIN EXPLORATION AIR CONTENT-->
  314. </TD>
  315. <!--END MASTER TABLE CELL HOLDING THE NESTED MAIN EXPLORATION AIR CONTENT TABLE-->
  316. </TR>
  317. </TABLE>
  318. <!--END MASTER TABLE-->
  319.  
  320. <BR>
  321. <HR WIDTH=600>
  322. <BR>
  323.  
  324. <!--BEGIN HOW THIS PAGE WORKS AND LEGAL INFORMATION TABLE-->
  325. <TABLE WIDTH=100% CELLPADDING=5 CELLSPACING=0 BORDER=0>
  326. <TR>
  327. <TD ALIGN=CENTER>
  328. <A HREF="http://www.microsoft.com/iis/"><IMG SRC="images/iisside.gif" WIDTH="100" HEIGHT="31" ALT="Microsoft NT Server with Internet Information Server" BORDER=0></A>
  329. </TD>
  330.  
  331. <TD ALIGN=CENTER>
  332. <FONT SIZE=3 COLOR=#FFCC00 FACE="VERDANA, ARIAL, HELVETICA" >Exploration Air Sample Site<BR>for Internet Information Server 4.0</FONT>
  333. <BR>
  334. <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=1><A HREF="legal.htm">©1997 Microsoft Corporation. All rights reserved. Terms of Use.</A></FONT>
  335. </TD>
  336.  
  337. <TD ALIGN=CENTER>
  338. <A HREF="http://www.microsoft.com/ie/"><IMG SRC="images/ie_ani.gif" WIDTH="88" HEIGHT="31" ALT="Download Internet Explorer Free!" BORDER=0></A>
  339. </TD>
  340. </TR>
  341. </TABLE>
  342. <!--END HOW THIS PAGE WORKS AND LEGAL INFORMATION TABLE-->
  343.  
  344. <P>
  345.  
  346. <!--COLOR BANNER_START-->
  347. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  348.     <TR>
  349.       <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  350.       </TD>
  351.     </TR>
  352. </TABLE>
  353. <!--COLOR BANNER_END-->
  354.  
  355. </BODY>
  356. </HTML>
  357. <!--END HTML-->
  358.  
  359. <!-- IE4 glide functions -->
  360. <% If Session("IEVersion") >= 4 Then %>
  361. <SCRIPT LANGUAGE = "JScript">
  362.     var id;
  363.     var imgheight = 270;
  364.     var imgwidth = 572;
  365.     function StartGlide()
  366.     {
  367.         document.all.WelcomeLogo.style.pixelLeft=(document.body.offsetWidth/2)-(imgwidth/3)-1;
  368.         document.all.WelcomeLogo.style.pixelTop=-imgheight;
  369.         document.all.WelcomeLogo.style.visibility="visible";
  370.         id = window.setInterval("Glide()",10)
  371.     }
  372.  
  373.     function Glide()
  374.     {
  375.         document.all.WelcomeLogo.style.pixelTop += 10;
  376.         if (document.all.WelcomeLogo.style.pixelTop >= 0)
  377.         {
  378.             document.all.WelcomeLogo.style.pixelTop = 0;
  379.             window.clearInterval(id);
  380.         }
  381.     }
  382. </SCRIPT>
  383. <% End If %>
  384.  
  385. <!-- Miscellaneous Visual Basic Helper Functions -->
  386. <%
  387.     ' ListParams uses the FileSystem Object to access a file on the server which holds
  388.     ' all the latest ExAir headlines. These headlines are then fed into the CoolHeadLines 
  389.     ' Java applet as <PARAM> tags.
  390.     Sub ListParams
  391.         On Error Resume Next
  392.         Dim fso, prFile, intFileNum, strTitle, strLink,strCategory
  393.  
  394.         intFileNum = 0
  395.         
  396.         Set fso = Server.CreateObject("Scripting.FileSystemObject")
  397.         Set prFile = fso.OpenTextFile(Server.MapPath("pr/prFileList.txt"))
  398.         If Err.Number <> 0 Then
  399.             Exit Sub
  400.         End If
  401.         
  402.         Do Until prFile.AtEndOfStream
  403.             ' Get headline
  404.             strTitle = Chr(34) & prFile.ReadLine & Chr(34)
  405.             If prFile.AtEndOfStream Then Exit Do
  406.  
  407.             ' Get URL
  408.             strLink = Chr(34) & "pr/" & prFile.ReadLine & Chr(34)
  409.  
  410.             ' Get Category (not used in the Java applet)
  411.             strCategory = prFile.ReadLine 
  412.  
  413.             response.write "<PARAM NAME=Text" & intFileNum & " VALUE=" & strTitle & ">" & Chr(13)
  414.             response.write "<PARAM NAME=URL" & intFileNum & " VALUE=" & strLink & ">" & Chr(13)
  415.             intFileNum = intFileNum + 1
  416.         Loop
  417.         
  418.         Response.Write "<PARAM NAME=NumItems VALUE=" & intFileNum & ">" & Chr(13)
  419.     End Sub
  420.     
  421.     ' DisplayPageCount is a function to display the number of users who have come to this site
  422.     ' so far. It's a function rather than a embedded VBScript so we can catch any errors easily
  423.     ' This function works only if you have the PageCounter component loaded. 
  424.     ' PageCounter is available from http://www.microsoft.com/iis
  425.     Sub DisplayPageCount
  426.         On Error Resume Next
  427.         Dim MyPageCount, Hits
  428.         ' The Page Counter Component from the Microsoft Web site has a PROGID = "IISSample"
  429.         Set MyPageCount = Server.CreateObject("IISSample.PageCounter")
  430.         MyPageCount.PageHit
  431.         Hits = MyPageCount.Hits
  432.         If Err.Number = 0 Then
  433.             Response.Write "<!--BEGIN HIT COUNTER CODE-->" & Chr(13)
  434.             Response.Write "<CENTER>" & Chr(13)
  435.             Response.Write "This site has had <STRONG>" & Hits & "</STRONG> visits so far!</CENTER><BR>" & Chr(13)
  436.             Response.Write "<!--END HIT COUNTER CODE-->"
  437.         End If
  438.     End Sub
  439.  
  440.     ' CreateBookmarkMessage creates some text depending on the type of browser you are using.
  441.     ' For Microsoft Internet Explorer it uses the term "favorites" but for others it uses the
  442.     ' term "bookmark"
  443.     Sub CreateBookmarkMessage
  444.         If Session("IEVersion") > 0 Then
  445.             response.write "add this to your Microsoft® Internet Explorer Favorites"
  446.         Else
  447.             response.write "add a bookmark to your browser"
  448.         End If
  449.     End Sub
  450. %>
  451.