var delay=3000 //set delay between message change (in miliseconds)
var fcontent=new Array()
begintag='' //set opening tag, such as font declarations
fcontent[0]="BuenosDiasAsturias.COM: Titulares de la Prensa Asturiana
31 de Julio de 2010";
fcontent[1]="La Voz de Asturias
El plan urbano impulsará la vivienda de protección";
fcontent[2]="El Comercio - Cuencas
San Martín creará un centro de visitantes en un edificio anexo al Museo de la Minería";
fcontent[3]="El Comercio - Internacional
La Casa Blanca implora a Wikileaks";
fcontent[4]="El Comercio - Deportes
Casado, tras la estela de Cacho";
closetag=''
var fwidth=465 //set scroller width
var fheight=40 //set scroller height
var ie4=document.all&&!document.getElementById
var ns4=document.layers
var DOM2=document.getElementById
var faderdelay=0
var index=0
if (DOM2)
faderdelay=2000
//function to change content
function changecontent(){
if (index>=fcontent.length)
index=0
if (DOM2){
document.getElementById("fscroller").style.color="rgb(255,255,255)"
document.getElementById("fscroller").innerHTML=begintag+fcontent[index]+closetag
colorfade()
}
else if (ie4)
document.all.fscroller.innerHTML=begintag+fcontent[index]+closetag
else if (ns4){
document.fscrollerns.document.fscrollerns_sub.document.write(begintag+fcontent[index]+closetag)
document.fscrollerns.document.fscrollerns_sub.document.close()
}
index++
setTimeout("changecontent()",delay+faderdelay)
}
// colorfade() partially by Marcio Galli for Netscape Communications. ////////////
// Modified by Dynamicdrive.com
frame=20;
hex=255 // Initial color value.
function colorfade() {
// 20 frames fading process
if(frame>0) {
hex-=12; // increase color value
document.getElementById("fscroller").style.color="rgb("+hex+","+hex+","+hex+")"; // Set color value.
frame--;
setTimeout("colorfade()",20);
}
else{
document.getElementById("fscroller").style.color="rgb(0,0,0)";
frame=20;
hex=255
}
}
if (ie4||DOM2)
document.write('')
window.onload=changecontent