home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_07.cab / AdRotator_VBScript.asp < prev    next >
Text File  |  1998-04-27  |  583b  |  31 lines
  1. <% @ LANGUAGE = VBScript %>
  2. <% Option Explicit      %>
  3.  
  4. <HTML>
  5.     <HEAD>
  6.         <TITLE>Ad Rotator Sample</TITLE>
  7.     </HEAD>
  8.  
  9.     <BODY BGCOLOR="White" topmargin="10" leftmargin="10">
  10.  
  11.         <!-- Display Header -->
  12.  
  13.         <font size="4" face="Arial, Helvetica">
  14.         <b>Ad Rotator Sample</b></font><br>
  15.       
  16.         <hr size="1" color="#000000">
  17.  
  18.  
  19.         <%
  20.             Dim ad
  21.             
  22.              Set ad = Server.CreateObject("MSWC.AdRotator")
  23.         %>
  24.  
  25.         <%= ad.GetAdvertisement("adrot.txt") %>
  26.  
  27.         <a href="AdRotator_VBScript.asp"> Revisit Page </a>
  28.  
  29.     </BODY>
  30. </HTML>
  31.