/***********************************************
* MultiFrame Image Slideshow script- © Dynamic Drive DHTML code library (www.dynamicdrive.com)
* This notice MUST stay intact for legal use
* Visit Dynamic Drive at http://www.dynamicdrive.com/ for full source code
***********************************************/

var seqslides=new Array()
//Set Path to Image plus optional URL ("" for no URL):
seqslides[0]=['images/ads/aea.gif', 'http://www.aeat.co.uk', '_blank']
seqslides[1]=['images/ads/bolzano.gif', 'http://www.provinz.bz.it', '_blank']
seqslides[2]=['images/ads/arreon-carbon.gif', 'http://www.arreon.com', '_blank']
seqslides[3]=['images/ads/argonne.gif', 'http://www.anl.gov', '_blank']
seqslides[4]=['images/ads/bsw.gif', 'http://www.bsw-solar.de', '_blank']
seqslides[5]=['images/ads/bvc.gif', 'http://www.bureauveritas.com', '_blank']
seqslides[6]=['images/ads/brc.gif', 'http://www.redcross.org.uk', '_blank']
seqslides[7]=['images/ads/carbon-clear.gif', 'http://www.carbon-clear.com', '_blank']
seqslides[8]=['images/ads/cardiff-uni.gif', 'http://www.cf.ac.uk/engin', '_blank']
seqslides[9]=['images/ads/co2-global.gif', 'http://www.co2-global.com', '_blank']
seqslides[10]=['images/ads/ceos.gif', 'http://www.ceos.org', '_blank']
seqslides[11]=['images/ads/daimler.gif', 'http://www.daimler.com', '_blank']
seqslides[12]=['images/ads/danfoss.gif', 'http://www.danfoss.com', '_blank']
seqslides[13]=['images/ads/deltares.gif', 'http://www.deltares.nl', '_blank']
seqslides[14]=['images/ads/ecosecurities.gif', 'http://www.ecosecurities.com', '_blank']
seqslides[15]=['images/ads/efqm.gif', 'http://www.efqm.org', '_blank']
seqslides[16]=['images/ads/eurelectric.gif', 'http://www.eurelectric.org', '_blank']
seqslides[17]=['images/ads/epia.gif', 'http://www.epia.org', '_blank']
seqslides[18]=['images/ads/esa.gif', 'http://www.esa.int', '_blank']
seqslides[19]=['images/ads/explore.gif', 'http://www.explore.co.uk', '_blank']
seqslides[20]=['images/ads/slu.gif', 'http://www.sfak.slu.se', '_blank']
seqslides[21]=['images/ads/helsinki-uni.gif', 'http://www.atm.helsinki.fi/indexeng.php', '_blank']
seqslides[22]=['images/ads/fsc.gif', 'http://www.fsc.org', '_blank']
seqslides[23]=['images/ads/geysir.gif', 'http://www.geysirgreenenergy.com', '_blank']
seqslides[24]=['images/ads/groc.gif', 'http://www.grocc.org', '_blank']
seqslides[25]=['images/ads/iodp.gif', 'http://www.iodp.org', '_blank']
seqslides[26]=['images/ads/imo.gif', 'http://www.imo.org', '_blank']
seqslides[27]=['images/ads/nef.gif', 'http://www.neweconomics.org', '_blank']
seqslides[28]=['images/ads/iied.gif', 'http://www.iied.org', '_blank']
seqslides[29]=['images/ads/maha.gif', 'http://www.maha.de', '_blank']
seqslides[30]=['images/ads/npl.gif', 'http://www.npl.co.uk', '_blank']
seqslides[31]=['images/ads/ires.gif', 'http://www.ncl.ac.uk/environment', '_blank']
seqslides[32]=['images/ads/noble.gif', 'http://www.thisisnoble.com', '_blank']
seqslides[33]=['images/ads/nuon.gif', 'http://www.nuon.com', '_blank']
seqslides[34]=['images/ads/orbeo.gif', 'http://www.orbeo.com', '_blank']
seqslides[35]=['images/ads/philips.gif', 'http://www.asimpleswitch.com', '_blank']
seqslides[36]=['images/ads/plantlife.gif', 'http://www.plantlife.org.uk', '_blank']
seqslides[37]=['images/ads/regione-abruzzo.gif', 'http://territorio.regione.abruzzo.it', '_blank']
seqslides[38]=['images/ads/ricoh.gif', 'http://www.ricoh.com/environment', '_blank']
seqslides[39]=['images/ads/saskpower.gif', 'http://www.saskpower.com', '_blank']
seqslides[40]=['images/ads/schneider.gif', 'http://www.schneider-electric.com', '_blank']
seqslides[41]=['images/ads/schott.gif', 'http://www.schott.com', '_blank']
seqslides[42]=['images/ads/sempra.gif', 'http://www.sempratrading.com', '_blank']
seqslides[43]=['images/ads/solarc.gif', 'http://www.solarc.de', '_blank']
seqslides[44]=['images/ads/sdtc.gif', 'http://www.sdtc.ca', '_blank']
seqslides[45]=['images/ads/sfm.gif', 'http://www.sfm.bm', '_blank']
seqslides[46]=['images/ads/ulster-uni.gif', 'http://www.ulster.ac.uk', '_blank']
seqslides[47]=['images/ads/uop.gif', 'http://www.masterghg.unipg.it', '_blank']
seqslides[48]=['images/ads/usgs.gif', 'http://www.usgs.gov', '_blank']
seqslides[49]=['images/ads/vwa.gif', 'http://www.salve.it', '_blank']
seqslides[50]=['images/ads/vestas.gif', 'http://www.vestas.com', '_blank']
seqslides[51]=['images/ads/vims.gif', 'http://www.vims.edu', '_blank']
seqslides[52]=['images/ads/wbscd.gif', 'http://www.wbcsd.org', '_blank']
seqslides[53]=['images/ads/zew.gif', 'http://www.zew.eu', '_blank']
seqslides[54]=['images/ads/unfccc.gif', 'http://unfccc.int', '_blank']

// note this is the second entry for ricoh
seqslides[55]=['images/ads/ricoh.gif', 'http://www.ricoh.com/environment', '_blank']

//Set pause between each image display (2000=2 second):
var slidedelay=2000

//Set how many images to show at once (must be less than total # of images above):
var slidestoreveal=1

//Specify code to insert between each slide (ie: "<br>" to insert a line break and create a vertical layout)
//"" for none (or horizontal):
var slideseparater="<br>"

//Set optional link target to be added to all images with a link:
var optlinktarget="secwindow"

//Set image border width:
var imgborderwidth=0

//Set opacity value of each image when it's "dimmed", and when it's not, respectively (1=100% opaque/normal).
//Change 0.2 to 0 to completely hide image when it's dimmed:
var opacityvalues=[0.2,1]

// random function
randomize(seqslides)


///No need to edit beyond here///////////

function processimgcode(theimg){
var imghtml=""
if (theimg[1]!="")
imghtml='<a href="'+theimg[1]+'" target="'+optlinktarget+'">'
imghtml+='<img src="'+theimg[0]+'" border="'+imgborderwidth+'" style="filter:alpha(opacity='+(opacityvalues[0]*100)+');-moz-opacity:'+opacityvalues[0]+'">'
if (theimg[1]!="")
imghtml+='</a>'
return imghtml
}

var curslide=1 //var to track current slide (total: slidestoreveal)
var curimgindex=0 //var to track current image (total: seqslides.length)
var isfirstcycle=1 //boolean to indicate whether this is the first cycle

if (document.getElementById){
for (i=0;i<slidestoreveal;i++)
document.write('<span id="seqslide'+i+'">'+processimgcode(seqslides[i])+'</span>'+slideseparater)
curimgindex=slidestoreveal
illuminateslide(0,opacityvalues[1])
}

function illuminateslide(slideindex, amt){
var slideobj=document.getElementById("seqslide"+slideindex).getElementsByTagName("IMG")[0]
if (slideobj.filters)
slideobj.filters.alpha.opacity=amt*100
else if (slideobj.style.MozOpacity)
slideobj.style.MozOpacity=amt
}

function displayit(){
if (curslide<slidestoreveal){
if (!isfirstcycle)
changeimage(curslide)
illuminateslide(curslide, opacityvalues[1])
curslide++
}
else{
isfirstcycle=0
for (i=0;i<slidestoreveal;i++)
illuminateslide(i, opacityvalues[0])
changeimage(0)
illuminateslide(0, opacityvalues[1])
curslide=1
}
}

// new function added
function randomize(targetarray){
	seqslides=new Array()
	var the_one
	var z=0
	while (z<targetarray.length){
		the_one=Math.floor(Math.random()*targetarray.length)
		if (targetarray[the_one]!="_selected!"){
			seqslides[z]=targetarray[the_one]
			targetarray[the_one]="_selected!"
			z++
		}
	}
}
// end

function changeimage(slideindex){
document.getElementById("seqslide"+slideindex).innerHTML=processimgcode(seqslides[curimgindex])
curimgindex++
if (curimgindex>=seqslides.length)
curimgindex=0
}

if (document.getElementById)
setInterval("displayit()",slidedelay)

if (document.getElementById)
setInterval("displayit()",slidedelay)