home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / ContentRotator_VBScript.asp < prev    next >
Text File  |  1997-10-25  |  768b  |  38 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <%  Option Explicit     %>
  3.  
  4.  
  5. <%
  6.     ' Ensure that the client-browser doesn't cache
  7.     Response.Expires = 0
  8. %>
  9.  
  10.  
  11. <HTML>
  12.     <HEAD>
  13.         <TITLE>Content Rotator Sample</TITLE>
  14.     </HEAD>
  15.  
  16.  
  17.     <BODY BGCOLOR="White" topmargin="10" leftmargin="10">
  18.  
  19.         <!-- Display Header -->
  20.  
  21.         <font size="4" face="Arial, Helvetica">
  22.         <b>Contenet Rotator Sample</b></font><br>
  23.       
  24.         <hr size="1" color="#000000">
  25.  
  26.         <% 
  27.             Dim Tip
  28.             Set Tip = Server.CreateObject("MSWC.ContentRotator") 
  29.  
  30.             Response.Write(Tip.ChooseContent("tiprot.txt"))
  31.         %>
  32.  
  33.         <hr size="1" color="#000000">
  34.         <A href="ContentRotator_VBScript.asp">Refresh (You may have to do this several times)</A>
  35.  
  36.     </BODY>
  37. </HTML>
  38.