var aPicLinkAndUrl,iRollPic=0,rollPicCount=0;
function preRollPics(ary,idpics,idnos)
{
aPicLinkAndUrl=ary;
rollPicCount=aPicLinkAndUrl.length/3;

var p=getE(idpics);
var h=parseInt(p.style.height);
var w=parseInt(p.style.width);
p.innerHTML=getPicHTML(w,h);

getE(idnos).innerHTML=getLinkNo();
setAutoPics(); 
}
function getE(id)
{
return document.getElementById(id);
}
function getPicHTML(w,h)
{
var t="",display="block";
for(var i=0;i<rollPicCount;i++)
{
   if(i!=0) display="none";
   t=t+"<div style=\"display:"+display+"\">"+
   "<a href=\""+aPicLinkAndUrl[i*3]+"\" target='_blank'><img "+ 
   "onMouseOver='clearAutoPics();' onMouseOut='setAutoPics()' "+ 
   "src=\""+aPicLinkAndUrl[i*3+1]+"\" "+ 
   "width='"+w+"' height='"+h+"' border='0' /></a></div>\r\n";
}
t="<div id='rPicAll' style=\"FILTER:progid:DXImagetransform.Microsoft."+
"Fade (duration=0.5,overlap=1.0); border:1px solid #D6D6D6; "+
"width:"+w+"px; height:"+h+"px;\">"+t+"</div>";
return t;
}

function getLinkNo()
{
var t="";
var sel="rpicon";
for(var i=0;i<rollPicCount;i++)
{
   if(i!=0) sel="rpicoff";
   t=t+"<td class='"+sel+"' onclick='rollSelItem("+(i)+");' "+
   "onMouseOver='clearAutoPics();' "+
   "onMouseOut='setAutoPics()' >"+(i+1)+"</td>"
}
t="<table id='rPicNoTable' cellSpacing='3' cellPadding='0' "+
"border='0'><tr>"+t+"</tr></table>";
return t;
}

function rollSelItem(value){
iRollPic=value;
setRollNoBg(value);
displayPics(value);

}
function setRollNoBg(value){
var showNum = document.getElementById("rPicNoTable");
for(var i=0;i<rollPicCount;i++)
if(value==i)
   showNum.getElementsByTagName("td")[i].className='rpicon';
else
   showNum.getElementsByTagName("td")[i].className='rpicoff';
}
function displayPics(value){
try
{
   with (rPicAll)
   {
    filters[0].Apply();
    for(i=0;i<rollPicCount;i++)
     i==value?children[i].style.display="block":children[i].style.display="none"; 
    filters[0].play();
   }
}
catch(e)
{
   var divlist = document.getElementById("rPicAll").getElementsByTagName("div");
   for(i=0;i<rollPicCount;i++)
   {
    i==value?divlist[i].style.display="block":divlist[i].style.display="none";
   }
}
}


function clearAutoPics(){clearInterval(iStartRollPics)}
function setAutoPics(){iStartRollPics=setInterval("autoAddRollPic(iRollPic)", 3000);}
function autoAddRollPic(){
iRollPic++;
if(iRollPic>rollPicCount-1) iRollPic=0;
rollSelItem(iRollPic);
}