// Size the window to the preferred size. This size fits all of the pages well,
	// without cutting off the navigation. Don't resize the window if the new size
	// won't fit.

//	if (document.all) 
//		var xMax = screen.width, yMax = screen.height; 
//	else if (document.layers) var xMax = window.outerWidth, yMax = window.outerHeight; 
//	else var xMax = 640, yMax=480; 

//	if (xMax > 700 && yMax > 650) {
//		if (document.all) { if (window.resizeTo) self.resizeTo(720, 650) } //690
//		else if (document.layers) { if (window.resizeTo) self.resizeTo(690, 510) }
//		window.focus()
//	}

//	if (document.all) 
//		var xMax = screen.width, yMax = screen.height; 
//	else if (document.layers) var xMax = window.outerWidth, yMax = window.outerHeight; 
//	else var xMax = 640, yMax=480; 

//	if (xMax > 700 && yMax > 650) {alert('large'); } //690
//		else  { alert('small'); }
//		window.focus()
	

// Original Scrollable Area/DOM code developed by Thomas Brattli 
// Extension developed by M Trusty
// 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() 
 
 
var speed=50 
 
var loop, timer 
 
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.clipHeight=bw.ns4?this.css.clip.height:this.el.offsetHeight 
    this.up=MoveAreaUp;this.down=MoveAreaDown; 
    this.MoveArea=MoveArea; this.x; this.y; 
    this.obj = obj + "Object" 
    eval(this.obj + "=this") 
    return this 
} 
function MoveArea(x,y){ 
    this.x=x;this.y=y 
    this.css.left=this.x 
    this.css.top=this.y 
} 
 
function MoveAreaDown(move){
    objUp.css.visibility='visible'
	if(this.y>-this.scrollHeight+objContainer.clipHeight){ 
    this.MoveArea(0,this.y-move) 
    if(loop) setTimeout(this.obj+".down("+move+")",speed) 
	} else
	{objDown.css.visibility='hidden'
	}
} 
function MoveAreaUp(move){ 
    objDown.css.visibility='visible'
	if(this.y<0){ 
    this.MoveArea(0,this.y-move) 
    if(loop) setTimeout(this.obj+".up("+move+")",speed) 
	}  else
	{objUp.css.visibility='hidden'
	}
} 
 
function PerformScroll(speed){ 
	if(initialised){ 
		loop=true; 
		if(speed>0) objScroller.down(speed) 
		else objScroller.up(speed) 
	} 
} 
 
function CeaseScroll(){ 
    loop=false 
    if(timer) clearTimeout(timer) 
} 
var initialised; 
function InitialiseScrollableArea(){ 
    objContainer=new ConstructObject('divContainer') 
    objScroller=new ConstructObject('divContent','divContainer') 
	objUp=new ConstructObject('divUpControl')
	objDown=new ConstructObject('divDownControl')	
    objScroller.MoveArea(0,0) 
    objContainer.css.visibility='visible'
	objUp.css.visibility='hidden'
	bigger = objScroller.clipHeight>objContainer.clipHeight?true:false;
	objDown.css.visibility= bigger?'visible':'hidden'
	if (bigger)
	{
		MM_swapImage('scroll_down','','http://www.visitdna.com/visit_site/images/scroll_down.gif',1);
		MM_swapImage('scroll_up','','http://www.visitdna.com/visit_site/images/scroll_up.gif',1);
	}
    initialised=true; 
} 
// end absolutely positioned scrollable area object scripts