DaniWeb IT Discussion Community - Code Snippet Display Random Banners

DaniWeb IT Discussion Community (http://www.daniweb.com/forums/index.php)

- ASP (http://www.daniweb.com/forums/forum62.html)

- - Code Snippet: Display Random Banners (http://www.daniweb.com/forums/thread216497.html)

Drew	Apr 5th, 2005 9:31 pm

Display Random Banners

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

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>")
 
%>

yonker

Oct 20th, 2009 4:42 am

thank

All times are GMT -4. The time now is 1:13 am.