/***********************************************
* 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]=['http://www.rtcc.org/2009/html/images/ads/arcelor-mittal.gif', 'http://www.arcelormittal.com', '_blank']
seqslides[1]=['http://www.rtcc.org/2009/html/images/ads/austrian-air.gif', 'http://www.austrian.com', '_blank']
seqslides[2]=['http://www.rtcc.org/2009/html/images/ads/bolzano.gif', 'http://www.provinz.bz.it', '_blank']
seqslides[3]=['http://www.rtcc.org/2009/html/images/ads/bmw-group.gif', 'http://www.bmwgroup.com', '_blank']
seqslides[4]=['http://www.rtcc.org/2009/html/images/ads/bosbank.gif', 'http://www.bosbank.pl', '_blank']
seqslides[5]=['http://www.rtcc.org/2009/html/images/ads/biomcn.gif', 'http://www.biomcn.eu', '_blank']
seqslides[6]=['http://www.rtcc.org/2009/html/images/ads/wbcsd.gif', 'http://www.wbcsd.org', '_blank']
seqslides[7]=['http://www.rtcc.org/2009/html/images/ads/bvc.gif', 'http://www.bureauveritas.com', '_blank']
seqslides[8]=['http://www.rtcc.org/2009/html/images/ads/carbon-clear.gif', 'http://www.carbon-clear.com', '_blank']
seqslides[9]=['http://www.rtcc.org/2009/html/images/ads/ulster-uni.gif', 'http://www.cst.ulster.ac.uk', '_blank']
seqslides[10]=['http://www.rtcc.org/2009/html/images/ads/currenta.gif', 'http://www.currenta.com', '_blank']
seqslides[11]=['http://www.rtcc.org/2009/html/images/ads/damp-electric.gif', 'http://www.damp.com.br', '_blank']
seqslides[12]=['http://www.rtcc.org/2009/html/images/ads/bsw.gif', 'http://www.bsw-solar.de', '_blank']
seqslides[13]=['http://www.rtcc.org/2009/html/images/ads/epia.gif', 'http://www.epia.org', '_blank']
seqslides[14]=['http://www.rtcc.org/2009/html/images/ads/slu.gif', 'http://www.sfak.slu.se', '_blank']
seqslides[15]=['http://www.rtcc.org/2009/html/images/ads/esa.gif', 'http://www.esa.int', '_blank']
seqslides[16]=['http://www.rtcc.org/2009/html/images/ads/dong.gif', 'http://www.dongenergy.com', '_blank']
seqslides[17]=['http://www.rtcc.org/2009/html/images/ads/nuon.gif', 'http://www.nuon.com', '_blank']
seqslides[18]=['http://www.rtcc.org/2009/html/images/ads/vestas.gif', 'http://www.vestas.com', '_blank']
seqslides[19]=['http://www.rtcc.org/2009/html/images/ads/vims.gif', 'http://www.vims.edu/climatechange', '_blank']
seqslides[20]=['http://www.rtcc.org/2009/html/images/ads/eads.gif', 'http://www.eads.com', '_blank']
seqslides[21]=['http://www.rtcc.org/2009/html/images/ads/elster.gif', 'http://www.elster.com', '_blank']
seqslides[22]=['http://www.rtcc.org/2009/html/images/ads/eib.gif', 'http://www.eib.org', '_blank']
seqslides[23]=['http://www.rtcc.org/2009/html/images/ads/eref.gif', 'http://www.eref-europe.org', '_blank']
seqslides[24]=['http://www.rtcc.org/2009/html/images/ads/eurofuel.gif', 'http://www.eurofuel.eu', '_blank']
seqslides[25]=['http://www.rtcc.org/2009/html/images/ads/fei-company.gif', 'http://www.fei.com', '_blank']
seqslides[26]=['http://www.rtcc.org/2009/html/images/ads/hyatt.gif', 'http://www.hyatt.com', '_blank']
seqslides[27]=['http://www.rtcc.org/2009/html/images/ads/gov-para.gif', 'http://www.pa.gov.br', '_blank']
seqslides[28]=['http://www.rtcc.org/2009/html/images/ads/hydrokraft.gif', 'http://www.hydrokraft.is', '_blank']
seqslides[29]=['http://www.rtcc.org/2009/html/images/ads/iepf.gif', 'http://www.iepf.org', '_blank']
seqslides[30]=['http://www.rtcc.org/2009/html/images/ads/iucn.gif', 'http://www.iucn.org', '_blank']
seqslides[31]=['http://www.rtcc.org/2009/html/images/ads/jp-morgan.gif', 'http://www.jpmorgan.com/ib/environmental', '_blank']
seqslides[32]=['http://www.rtcc.org/2009/html/images/ads/low-carbon.gif', 'http://www.lowcarboneconomy.com', '_blank']
seqslides[33]=['http://www.rtcc.org/2009/html/images/ads/microsoft.gif', 'http://www.microsoft.com/environment', '_blank']
seqslides[34]=['http://www.rtcc.org/2009/html/images/ads/noble-cc.gif', 'http://www.thisisnoble.com', '_blank']
seqslides[35]=['http://www.rtcc.org/2009/html/images/ads/noble-group.gif', 'http://www.thisisnoble.com', '_blank']
seqslides[36]=['http://www.rtcc.org/2009/html/images/ads/solkraft.gif', 'http://www.norsksolkraft.com', '_blank']
seqslides[37]=['http://www.rtcc.org/2009/html/images/ads/novozymes.gif', 'http://www.novozymes.com', '_blank']
seqslides[38]=['http://www.rtcc.org/2009/html/images/ads/one-carbon.gif', 'http://www.onecarbon.com', '_blank']
seqslides[39]=['http://www.rtcc.org/2009/html/images/ads/philips.gif', 'http://www.philips.com', '_blank']
seqslides[40]=['http://www.rtcc.org/2009/html/images/ads/polish-ministry.gif', 'http://www.mos.gov.pl', '_blank']
seqslides[41]=['http://www.rtcc.org/2009/html/images/ads/progris.gif', 'http://www.progis.com', '_blank']
seqslides[42]=['http://www.rtcc.org/2009/html/images/ads/sway.gif', 'http://www.sway.no', '_blank']
seqslides[43]=['http://www.rtcc.org/2009/html/images/ads/sappi.gif', 'http://www.sappi.com', '_blank']
seqslides[44]=['http://www.rtcc.org/2009/html/images/ads/solel.gif', 'http://www.solel.com', '_blank']
seqslides[45]=['http://www.rtcc.org/2009/html/images/ads/suncor.gif', 'http://www.suncor.com/climatechange', '_blank']
seqslides[46]=['http://www.rtcc.org/2009/html/images/ads/sveaskog.gif', 'http://www.sveaskog.se', '_blank']
seqslides[47]=['http://www.rtcc.org/2009/html/images/ads/technocarbon.gif', 'http://www.technocarbon.com', '_blank']
seqslides[48]=['http://www.rtcc.org/2009/html/images/ads/lodz.gif', 'http://www.uml.lodz.pl', '_blank']
seqslides[49]=['http://www.rtcc.org/2009/html/images/ads/stockholm.gif', 'http://www.stockholm.se/klimat', '_blank']
seqslides[50]=['http://www.rtcc.org/2009/html/images/ads/irsn.gif', 'http://www.irsn.org', '_blank']
seqslides[51]=['http://www.rtcc.org/2009/html/images/ads/iodp.gif', 'http://www.iodp.org', '_blank']
seqslides[52]=['http://www.rtcc.org/2009/html/images/ads/ntnu.gif', 'http://www.ntnu.no', '_blank']
seqslides[53]=['http://www.rtcc.org/2009/html/images/ads/sci.gif', 'http://www.manchester.ac.uk/sci', '_blank']
seqslides[54]=['http://www.rtcc.org/2009/html/images/ads/tidal-sails.gif', 'http://www.tidalsails.com', '_blank']
seqslides[55]=['http://www.rtcc.org/2009/html/images/ads/unep.gif', 'http://www.unep.org', '_blank']
seqslides[56]=['http://www.rtcc.org/2009/html/images/ads/velux.gif', 'http://www.velux.com', '_blank']
seqslides[57]=['http://www.rtcc.org/2009/html/images/ads/veolia.gif', 'http://www.veolia.com', '_blank']
seqslides[58]=['http://www.rtcc.org/2009/html/images/ads/wmo.gif', 'http://www.wmo.int', '_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)