DaniWeb IT Discussion Community

Code Snippets (http://www.daniweb.com/code/)
-   asp (http://www.daniweb.com/code/asp.html)
-   -   Display Random Banners (http://www.daniweb.com/code/snippet241.html)

Drew asp syntax
Apr 5th, 2005
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
 

  1. 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).
  2.  
  3. Heres the code, just include it where you want the banner(s) to dispaly:
  4.  
  5. <%
  6. Dim saryBanners(3,3)
  7. Dim intRandomNumber
  8. Dim intTotalBanners
  9.  
  10. intTotalBanners = 3
  11.  
  12. saryBanners(1,1) = "Visit MadDogs-ASP.com!"
  13. saryBanners(1,2) = "http://www.maddogs-asp.com/images/portal-banner.gif"
  14. saryBanners(1,3) = "http://www.maddogs-asp.com/"
  15.  
  16. saryBanners(2,1) = "Visit MadDogs-ASP.com!"
  17. saryBanners(2,2) = "http://www.maddogs-asp.com/forum/uploads/maddog.gif"
  18. saryBanners(2,3) = "http://www.maddogs-asp.com/"
  19.  
  20. saryBanners(3,1) = "Visit MadDogs-ASP.com!"
  21. saryBanners(3,2) = "http://www.maddogs-asp.com/images/maddogs-portal.gif"
  22. saryBanners(3,3) = "http://www.maddogs-asp.com/"
  23.  
  24. randomize
  25. intRandomNumber = Int((intTotalBanners) * Rnd + 1)
  26.  
  27. Response.Write("<a href=""" & saryBanners(intRandomNumber,3) & """ title=""" & saryBanners(intRandomNumber,1) & """ target=""_blank""><img src=""" & saryBanners(intRandomNumber,2) & """ border=""0""></a>")
  28.  
  29. %>