
<!--
    // JavaScript to interpolate random images into a page.
	
	//**Start Encode**
	var ic = 32;     // Number of alternative images - INCREMENT THIS EVERY TIME A NEW ITEM IS ADDED
	var i = 0;
	var TextList = new Array(ic);  // Array to hold filenames
	var NumArray = new Array(ic);  // Array to hold filenames	    	
	
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Hooks__Swivels_etc.html\" target=\"external\">Massive Hook Sale</a></font></strong><br>Over 10 million top quality hooks to clear!!! Many at below best wholesale prices<br></font>";
	i++;			
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/MainLine_Braids.html\" target=\"external\">Braid Line in Bulk</a></font></strong><br>For the best prices on Braid<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Poly___braided_leaders.html\" target=\"external\">Airflo Polyleaders</a></font></strong><br>Save up to 39% on superb Salmon or Trout Polyleaders from Airflo<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Online_Catalogue_Knives_29.html\" target=\"external\">Top Brand Knives</a></font></strong><br>MASSIVE Savings on a huge range of knives from Top Worldwide Brands<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Online_Catalogue_General_Clothing_71.html\" target=\"external\">Fleece Jackets - upto 50% off</a></font></strong><br>Beat the cold this winter without breaking the bank - Save up to 50% on Fleece Jackets<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Gloves_and_Thermals.html\" target=\"external\">Huge Savings on Thermals</a></font></strong><br>Massive savings to be had on our great range of Thermal tops, Thermal Trousers, Socks, Suits, Heat Pads and Warmers etc<br></font>";
	i++;	
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/blowout_deals.htm\" target=\"external\">Blowout Deals!!!</a></font></strong><br>View All the current Tacklebargains Blowout Deals and make a huge saving on your Fishing Tackle<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/blowout_deals.htm\" target=\"external\">Blowout Deals!!!</a></font></strong><br>View All the current Tacklebargains Blowout Deals and make a huge saving on your Fishing Tackle<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Value_Soft_Bait_Selections.html\" target=\"external\">Naturalistic FireEye Sand Eels</a></font></strong><br>A very realistic holographic Sand Eel imitation - A superb Bass bait from only &pound;3.99 for 10<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Online_Catalogue_Fly_Lines_3.html\" target=\"external\">Fly Line Sale - Half Price or LESS</a></font></strong><br>Winter Sale - Airflo 7000 fly lines, Cortland Fly Lines, Loop Fly Lines - Up to 80% OFF<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Salco_Blue_Water_Lures.html\" target=\"external\">Jointed Rubber Tail Lures - BLOWOUT</a></font></strong><br>Any Size - Any Colour - Just &pound;5 each. Don't delay as we are getting low on some colours<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/MainLine_Braids.html\" target=\"external\">Braided Fishing Lines</a></font></strong><br>Braided Super Lines including Power Pro Braids, Spiderwire Fusion, Spiderwire Braid, plus Braid Lines in Bulk<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Flotation_and_Buoyancy.html\" target=\"external\">Fladen Floatation Suits</a></font></strong><br>One piece Flotation suits, Two piece Flotation Suits, and Children's Floatation Suits. Prices from &pound;74.95<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Combos_and_Kits.html\" target=\"external\">Carp Feeder Beginners Kits</a></font></strong><br>Complete sets with just about everything you need to get started, and prices as low as &pound;35<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Bluefox_Vibrax.html\" target=\"external\">Blue Fox Vibrax Lures</a></font></strong><br>Lures and Multi Lure Packs - Save over 30% - with prices from just &pound;2.99<br></font>";
	i++;	
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Hooks__Swivels_etc.html\" target=\"external\">Sea Hooks and Trebles</a></font></strong><br>Massive Savings! Bulk Sea Hooks from &pound;3 per 100, Trebles from &pound;10 per 100<br></font>";
	i++;	
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Online_Catalogue_Single_Handed_Fly_Rods_10.html\" target=\"external\">Airflo SLS & M-Tec Fly Rods</a></font></strong><br>Save up to 61% - superb smooth, fast action from Airflo - Lifetime Warranty plus Free Rod Tube - from only &pound;69.95<br></font>";
	i++;	
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Online_Catalogue_Fly_Reels_2.html\" target=\"external\">Airflo Balance CST Cartridge Fly Reels</a></font></strong><br>A superb Fly Reel brand new for 2005, priced below &pound;50<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/vosseler_fly_reels.htm\" target=\"external\">Vosseler Fly Reels</a></font></strong><br>Superb German made barstock aluminium fly reels, with prices from as low as &pound;65<br></font>";	
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Online_Catalogue_Plug___Stickbaits_112.html\" target=\"external\">Lure Clearance</a></font></strong><br>From only &pound;12.95 per 5 (just &pound;2.59 per lure). Good quality lures with huge discounts to free up storage space<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Online_Catalogue_Fly_Fishing_Clothing_46.html\" target=\"external\">Fly Fishing Vests</a></font></strong><br>From Crazy River - Brand New for 2005, with some great launch promotion offers with prices from only &pound;22.95<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Online_Catalogue_General_Clothing_71.html\" target=\"external\">RealTree Hardwoods HD</a></font></strong><br>Hardwoods HD clothing, including the brand new Buoyancy Aid Fishing Vest - with prices from just &pound;9.95<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Online_Catalogue_Prints_and_Art_91.html\" target=\"external\">Fish Prints and Art</a></font></strong><br>UK's largest online selection of quality Wildlife and Fish art prints.<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649\" target=\"external\">Discount Fly Fishing Tackle</a></font></strong><br>Top Brand Fly Fishing tackle, with a huge range of items at discount prices<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649\" target=\"external\">Discount Sea Fishing Tackle</a></font></strong><br>Sea Fishing tackle from many top brands, with a great range of discount prices<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649\" target=\"external\">Discount Coarse Fishing Tackle</a></font></strong><br>Coarse fishing accessories and tackle at unbeatable prices.  Check it out!<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Trade_Offers.html\" target=\"external\">Wholesale and Bulk Fishing Tackle</a></font></strong><br>Looking for the biggest fishing tackle bargains? Then checkout these bulk and wholesale prices...<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Online_Catalogue_Toothy_Critter_57.html\" target=\"external\">Toothy Critter Lures - BOGOF</a></font></strong><br>Head Case and Hot Tail Lures - Great predator and pike lures - Buy one get one FREE<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Fishfinders.html\" target=\"external\">Fishin' Buddy Portable Fish Finders</a></font></strong><br>The most popular Fish Finder in the UK for many years, and now available for under &pound;150<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Online_Catalogue_Fly_Lines_3.html\" target=\"external\">Fly Lines SALE</a></font></strong><br>All Loop lines now Half Price, Airflo Polyfuse lines just &pound;14.95 (RRP &pound;44.95)<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Footwear.html\" target=\"external\">Tretorn Boots</a></font></strong><br>Super quality handmade regular and neoprene lined wellies - at unbeatable prices<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Airflo_Fly_Reels.html\" target=\"external\">Airflo Balance Fly Reels</a></font></strong><br>Launch Promotion - SAVE &pound;100 at just &pound;99<br></font>";	
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Online_Catalogue_Freshwater_Fixed_Spool_Reels_58.html\" target=\"external\">X-File Big Pit Reels</a></font></strong><br>Sale Prices - High specification reels at a clearance price of only &pound;34.95<br></font>";	
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Online_Catalogue_Fly_Lines_3.html\" target=\"external\">Cortland 333 Flylines</a></font></strong><br>RRP &pound;39.99 - Last Years packaging, all sizes on sale at just &pound;20 each<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Pike_and_Carp_Rods.html\" target=\"external\">John Wilson Pike System</a></font></strong><br>Pike Rod with three butts and a tip section - Lure/Stalking Rod, and Baitcasting Rod - Free Reel with every one sold<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Cannon_Downriggers.html\" target=\"external\">Cannon Downriggers</a></font></strong><br>Save up to 30% on Cannon Downriggers plus Cannon accessories, flash weights, mounts, releases, and cable<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Boat___Uptide_rods.html\" target=\"external\">Solid-C Boat Rods</a></font></strong><br>Revolutionary rod-building technology that has never been seen before. &quot;Awesome!&quot;<br></font>";
	i++;
	TextList[i] = "<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><strong><font color=\"#0000FF\"><a href=\"http://www.tacklebargains.co.uk/cgi-bin/at.cgi?a=2649&e=/acatalog/Value_Soft_Bait_Selections.html\" target=\"external\">Firetail Worms FREE Jig Heads</a></font></strong><br>Firetail Worms plus Free Jig Head offer - from just &pound;9.95 per 100<br></font>";		

				
function pickRandom() 
{	
	if (Math.random)
	{		
		var thisval = Math.round(Math.random() * (i-1));		
		return thisval;

	}
	else 
	{
		var now = new Date();
		return thisval2;		

	}
}

function GenerateRandomSet(M, N) {
  // Generate M non-repeating random numbers from 1 to N }
  if (M<1) return []
  var aSet = GenerateRandomSet(M-1, N-1)
  var J = Math.floor(Math.random()*N) + 1 // J is in 1..N
  aSet[J] ? aSet[N]=N : aSet[J]=J
  return aSet  }
  
function replaceSubstring(inputString, fromString, toString) {
   // Goes through the inputString and replaces every occurrence of fromString with toString
   var temp = inputString;
   if (fromString == "") {
      return inputString;
   }
   if (toString.indexOf(fromString) == -1) { // If the string being replaced is not a part of the replacement string (normal situation)
      while (temp.indexOf(fromString) != -1) {
         var toTheLeft = temp.substring(0, temp.indexOf(fromString));
         var toTheRight = temp.substring(temp.indexOf(fromString)+fromString.length, temp.length);
         temp = toTheLeft + toString + toTheRight;
      }
   } else { // String being replaced is part of replacement string (like "+" being replaced with "++") - prevent an infinite loop
      var midStrings = new Array("~", "`", "_", "^", "#");
      var midStringLen = 1;
      var midString = "";
      // Find a string that doesn't exist in the inputString to be used
      // as an "inbetween" string
      while (midString == "") {
         for (var i=0; i < midStrings.length; i++) {
            var tempMidString = "";
            for (var j=0; j < midStringLen; j++) { tempMidString += midStrings[i]; }
            if (fromString.indexOf(tempMidString) == -1) {
               midString = tempMidString;
               i = midStrings.length + 1;
            }
         }
      } // Keep on going until we build an "inbetween" string that doesn't exist
      // Now go through and do two replaces - first, replace the "fromString" with the "inbetween" string
      while (temp.indexOf(fromString) != -1) {
         var toTheLeft = temp.substring(0, temp.indexOf(fromString));
         var toTheRight = temp.substring(temp.indexOf(fromString)+fromString.length, temp.length);
         temp = toTheLeft + midString + toTheRight;
      }
      // Next, replace the "inbetween" string with the "toString"
      while (temp.indexOf(midString) != -1) {
         var toTheLeft = temp.substring(0, temp.indexOf(midString));
         var toTheRight = temp.substring(temp.indexOf(midString)+midString.length, temp.length);
         temp = toTheLeft + toString + toTheRight;
      }
   } // Ends the check to see if the string being replaced is part of the replacement string or not
   return temp; // Send the updated string back to the user
} // Ends the "replaceSubstring" function
  
function TestGRS(M, N) { var Q, j, k=0, Ans=[]
  Q = GenerateRandomSet(M, N)
 
  for (j=0 ; j < Q.length ; j++) if (Q[j]) Ans[k++] = Q[j]
  
  return Ans 
  }
  
 function SetAffiliate(AffilCode) 
 {  	
  	for (j=0 ; j < TextList.length ; j++) 
  	{
		var str = "";
		str = replaceSubstring(TextList[j], "2649", AffilCode);
		TextList[j] = str;
	}
 }
  
// Write out text, using a randomly-chosen image name.
NumArray = TestGRS(4,i);

// -->

