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