//Browser detection
var isN6 = (navigator.userAgent.indexOf("Gecko") != -1);
var isNS = (document.layers) ? true : false;
var isIE = (document.all) ? true : false;

//Configuration
var scrSpeed = 40;
var scrDelay = 4000;

//Misc variables
var links = new Array();
var rollTimer = null;
var activeLink = 0;
var loaded = false;

//Object that holds individual links
function _link(type, label, url, sx, sy)
{
  this.type = type;
  this.label = label;
  this.url = url;
  this.sx = sx;
  this.sy = sy;
  return this;
}

//Create new link and put it in array
function addLink(type, label, url, sx, sy)
{
  links[links.length] = new _link(type, label, url, sx, sy);
}

//Print out layers to document
function putLinks() 
{
  if(links.length > 0) 
  {
    for (i = 0; i < links.length; i++)
	{
      if(isIE || isN6)
        document.write('<DIV id="linkLayer'+ i +'" style="position:absolute; top:30px; left:0px; width:534px; height:12px; visibility: visible; z-index:10;">')
      else if(isNS)
        document.write('<LAYER name="linkLayer'+ i +'" width="534" height="1" left="0" top="30" z-index="1" visibility="show">')

      if (links[i].type == 1)
        document.write('<FONT face="Geneva, Arial, Helvetica, sans-serif" size=1><A href="'+links[i].url+'" class="undermeny" target="_top"><B>&raquo;&nbsp;'+links[i].label+'</B></A></FONT>')
      else if (links[i].type == 2)
	  {
        var popURL = "javascript:void(window.open('"+ links[i].url +"','Information',(isIE)?'width="+ links[i].sx +",height="+ links[i].sy +",resizable=no':'width="+ links[i].sx +",height="+ links[i].sy +",resizable=yes'));";
        document.write('<FONT face="Geneva, Arial, Helvetica, sans-serif" size=1><A href="'+ popURL +'" class="extern"><B>&raquo;&nbsp;'+links[i].label+'</B></A></FONT>')
	  }
      else
        document.write('<FONT face="Geneva, Arial, Helvetica, sans-serif" size=1><B>&raquo;&nbsp;'+links[i].label+'</B></FONT>')
	  	  
      if(isIE || isN6)
        document.write('</DIV>')
      else if(isNS)
        document.write('</LAYER>')
    }
  }		
}

//Reset old layer and start new scroll
function startRoll(m) 
{
  if(loaded)
  {
    m = (m >= links.length) ? 0 : m;
    if(links[m])
    {
      if(isIE)
        eval("document.all.linkLayer"+ activeLink +".style.top = 30")
      if(isNS)
        eval("document.linkLayer"+ activeLink +".top = 30")
      if(isN6)
        eval("document.getElementById('linkLayer"+ activeLink +"').style.top = 30")

      activeLink = m;
      scrollLink(m)
    }
  }
}

//Move layer upwards
function scrollLink(m)
{
  if(loaded)
  {
    var _ll;
    if(isNS)
      _ll = eval("document.layers.linkLayer"+ m)
    else if(isIE) 
      _ll = eval("document.all.linkLayer"+ m +".style")
    else if(isN6) 
      _ll = eval("document.getElementById('linkLayer"+ m +"').style")
    else
      return false;

    var posY = parseInt(_ll.top);
    if(posY > 5) 
    {
      posY--;
      _ll.top = posY;
      setTimeout('scrollLink('+ m +')', scrSpeed)
    }
	else
      rollTimer = setTimeout('startRoll('+ (++m) +')', scrDelay);
  }
}

//Start first scroll
function init()
{
  loaded = true;
  rollTimer = setTimeout('startRoll(0)', 100);
}