ASP 101 - Active Server Pages 101 - Web05
The Place ASP Developers Go!

Please visit our partners


Windows Technology Windows Technology
15 Seconds
4GuysFromRolla.com
ASP 101
ASP Wire
VB Forums
VB Wire
WinDrivers.com
internet.commerce internet.commerce
Partners & Affiliates














ASP 101 is an
internet.com site
ASP 101 is an internet.com site
IT
Developer
Internet News
Small Business
Personal Technology

Search internet.com
Advertise
Corporate Info
Newsletters
Tech Jobs
E-mail Offers

ASP 101 News Flash ASP 101 News Flash





ASP Source Code:
<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
%>

Back the the Sample Output

Back to the Sample Index


Home |  News |  Samples |  Articles |  Lessons |  Resources |  Forum |  Links |  Search |  Feedback

Internet.com
The Network for Technology Professionals

Search:

About Internet.com

Legal Notices, Licensing, Permissions, Privacy Policy.
Advertise | Newsletters | E-mail Offers