var delay = 6000; //set delay between message change (in miliseconds)
var maxsteps=30; // number of steps to take to change from start color to endcolor
var stepdelay=40; // time in miliseconds of a single step
//**Note: maxsteps*stepdelay will be total time in miliseconds of fading effect
var startcolor= new Array(255,255,255); // start color (red, green, blue)
var endcolor=new Array(0,0,0); // end color (red, green, blue)

var fcontent=new Array();
begintag='<div style="font: normal 14px Arial; padding: 5px;">'; //set opening tag, such as font declarations
fcontent[0]="<a href='http://www.elcorreo.com/vizcaya/v/20100601/opinion/crisis-vista-desde-china-20100601.html' target='_blank'><h1>La crisis vista desde China</h1></a><br><p> China está aprovechando la gravedad del momento para renovar su modelo de desarrollo, cosa nada fácil, prestando cada vez más atención a su mercado interno y a factores como el ambiente, la innovación tecnológica o las mejoras sociales</p> <br><span class='fecha'>http://www.elcorreo.com/ el 1 de junio de 2010</span>";
fcontent[1]="<a href='http://economia.terra.com.co/noticias/noticia.aspx?idNoticia=201005311646_RTI_SIE64U0SK' target='_blank'><h1>OMC cuestiona barreras a exportaciones de China</h1></a> <br> <p>Las limitaciones de China a la exportación de ciertas materias primas para conservar recursos en el país no cumplirían con las metas establecidas, dando una ventaja desleal a las manufactureras chinas, dijo el lunes la Organización Mundial de Comercio.</p><br><span class='fecha'>http://economia.terra.com.co el 31 de mayo de 2010</span>";
fcontent[2]="<a href='http://www.finanzas.com/noticias/analisis/2010-05-25/288961_solidos-indicios-mantendra-crecimiento-china.html' target='_blank'><h1>Hay sólidos indicios de que se mantendrá el crecimiento en China y Asia</h1></a> <br><p>Tanto China como las demás economías asiáticas deben crecer con fuerza durante lo que queda de 2010 gracias a las condiciones favorables tanto a nivel interno como a escala mundial, señala Western Asset Management, filial de Legg Mason.</p><br><span class='fecha'>http://www.finanzas.com/ el 25 de mayo de 2010</span>";
fcontent[3]="<a href='http://www.chinadaily.com.cn/business/2010-06/01/content_9917150.htm' target='_blank'><h1>China's May manufacturing expands at slower pace</h1></a> <br><p>Chinese manufacturing expanded at a slower pace in May, adding to signs that growth may moderate in the world's third-biggest economy.</p><br><span class='fecha'>http://www.chinadaily.com.cn/ el 1 de junio de 2010<br><br></span>"
fcontent[4]="<a href='http://www.expansion.com/2010/06/04/inversion/1275661847.html' target='_blank'><h1>Los exportadores chinos ya no quieren cobrar en euros</h1></a> <br><p>Los exportadores chinos, que hace sólo un año insistían en cobrar en euros, están dando la espalda al vapuleado billete europeo para volver a efectuar sus operaciones en dólares..</p><br><span class='fecha'>http://www.expansion.com/ el 4 de junio de 2010<br><br></span>"
fcontent[5]="<a href='http://spanish.china.org.cn/china/txt/2010-07/02/content_20401745.htm' target='_blank'><h1>Robusto crecimiento de economía china contribuye a recuperación global</h1></a> <br><p>El hecho de que China lograra salir de la crisis económica más temprano que otras economías importantes no significa que el país haya obtenido más beneficios. El mundo en su conjunto se ha beneficiado más del robusto crecimiento de China durante la crisis</p><br><span class='fecha'>http://spanish.china.org.cn/ el 2 de julio de 2010<br><br></span>"
closetag='</div>';

var fwidth='760px'; //set scroller width
var fheight='132px'; //set scroller height

var fadelinks=1;  //should links inside scroller content also fade like text? 0 for no, 1 for yes.

///No need to edit below this line/////////////////


var ie4=document.all&&!document.getElementById;
var DOM2=document.getElementById;
var faderdelay=0;
var index=0;


/*Rafael Raposo edited function*/
//function to change content
function changecontent(){
  if (index>=fcontent.length)
    index=0
  if (DOM2){
    document.getElementById("fscroller").style.color="rgb("+startcolor[0]+", "+startcolor[1]+", "+startcolor[2]+")"
    document.getElementById("fscroller").innerHTML=begintag+fcontent[index]+closetag
    if (fadelinks)
      linkcolorchange(1);
    colorfade(1, 15);
  }
  else if (ie4)
    document.all.fscroller.innerHTML=begintag+fcontent[index]+closetag;
  index++
}

// colorfade() partially by Marcio Galli for Netscape Communications.  ////////////
// Modified by Dynamicdrive.com

function linkcolorchange(step){
  var obj=document.getElementById("fscroller").getElementsByTagName("A");
  if (obj.length>0){
    for (i=0;i<obj.length;i++)
      obj[i].style.color=getstepcolor(step);
  }
}

/*Rafael Raposo edited function*/
var fadecounter;
function colorfade(step) {
  if(step<=maxsteps) {	
    document.getElementById("fscroller").style.color=getstepcolor(step);
    if (fadelinks)
      linkcolorchange(step);
    step++;
    fadecounter=setTimeout("colorfade("+step+")",stepdelay);
  }else{
    clearTimeout(fadecounter);
    document.getElementById("fscroller").style.color="rgb("+endcolor[0]+", "+endcolor[1]+", "+endcolor[2]+")";
    setTimeout("changecontent()", delay);
	
  }   
}

/*Rafael Raposo's new function*/
function getstepcolor(step) {
  var diff
  var newcolor=new Array(3);
  for(var i=0;i<3;i++) {
    diff = (startcolor[i]-endcolor[i]);
    if(diff > 0) {
      newcolor[i] = startcolor[i]-(Math.round((diff/maxsteps))*step);
    } else {
      newcolor[i] = startcolor[i]+(Math.round((Math.abs(diff)/maxsteps))*step);
    }
  }
  return ("rgb(" + newcolor[0] + ", " + newcolor[1] + ", " + newcolor[2] + ")");
}

if (ie4||DOM2)
  document.write('<div id="fscroller" ></div>');

if (window.addEventListener)
window.addEventListener("load", changecontent, false)
else if (window.attachEvent)
window.attachEvent("onload", changecontent)
else if (document.getElementById)
window.onload=changecontent