var navy = (esNets) ? 0 : 1;
var docscr=(navy) ? "document.all." : "document.layers['"; 
var stlscr=(navy) ? ".style." : "'].";
var tp=(navy) ? "pixelTop" : "pageY";
var lefscr=(navy) ? "pixelLeft" : "pageX";
var hgt=(navy) ? ".clientHeight" : "'].document.height";
var tmup,tmdwn;

function frkscrol(rfscrolObj,valClip,nomCap,vel,salto,ancho,nmScrol)
{
this.rfscrolObj=rfscrolObj;
this.valClip=valClip;
this.nomCap=nomCap;
this.vel=vel;
this.salto=salto;
this.ancho=ancho;
this.nmScrol= nmScrol;
this.suAlto = eval(docscr+this.nomCap+hgt);
this.clptop = 0;

this.eltopIn=eval(docscr+this.nomCap+stlscr+tp)
this.sube=sube;
this.baja=baja;
this.stop=stop;
this.scrtest=scrtest;
if (!navy) 
	{
	eval(docscr+this.nomCap+"'].clip.height="+(this.valClip-this.salto));
	eval(docscr+this.nomCap+"'].clip.width="+(this.ancho-20));
	eval(docscr+this.nomCap+stlscr+lefscr+"+=10")
	}
}

function scrtest()
{
if (this.suAlto>(this.valClip+11) || (!navy && clptop!=0))
	{
	eval(docscr+this.nmScrol+stlscr+'visibility="visible"');
	if (navy)
		{
		this.clptop=0;
		eval(docscr+this.nomCap+stlscr+tp+"="+this.eltopIn);
		eval("document.all."+this.nomCap+".style.clip='rect(0,"+this.ancho+","+(this.valClip-this.salto)+",0)'");
		}
	}
else
	{
	eval(docscr+this.nmScrol+stlscr+'visibility="hidden"');
	}
eval(docscr+this.nomCap+stlscr+'visibility="visible"');
}

function sube()
{
if (eval(docscr+this.nomCap+stlscr+tp)<this.eltopIn) 
	{
	this.clptop-=this.salto;
	if (navy)
		{
		eval("document.all."+this.nomCap+".style.clip='rect("+(this.clptop)+","+this.ancho+","+(this.valClip+this.clptop-this.salto)+",0)'");
		}
	else
		{
		eval(docscr+this.nomCap+"'].clip.bottom="+(this.valClip+this.clptop-this.salto));
		eval(docscr+this.nomCap+"'].clip.top="+(this.clptop));
		}	
	eval(docscr+this.nomCap+stlscr+tp+"+="+this.salto)
	
	tmup=setTimeout(this.rfscrolObj+'.sube()',this.vel);
	}
}

function baja()
{
if (-(eval(docscr+this.nomCap+stlscr+tp)-this.eltopIn)<=this.suAlto-this.valClip+this.salto) 
	{
	if (navy)
		{
		eval("document.all."+this.nomCap+".style.clip='rect("+(this.clptop+this.salto)+","+this.ancho+","+(this.valClip+this.clptop)+",0)'");
		}
	else
		{
		eval(docscr+this.nomCap+"'].clip.bottom="+(this.valClip+this.clptop));
		eval(docscr+this.nomCap+"'].clip.top="+(this.clptop+this.salto));
		}		
	eval(docscr+this.nomCap+stlscr+tp+"-="+this.salto)
	this.clptop+=this.salto;
	tmdwn=setTimeout(this.rfscrolObj+'.baja()',this.vel);
	}
}

function stop()
{
clearTimeout(tmup);
clearTimeout(tmdwn);
}