/* Display a banner ad and link chosen at random				*/ 
/* Steve Balcombe (C) 2004										*/ 
/* Feel free to copy, modify and use as you wish,				*/ 
/* just don't claim it as your own ;-)							*/ 
/* 08 June 2005 - adapted with thanks 							*/
/* by David Pearson Defra CD: added w, h, alt					*/
/*																*/ 
/* Usage														*/ 
/* SEE BOTTOM SECTION OF THIS FILE: amend, add or delete		*/ 
/* ad(image_filename, link_URL) lines as required.				*/ 
/*																*/ 
/* In your web page html - place the following line				*/ 
/* anywhere you want a random ad to appear:						*/ 
/* <script src="random_ad.js"></script>							*/ 

var ra_images = new Array() 
var ra_links = new Array() 
var ra_width = new Array()
var ra_height = new Array()
var ra_alt = new Array()
var ra_image_root = "/"
/*  image folder: "" for same folder, "/" for root, or specify	*/
var next_slot = 0 

function ad(image_filename, link_URL, w, h, alt){ 
ra_images[next_slot] = image_filename 
ra_links[next_slot] = link_URL 
ra_width[next_slot] = w
ra_height[next_slot] = h
ra_alt[next_slot] = alt
next_slot = next_slot + 1 
} 

function random_image(){ 
var adnum = Math.floor(Math.random() * next_slot) 
document.write('<a href='+'"'+ra_links[adnum]+'"><img src="' + ra_image_root + ra_images[adnum] + '" width="'+ra_width[adnum]+'" height="'+ra_height[adnum]+'" alt="'+ra_alt[adnum]+'" border=0></a>') 
} 

/* ------------------------------------------------------------ */ 
/* Edit this section to add or remove images and links			*/ 
ad("graphics/banners/co2-calculator.jpg", "http://collections.europarchive.org/tna/20080727101330/http://www.direct.gov.uk/ActOnCO2"  , "200", "90", "ACT ON CO2 calculator"  )
ad("graphics/banners/co2-calculator.jpg", "http://collections.europarchive.org/tna/20080727101330/http://www.direct.gov.uk/ActOnCO2"  , "200", "90", "ACT ON CO2 calculator"  )
ad("graphics/banners/actonco2-advicebanner1-200.jpg", "http://collections.europarchive.org/tna/20080727101330/http://www.est.org.uk"  , "200", "90", "ACT ON CO2 advice line"  )
ad("graphics/banners/actonco2-advicebanner2-200.jpg", "http://collections.europarchive.org/tna/20080727101330/http://www.est.org.uk"  , "200", "90", "ACT ON CO2 advice line"  )
ad("graphics/banners/mrws-banner.jpg", "http://collections.europarchive.org/tna/20080727101330/http://www.defra.gov.uk/environment/radioactivity/mrws/index.htm"  , "200", "90", "Managing Radioactive Waste Safely"  )
ad("graphics/banners/mrws-banner.jpg", "http://collections.europarchive.org/tna/20080727101330/http://www.defra.gov.uk/environment/radioactivity/mrws/index.htm"  , "200", "90", "Managing Radioactive Waste Safely"  )
/* -------------------------------------------------------------*/ 
random_image()