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

Please visit our partners

Windows Technology Windows Technology
15 Seconds
ASP 101
ASP Wire
VB Forums
VB Wire
internet.commerce internet.commerce
Partners & Affiliates

ASP 101 is an site
ASP 101 is an site
Internet News
Small Business
Personal Technology

Corporate Info
Tech Jobs
E-mail Offers

ASP 101 News Flash ASP 101 News Flash

ASP Source Code:
Display a random ad:
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
The Network for Technology Professionals



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