// begin absolutely positioned scrollable area object scripts
function verifyCompatibleBrowser(){
	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 verifyCompatibleBrowser()
lstart=140
loop=true
var initialised;
var timer;
speed=30
pr_step=4
//alert("IN NEWSCROLLER.JS");

function ConstructObject(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.scrollHeight=bw.ns4?this.css.document.height:this.el.offsetHeight
	this.newsScroll=newsScroll;
	this.moveIt=b_moveIt; this.x; this.y;
    this.obj = obj + "Object"
    eval(this.obj + "=this")
    return this
}
function b_moveIt(x,y){
	this.x=x;this.y=y
	this.css.left=this.x
	this.css.top=this.y
}
//Makes the object scroll up

function doNought(obj){
timer = setTimeout(obj.obj+".newsScroll("+speed+")",5000);
}

function newsScroll(speed){
	//window.status=("this.scrollHeight = "+this.scrollHeight+"//this.y = "+this.y);
	if(this.y>-this.scrollHeight){
		this.moveIt(0,this.y-pr_step)
		if ((0-this.y)%70==0){
			//window.status=("this.scrollHeight = "+this.scrollHeight+"//this.y = "+this.y+" //this.y%70 = "+this.y%70);
			doNought(this);
		} else {timer=setTimeout(this.obj+".newsScroll("+speed+")",speed);}
	}else if(loop) {
		this.moveIt(0,lstart)
		eval(this.obj+".newsScroll("+speed+")")
	  }
}
function PerformScroll(speed){
loop=false;

	if(initialised){
		newsScroll(speed);
	}
}

function CeaseScroll(){
loop=true;
//alert ("CeaseScroll()")
if(timer) clearTimeout(timer);
}

//**********************

function lescroll() {InitialiseAutoScrollArea();}

//**********************


//Makes the object
function InitialiseAutoScrollArea(){
	objContainer=new ConstructObject('divASContainer')
	objContent=new ConstructObject('divASContent','divASContainer')
	objContent.moveIt(0,lstart)
	objContainer.css.visibility='visible'
	objContent.newsScroll(speed)
	initialised = true;
}
// end absolutely positioned scrollable area object scripts