<p>
Display a random ad:
</p>
<%
Dim objAdRotator
Dim strAdHtml
' Create our AdRotator object
Set objAdRotator = Server.CreateObject("MSWC.AdRotator")
' Setting these properties is optional... included for illustration
objAdRotator.Border = 0
objAdRotator.Clickable = True
objAdRotator.TargetFrame = "_self"
' Calling the GetAdvertisement method is what does the real work
strAdHtml = objAdRotator.GetAdvertisement("adrotator.txt")
' Dispose of our AdRotator object
Set objAdRotator = Nothing
' Display the generated ad
Response.Write strAdHtml
%>