//Translucent scroller- By Dynamic Drive
//For full source code and more DHTML scripts, visit http://www.dynamicdrive.com
//This credit MUST stay intact for use
/*
inicialização:
...
if (ie4||dom||document.layers)
window.onload=startit
...
criação do div de noticias:
...
if (ie4||dom)
document.write('')
else if (document.layers){
document.write(''+scrollercontent[0]+'')
}
...
noticias a exibir:
...
<%if rstList.AbsolutePosition mod 2 = 0 then%>
scrollercontent[scrollercontent.length]="<%=href%>
";
<%else%>
scrollercontent[scrollercontent.length-1]+="<%=href%>
";
<%end if%>
...
*/
// *** parametros ************************************************************
var scroller_width='100%';
var scroller_height='150px';
var bgcolor='#ffffff';
var pause=15000; // tempo em milisegundos
var scrollercontent=new Array();
var ie4=document.all
var dom=document.getElementById&&navigator.userAgent.indexOf("Opera")==-1
var curpos=scroller_height*(1)
var degree=1
var curcanvas="canvas0"
var curindex=0
var nextindex=1
var othercanvas = null;
// *** funcoes ***************************************************************
function moveslide(){
if (curpos>0){
curpos=Math.max(curpos-degree,0)
tempobj.style.top=curpos+"px"
if (othercanvas)
posOtherCanvas = curpos-(scroller_height.substring(0, scroller_height.indexOf("px")));
othercanvas.style.top=posOtherCanvas+"px"
}
else {
clearInterval(dropslide)
nextcanvas=(curcanvas=="canvas0")? "canvas0" : "canvas1"
tempobj=ie4? eval("document.all."+nextcanvas) : document.getElementById(nextcanvas)
tempobj.innerHTML=scrollercontent[curindex]
nextindex=(nextindex