function verifyCompatibleBrowserw(){
this.ver=navigator.appVersion
this.dom=document.getElementById?1:0
this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom)?1:0;
this.ie4=(document.all && !this.dom)?1:0;
this.ns5=(this.dom && parseInt(this.ver) >= 5) ?1:0;

this.ns4=(document.layers && !this.dom)?1:0;
this.bw=(this.ie5 || this.ie4 || this.ns4 || this.ns5)
return this
}
bw=new verifyCompatibleBrowserw()


var speed=50

var loop, timer

function ConstructObjectw(obj,nest){
nest=(!nest) ? '':'document.'+nest+'.'
this.el=bw.dom?document.getElementById(obj):bw.ie4 ?document.all[obj]:bw.ns4?eval(nest+'document.'+obj):0;
this.css=bw.dom?document.getElementById(obj).style :bw.ie4?document.all[obj].style:bw.ns4?eval(nest+'document.'+obj):0;
this.scrollWidth=bw.ns4?this.css.document.width:this.el.offsetWidth
this.clipWidth=bw.ns4?this.css.clip.width:this.el. offsetWidth
this.up=MoveAreawUp;this.down=MoveAreawDown;
this.MoveAreaw=MoveAreaw; this.x; this.y;
this.obj = obj + "Object"
eval(this.obj + "=this")
return this
}
function MoveAreaw(x,y){
this.x=x;this.y=y
this.css.left=this.x
this.css.top=this.y
}

function MoveAreawDown(move){
if(this.x>-this.scrollWidth+objContainerw.clipWidth){
this.MoveAreaw(this.x-move,0)
if(loop) setTimeout(this.obj+".down("+move+")",speed)
}
}
function MoveAreawUp(move){
if(this.x<0){
this.MoveAreaw(this.x-move,0)
if(loop) setTimeout(this.obj+".up("+move+")",speed)
}
}

function PerformScrollw(speed){
	if(initialisedw){
		loop=true;
		if(speed>0) objScrollerw.down(speed)
		else objScrollerw.up(speed)
	}
}

function CeaseScrollw(){
    loop=false
    if(timer) clearTimeout(timer)
}
var initialisedw;
function InitialiseScrollableAreaw(contenedor,cajita){
    objContainerw=new ConstructObjectw(''+contenedor+'')
    objScrollerw=new ConstructObjectw(''+cajita+'',''+contenedor+'')
    objScrollerw.MoveAreaw(0,0)
    objContainerw.css.visibility='visible'
    initialisedw=true;
}