<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
' Ensure that the client-browser doesn't cache
Response.Expires = 0
%>
Content Rotator Sample
Contenet Rotator Sample
<%
Dim Tip
Set Tip = Server.CreateObject("MSWC.ContentRotator")
Response.Write(Tip.ChooseContent("tiprot.txt"))
%>
Refresh (You may have to do this several times)