//Valentín Pérez valentin.perez@iconmedialab.es
ns4 = (document.layers)? true:false 
ie4 = ((document.all)&&!(document.getElementById ))? true:false 
dom= (document.getElementById)? true:false 
anchocapa=1 //iniciamos variable con cualquier valor, luego cogera el ancho automáticamente
pos=170 //posición inicial de la capa
topes=175	//tope para que la capa no suba más
velocidad=1 //controla la velocidad, si aumentamos esta variable el scroll irá más rápido
cortea=0 //corte de la capa por el arriba
corteb=250 //corte de la capa por abajo
cortec=500 //corte de la capa por la derecha
clave=0 //variable que controla el mouseover sobre la flecha
capactiva=1 //variable que controla la capa activa si tenemos dos capas en la misma página
controla=corteb-50 //variable que controla el tope
controlscroll=220 //variable que controla la longitud de la capa a partir de la cual debe aparecer el scroll dinámico
//Estos valores son los que encontramos por defecto en las páginas, pero si se quiere aplicar el scroll a páginas con otros valores bastará con incluir estas variables con sus valores en el head de la página
	function subir(velocidad,capa){
	if (capactiva==1){
	 capa='texto1'}
	 else{
	 capa='texto2'
	 }
	 	if ((pos>anchocapa)&&(clave==1)){
		pos=pos-velocidad
		cortea=cortea+velocidad
		corteb=corteb+velocidad
		if (ie4){
		
		eval("anchocapa=document.all."+capa+".scrollHeight")
		
	anchocapa=(anchocapa*-1)+controla
		document.all[capa].style.top=pos
		eval("document.all[capa].style.clip='rect("+cortea+","+cortec+","+corteb+",0)'")
		}
	if (dom){
	eval("anchocapa=document.all."+capa+".scrollHeight")
	anchocapa=(anchocapa*-1)+controla
		document.getElementById(capa).style.top=pos
		eval("document.getElementById(capa).style.clip='rect("+cortea+","+cortec+","+corteb+",0)'")
		}
		
	if(ns4){
	eval("anchocapa=document.madre.document."+capa+".document.height")
	anchocapa=(anchocapa*-1)+controla
		document.layers["madre"].document.layers[capa].top=pos
		document.layers["madre"].document.layers[capa].clip.top=cortea
		document.layers["madre"].document.layers[capa].clip.bottom=corteb
		}
	
	setTimeout("subir("+velocidad+",'"+capa+"')",50)
	}
	}
		
	function bajar(velocidad,capa){
	if (capactiva==1){
	 capa='texto1'}
	 else{
	 capa='texto2'
	 }
	if ((pos<topes)&&(clave==2)){
	pos=pos+velocidad
	cortea=cortea-velocidad
	corteb=corteb-velocidad
		if (ie4){
		document.all[capa].style.top=pos
		eval("document.all[capa].style.clip='rect("+cortea+","+cortec+","+corteb+",0)'")
		}
		
		
	if (dom){
		document.getElementById(capa).style.top=pos
		eval("document.getElementById(capa).style.clip='rect("+cortea+","+cortec+","+corteb+",0)'")
		}
		
	if(ns4){
	if (pos<topes){
		document.layers["madre"].document.layers[capa].top=pos
		document.layers["madre"].document.layers[capa].clip.top=cortea
		document.layers["madre"].document.layers[capa].clip.bottom=corteb
		
		}
			}
		setTimeout("bajar("+velocidad+",'"+capa+"')",50)
	}
}
function mostrar(capac){
//Esta función produce la alternancia de capas si hay dos en la misma página como en el caso de notas de prensa, y asimismo muestra la barra de scroll sólo si la extensión del texto lo precisa.
	if(ns4){
	eval("document.madre.document.layers['"+capac+"'].visibility='show'")
	if (eval("document.madre.document."+capac+".document.height>"+controlscroll)){
	document.layers["scroll"].visibility='show'
	}
	else{
	document.layers["scroll"].visibility='hide'
	}
	}
	if (ie4){
	document.all[capac].style.visibility='visible'
		if (eval("document.all."+capac+".scrollHeight>"+controlscroll)){
	document.all["scroll"].style.visibility='visible'
	}
	else{
		document.all["scroll"].style.visibility='hidden'
		}
	}
	if (dom){
	document.getElementById(capac).style.visibility='visible'
	if (eval("document.all."+capac+".scrollHeight>"+controlscroll)){
	document.getElementById("scroll").style.visibility='visible'
	}
	else{
	document.getElementById("scroll").style.visibility='hidden'
	}
	}
}