DaniWeb Forum Index > Web Development > ASP

Display Random Banners

Please support our ASP advertiser: PostgreSQL or MySQL? Compare and contrast the two most popular open source databases

Drew

Offline Apr 5th, 2005, 9:31 pm |

I created this code because i was bored and wanted to try something with some code and i ended up creating this little code snip.

Code from: http://www.iportalx.net

Show Printable Version

Code Snippet

•

ASP Syntax

Toggle Plain Text

You can display as many banners as you want. Just change the intTotalBanners to how many banners you have and change the saryBanners(3,3) number 3 (in red) to how many banners you have add more saryBanners(1,3) (changing the number in red for each new banner, go up 1 each time).
 
Heres the code, just include it where you want the banner(s) to dispaly:
 
<%
Dim saryBanners(3,3)
Dim intRandomNumber
Dim intTotalBanners
 
intTotalBanners = 3
 
saryBanners(1,1) = "Visit MadDogs-ASP.com!"
saryBanners(1,2) = "http://www.maddogs-asp.com/images/portal-banner.gif"
saryBanners(1,3) = "http://www.maddogs-asp.com/"
 
saryBanners(2,1) = "Visit MadDogs-ASP.com!"
saryBanners(2,2) = "http://www.maddogs-asp.com/forum/uploads/maddog.gif"
saryBanners(2,3) = "http://www.maddogs-asp.com/"
 
saryBanners(3,1) = "Visit MadDogs-ASP.com!"
saryBanners(3,2) = "http://www.maddogs-asp.com/images/maddogs-portal.gif"
saryBanners(3,3) = "http://www.maddogs-asp.com/"
 
randomize
intRandomNumber = Int((intTotalBanners) * Rnd + 1)
 
Response.Write("<a href=""" & saryBanners(intRandomNumber,3) & """ title=""" & saryBanners(intRandomNumber,1) & """ target=""_blank""><img src=""" & saryBanners(intRandomNumber,2) & """ border=""0""></a>")
 
%>