<% RANDOMIZE TIMER DIM str_Catagory, int_rand, str_link, int_Array_Length DIM array_Main, array_Information, array_Entertainment, array_Spend, array_Downloads '----- Load Main Array ------ array_Main = Array("cbs.medscape.com/homepage", "www.space.com", "www.billboardradio.com", _ "www.about.com", "www.citysearch.com", "www.webtender.com", "www.highschoolalumni.com", "www.kbb.com", _ "www.louvre.fr", "www.loc.gov", "www.timeanddate.com/worldclock", _ "www.caranddriver.com", "www.people.com", "www.satevepost.org", "www.msnbc.com", "www.maximonline.com", "www.lamag.com/opener.htm", "www.ew.com/ew/", "www.newyorker.com/", " www.discover.com/", "www.tvguide.com/", "www.menshealth.com/", "www.bhg.com/", "www.nerve.com/", "www.salon.com/", "www.rollingstone.com/", "www.oxygen.com/", "www.winespectator.com/", "www.muscle-fitness.com/", "eat.epicurious.com/bonappetit/", "www.bostonmagazine.com/", "www.chicagomagazine.com/", "www.nationalgeographic.com/", _ "www.nmmagazine.com", "www.neworleansmagazine.com", "www.oceandrive.com/home/content1.cfm", "www.sandiego-online.com/index.shtml", "www.sailmag.com", "www.surfermag.com", "www.nytimes.com", "www.cnn.com", "www.usatoday.com", "www.latimes.com", "www.washingtonpost.com", "www.chicagotribune.com", "www.boston.com", "www.seattletimes.com", "www.dallasnews.com", "www.orlandosentinel.com", "www.sfgate.com/chronicle/", "www.denverpost.com", "www.chron.com", "www.startribune.com", "www.accessatlanta.com/ajc/", "www.freep.com/", "www.lvrj.com/", "www.charlotte.com/observer/", "www.starnews.com/", "www.uniontrib.com/", "www.ctnow.com/", "www.azcentral.com/", "www.sunspot.net/", "www.courier-journal.com/", "www.nola.com/", "www.nj.com/news/ledger/", "www.oregonian.com/", _ "www.austin360.com/", "www.bloomberg.com/welcome.html", "www.schwab.com/", "www.quicken.com/", "www.businessweek.com/", "www.etrade.com", "www.forbes.com/", "www.earningswhispers.com/", "www.economist.com/", "cnnfn.cnn.com/", _ "www.espn.go.com", "www.sportsline.com", "www.sportingnews.com", "sportsillustrated.cnn.com", "www.mountainzone.com", "www.movies.go.com", "www.nba.com", "www.nfl.com", "www.golfdigest.com", _ "www.bn.com","www.amazon.com","www.gap.com", "www.fredricks.com", _ "www.ticketmaster.com", "www.fogdog.com", "www.bn.com", "www.wine.com/shop/wineshop", _ "www.eluxury.com", "www.sketchers.com", "www.addidas.com", "www.ashford.com", _ "www.ftd.com", "www.shopsuperstore.com", "www.walmart.com", "www.techdepot.com", _ "www.macys.com", "www.oldnavy.com", "www.bloomingdales.com", "www.towerhobbies.com", _ "www.luckybrandjeans.com", "www.niketown.com", "www.ebay.com", "www.footlocker.com", _ "www.abtelectronics.com", "www.half.com", "www.gap.com", "www.store.nordstrom.com", "www.victoriassecret.com", "www.auctions.yahoo.com" , _ "www.hollywood.com", "www.nascar.com", "www.variety.com", "www. people.com", _ "www.universalpictures.com", "www.sonypictures.com", "www.reel.com", "www.comingsoon.net", "www.imdb.com", "www.fox.com", "www.warnerbros.com", _ "www.tbssuperstation.com", "www.titantv.com", "www.launch.com", "www.earthcam.com", _ "www.nbc.com", "www.cbs.com", "www.abc.com", "www.paramount.com", _ "www.abc.go.com/primetime/millionaire/millionaire_home.html", "www.bluemountainarts.com", "www.hsx.com", "www.gamespot.com/gamespot", "www02.pogo.com", "www.xbox.com", "www.funnygreetings.com", "www.netlaughter.com", "www.windowsmedia.com", "www.atomfilms.com", "www.ifilm.com", "www.comingsoon.net/trailers/", "www.launch.com", "www.rockhall.com/home/default.asp", "www.mtv.com", "www.leonardsworlds.com", _ "www.entrepreneur.com/", "www.cdc.gov/index.htm", "www.quotationspage.com/qotd.html", "www.odci.gov/cia/publications/factbook/", "www.ancestry.com/", "www.whitehouse.gov/") '----- Load Information Array ------ array_Information = Array("www.time.com", "www.caranddriver.com/xp/Caranddriver/home.xml", "people.aol.com/people/index.html", "www.satevepost.org/index.shtml", "www.msnbc.com", "www.maximonline.com", "www.lamag.com/opener.htm", "www.ew.com/ew/", "www.newyorker.com/", " www.discover.com/", "www.tvguide.com/", "www.menshealth.com/", "www.bhg.com/", "www.nerve.com/", "www.salon.com/", "www.rollingstone.com/", "www.oxygen.com/", "www.winespectator.com/", "www.muscle-fitness.com/", "eat.epicurious.com/bonappetit/", "www.bostonmagazine.com/", "www.chicagomagazine.com/", "www.nationalgeographic.com/", _ "www.nmmagazine.com", "www.neworleansmagazine.com", "www.oceandrive.com/home/content1.cfm", "www.sandiego-online.com/index.shtml", "www.sailmag.com", "www.surfermag.com", "www.nytimes.com", "www.cnn.com", "www.usatoday.com", "www.latimes.com", "www.washingtonpost.com", "www.chicagotribune.com", "www.boston.com", "www.seattletimes.com", "www.dallasnews.com", "www.orlandosentinel.com", "www.sfgate.com/chronicle/", "www.denverpost.com", "www.chron.com", "www.startribune.com", "www.accessatlanta.com/ajc/", "www.freep.com/", "www.lvrj.com/", "www.charlotte.com/observer/", "www.starnews.com/", "www.uniontrib.com/", "www.ctnow.com/", "www.azcentral.com/", "www.sunspot.net/", "www.courier-journal.com/", "www.nola.com/", "www.nj.com/news/ledger/", "www.oregonian.com/", _ "www.austin360.com/", "www.bloomberg.com/welcome.html", "www.schwab.com/", "www.quicken.com/", "www.businessweek.com/", "www.etrade.com", "www.forbes.com/", "www.earningswhispers.com/", "www.economist.com/", "cnnfn.cnn.com/", "www.entrepreneur.com/") '----- Load Entertainment Array ------ array_Entertainment = Array("www.espn.go.com", "www.sportsline.com", "www.sportingnews.com", "sportsillustrated.cnn.com", "www.mountainzone.com", "www.movies.go.com", "www.nba.com", "www.nfl.com", "www.golfdigest.com", _ "www.hollywood.com", "www.nascar.com", "www.variety.com", "www.people.com", _ "www.universalpictures.com", "www.sonypictures.com", "www.reel.com", "www.comingsoon.net", "www.imdb.com", "www.fox.com", "www.warnerbros.com", _ "www.tbssuperstation.com", "www.titantv.com", "www.launch.com", "www.earthcam.com", _ "www.nbc.com", "www.cbs.com", "www.abc.com", "www.paramount.com", _ "abc.abcnews.go.com/primetime/millionaire/millionaire_home.html", "www.bluemountainarts.com", "www.hsx.com", "www.gamespot.com/gamespot", "www02.pogo.com", "www.xbox.com", "www.funnygreetings.com", "www.netlaughter.com", "www.windowsmedia.com", "www.atomfilms.com", "www.ifilm.com", "www.comingsoon.net/trailers/", "www.launch.com", "www.rockhall.com/home/default.asp", "www.mtv.com", "www.leonardsworlds.com") '----- Load Spend Array ------ array_Spend=Array("www.bn.com","www.amazon.com","www.gap.com", "www.fredricks.com", _ "www.ticketmaster.com", "www.fogdog.com", "www.bn.com", "www.wine.com/shop/wineshop", _ "www.eluxury.com", "www.sketchers.com", "www.addidas.com", "www.shford.com", _ "www.ftd.com", "www.shopsuperstore.com", "www.walmart.com", "www.techdepot.com", _ "www.macys.com", "www.oldnavy.com", "www.bloomingdales.com", "www.towerhobbies.com", _ "www.luckybrandjeans.com", "www.niketown.com", "www.ebay.com", "www.footlocker.com", _ "www.abtelectronics.com", "www.half.com", "www.gap.com", "www.store.nordstrom.com", "www.victoriassecret.com", "www.auctions.yahoo.com") '----- Load Download Array ------ array_Downloads = Array("www.a-tribute-to.com/playmates.php", "www.hotchikas.com/", "www.ideal-teens.com/", "www.aggressivebabes.com/", _ "www.pornstarnirvana.com/", "www.adultxpix.net/", "www.electric-blue.net/main.shtml", "www.neon-girls.com/", "www.bravogirls.com/", _ "www.pornstarmoviezone.com/tgp/", "www.sinfulpornstars.com/", "www.dolls69.com/", "www.pornstarcentre.com/", "www.topclassnudes.com/", "www.kickasspornstars.com/", "www.herebabes.com/", _ "www.mylovedpornstars.com", "www.glamourkiss.com/", "www.twistysdaily.com/", "www.sex-n-roll.com/", "www.pornstarpile.com/", _ "www.shanesbookmarks.com/") str_Catagory=UCASE(Request.Querystring("Catagory")) IF str_Catagory="MAIN" THEN int_array_Length = UBOUND(Array_Main,1)+1 IF str_Catagory="INFORMATION" THEN int_array_Length = UBOUND(Array_Information,1)+1 IF str_Catagory="ENTERTAINMENT" THEN int_array_Length = UBOUND(Array_Entertainment,1)+1 IF str_Catagory="SPEND" THEN int_array_Length = UBOUND(Array_Spend,1)+1 IF str_Catagory="DOWNLOADS" THEN int_array_Length = UBOUND(Array_Downloads,1)+1 IF str_Catagory <> "" THEN int_rand=INT((int_array_length*RND)+1) int_rand=int_rand-1 IF str_Catagory="MAIN" THEN str_Link = array_Main(int_Rand) IF str_Catagory="INFORMATION" THEN str_Link = array_Information(int_Rand) IF str_Catagory="ENTERTAINMENT" THEN str_Link = array_Entertainment(int_Rand) IF str_Catagory="SPEND" THEN str_Link = array_Spend(int_Rand) IF str_Catagory="DOWNLOADS" THEN str_Link = array_Downloads(int_Rand) %> ">