<%
dim cr
Set cr=Server.CreateObject("MSWC.ContentRotator") 
response.write(cr.ChooseContent("quotes.txt"))
%>