var delay=3000 //set delay between message change (in miliseconds)
var fcontent=new Array()
begintag='<font face="Arial,Helvetica" size=1>' //set opening tag, such as font declarations
fcontent[0]="<FONT SIZE=2><B>Buenos Días Asturias<B></FONT><BR>Titulares de la Prensa Asturiana<BR>2 de Julio de 2009</B>";
fcontent[1]="<a href='http://buenosdiasasturias.com/redir.cgi?edi=090702&num=198&usr=villaviciosa' target='blank'>La Nueva España - Mar/Campo</a><br>Hevia, confirmado por Skoda con el Fabia S2000 Motocross en el circuito de Pola de Lena";
fcontent[2]="<a href='http://buenosdiasasturias.com/redir.cgi?edi=090702&num=275&usr=villaviciosa' target='blank'>La Nueva España - Oviedo</a><br>Desagües atascados con corchos y columnas dañadas por la sidra";
fcontent[3]="<a href='http://buenosdiasasturias.com/redir.cgi?edi=090702&num=407&usr=villaviciosa' target='blank'>La Voz de Asturias - Última Página</a><br>Villaviciosa pide ayudas para los mariscadores";
fcontent[4]="<a href='http://buenosdiasasturias.com/redir.cgi?edi=090702&num=408&usr=villaviciosa' target='blank'>La Voz de Asturias - Última Página</a><br>El arenal de rodiles acoge el programa playa accesible";
fcontent[5]="<a href='http://buenosdiasasturias.com/redir.cgi?edi=090702&num=433&usr=villaviciosa' target='blank'>La Voz de Asturias - Última Página</a><br>Skoda Auto confirma el programa de Alberto Hevia";
closetag='</font>'

var fwidth=150 //set scroller width
var fheight=75 //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('<div id="fscroller" style="width:'+fwidth+';height:'+fheight+';padding:2px"></div>')

window.onload=changecontent
