// begin absolutely positioned autoscroll area object scripts
// Extension developed by David G. Miles
// Original Scrollable Area code developed by Thomas Brattli
function verifyCompatibleBrowser(){
  this.ver=navigator.appVersion
  this.agent=navigator.userAgent
  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.firefox=this.agent.indexOf("Firefox")>-1 
  this.bw=(this.ie5 || this.ie4 || this.ns4 || this.ns5 || this.firefox)
  return this
}
bw=new verifyCompatibleBrowser()
loop=true
speed=50
pr_step=1

var largura
var altura
var posicao
var top

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+'px'
  this.css.top=this.y+'px'
}
//Makes the object scroll up
function newsScroll(speed){
  if(this.y>-(this.scrollHeight-20)){
    this.moveIt(0,this.y-pr_step)
    setTimeout(this.obj+".newsScroll("+speed+")",speed)
  }
  else
     if(loop) {
       this.moveIt(0,posicao)
       eval(this.obj+".newsScroll("+speed+")")
     }
}
//Makes the object
function InitialiseAutoScrollArea(){
  objContainer=new ConstructObject('divASContainer')
  objContainer.css.width = largura
  objContainer.css.height = altura
  objContent=new ConstructObject('divASContent','divASContainer')
  objContent.moveIt(0,posicao)
  objContainer.css.visibility='visible'
  objContent.newsScroll(speed)
}
// end absolutely positioned scrollable area object scripts