function RD_reloadPage(init) {
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.RD_pgW=innerWidth; document.RD_pgH=innerHeight; onresize=RD_reloadPage; }}
  else if (innerWidth!=document.RD_pgW || innerHeight!=document.RD_pgH) location.reload();
}
RD_reloadPage(true);

function RD_swapImage() {
  var i,j=0,x,a=RD_swapImage.arguments; document.RD_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=RD_findObj(a[i]))!=null){document.RD_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function RD_swapImgRestore() {
  var i,x,a=document.RD_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function RD_back() {
history.go(-1);
}
function RD_preloadImages() {
  var d=document; if(d.images){ if(!d.RD_p) d.RD_p=new Array();
    var i,j=d.RD_p.length,a=RD_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.RD_p[j]=new Image; d.RD_p[j++].src=a[i];}}
}

function RD_findObj(n, d) {
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=RD_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function RD_openBrWindow(theURL,winName,features) {
  window.open(theURL,winName,features);
}

function RD_getHW(t,a) {
  var r,p,h=0,w=0;if((p=RD_findObj(a)) !=null){
  if(document.all || document.getElementById){h=parseInt(p.offsetHeight);w=parseInt(p.offsetWidth);
  if(!h){h=parseInt(p.style.pixelHeight);w=parseInt(p.style.pixelWidth);}
  }else if(document.layers){h=parseInt(p.clip.height);w=parseInt(p.clip.width);}}
  if(t=="width"){r=w;}else{r=h;}return r; 
}

function RD_RD1dwt() {
  var g,lh,sw,fr = false;
  if(!document.RDmc)return;
  for(var x=0;x<RDm1.length;x++){tl=RDm1[x].id;lh="RDCM1DWT0"+tl;
	if((g=RD_findObj(lh)) !=null){fr=true;sw=0;break;}
	lh="RDCM1DWT1"+tl;if((g=RD_findObj(lh)) !=null){fr=true;sw=1;break;}}
  if(fr){eval("RD_trigRDMenu1('"+tl+"',"+sw+")");}
}


function RD_setRDMenu1() {
  var s,d,g,g2,gg,ww,kx,th,tu,ts,nu,xx,k=0,pa=0;args=RD_setRDMenu1.arguments;
  if((parseInt(navigator.appVersion)>4 || navigator.userAgent.indexOf("MSIE")>-1)&& navigator.userAgent.indexOf("Opera")==-1){pa="px";}
  if(navigator.userAgent.indexOf("Opera")>-1){RDOperaW=window.innerWidth;RDOperaH=window.innerHeight;}
  if(!document.RDmc) { RDm3=new Array();
   RDm=new Array();document.RDmc=true;RDms=new Array();document.RD_imswap=new Array();document.RD_imswapo=new Array();
   RDm1=new Array();RDm2=new Array();RDmprop=new Object();RDmprop.RDoffset=args[0];RDmprop.RDrate=args[1];
   RDmprop.RDdelay=args[2];RDmprop.RDbottom=args[3];
   if(document.layers){RDmprop.RDpageh = document.height;}}
  for(var x=4;x<args.length;x+=3){if((g=RD_findObj(args[x])) !=null){
    RDm[k]=args[x];g.RDimname=args[x+2];g.RDsub=args[x+1];RDm3[k]=0;
    g2=RD_findObj(args[x+2]);tu=g2.src;ts=tu.lastIndexOf(".");
    nu=tu.substring(0,ts)+"_open"+tu.substring(ts,tu.length);
	nu2=tu.substring(0,ts)+"_over"+tu.substring(ts,tu.length);
    document.RD_imswap[k]=new Image();document.RD_imswap[k].src=nu;
	document.RD_imswapo[k]=new Image();document.RD_imswapo[k].src=nu2;k++;}}
  var lf=0;for (var j=0;j<RDm.length;j++){
   if((g=RD_findObj(RDm[j])) !=null){d=(document.layers)?g:g.style;RDm1[j]=g;g.RDwaiting=false;
    if(j==0){lf=parseInt(d.left);th=parseInt(d.top);}
    if(j>0){d.left=(lf+pa);th+=RD_getHW('height',RDm[j-1]);d.top=(th+pa);}
    if((s=RD_findObj(g.RDsub)) !=null){RDm2[j]=s;ww=RD_getHW('width',g.RDsub);
     kx=lf-ww-20;dd=(document.layers)?s:s.style;
     dd.left=(kx+pa);dd.top=(th+pa);RDms[j]=th;dd.visibility="visible";s.RDopen=false;s.RDwaiting=false;}}}
  if((g=RD_findObj(RDmprop.RDbottom)) !=null){d=(document.layers)?g:g.style;
   d.left=(lf+parseInt(args[0])+pa);th+=RD_getHW('height',RDm[RDm.length-1]);d.top=(th+pa);}
}

function RD_BM1(el,x,y,a,b,c,s) {
 var g,elo=el,f="",m=false,d="";x=parseInt(x);y=parseInt(y);
 var t = 'g.RDBM = setTimeout("RD_BM1(\''+elo+'\','; 
 if ((g=RD_findObj(el))!=null) {d=(document.layers)?g:g.style;}else{return;}
 var xx=(parseInt(d.left))?parseInt(d.left):0;
 var yy=(parseInt(d.top))?parseInt(d.top):0;
 var i=parseInt(a);
  if (eval(g.moved)){clearTimeout(g.RDBM);}
  if (xx<x){xx+=i;m=true;if(xx>x){xx=x;}}
  if (xx>x){xx-=i;m=true;if(xx<x){xx=x;}}
  if (yy<y){yy+=i;m=true;if(yy>y){yy=y;}}
  if (yy>y){yy-=i;m=true;if(yy<y){yy=y;}}
 if (m) {
  if((parseInt(navigator.appVersion)>4 || navigator.userAgent.indexOf("MSIE")>-1)&& navigator.userAgent.indexOf("Opera")==-1){   
   xx+="px";yy+="px";}d.left=xx;d.top=yy;g.moved=true;eval(t+x+','+y+','+a+','+b+','+c+',0)",'+b+')');
  }else {g.moved=false;RD_wait(elo);}
}

function RD_wait(a) {
  var ma,mb;if((mb=RD_findObj(a)) !=null){
   if(!mb.RDwaiting || mb.RDwaiting=="none"){return;}
    ma=mb.RDwaiting;mb.RDwaiting=false;eval(ma);}
}

function RD_trigRDMenu1(a,sw) {
  var x,g,gg,d,dd,w,lp,tp,im,im2,ts,nu,e,pa=0;if(!document.RDmc)return;
  if((parseInt(navigator.appVersion)>4 || navigator.userAgent.indexOf("MSIE")>-1)&& navigator.userAgent.indexOf("Opera")==-1){pa="px";}
  if(navigator.userAgent.indexOf("Opera")>-1){if( RDOperaW!=window.innerWidth || RDOperaH!=window.innerHeight)RD_setRDMenu1();}
  var ofs=parseInt(RDmprop.RDoffset),trt = parseInt(RDmprop.RDrate);
  var tdy=parseInt(RDmprop.RDdelay),tsb,tlf,tst;for(x=0;x<RDm.length;x++){
  if(RDm[x]==a){d=RDm1[x];dd=(document.layers)?d:d.style;g=RDm2[x];gg=(document.layers)?g:g.style;
   e=RD_findObj(d.RDimname);im=e.src;ts=im.replace("_open","");ts=ts.replace("_over","");
   if(!g.RDopen){tst="closed";im2=ts.lastIndexOf(".");
   nu=ts.substring(0,im2)+"_open"+ts.substring(im2,ts.length);ts = nu;}else{tst="open"}break;}}
  for(j=0;j<RDm.length;j++){
   d=RDm1[j];dd=(document.layers)?d:d.style;g=RDm2[j];gg=(document.layers)?g:g.style;
   if(j==0){tlf=parseInt(dd.left);}if(g.RDopen){
   w=RD_getHW('width',d.RDsub)+20;w-=parseInt(dd.left);w*=-1;d.RDwaiting=false;
   eval("RD_BM1('"+d.RDsub+"',"+w+","+parseInt(gg.top)+","+trt+","+tdy+",0,0)");}
   d.RDwaiting=false;g.RDopen=false;
   if(parseInt(sw)==1){e=RD_findObj(d.RDimname);im=e.src;im2=im.replace("_open","");e.src=im2;}}
  var tnt=new Array();var df=0,tcd=0,tdl=RDm[0];for(j=0;j<RDm.length;j++){
  d=RDm1[j];dd=(document.layers)?d:d.style;g=RDm2[j];gg=(document.layers)?g:g.style;
  if(j==0){th=parseInt(dd.top);}tnt[j]=th;df=Math.abs(parseInt(dd.top)-th);
  if(df>tcd){tdl=RDm[j];tcd=df;}th+=RD_getHW('height',RDm[j]);
  if(x==j && tst=="closed"){tsb=th;if(RDm3[j]!=1){th+=RD_getHW('height',d.RDsub);}}RDms[j]=th;}
  if(tst=="closed"){d=RDm1[x];dd=(document.layers)?d:d.style;
   g=RDm2[x];gg=(document.layers)?g:g.style;lp=tlf+ofs;
   gg.top=(tsb+pa);RDms[x]=tsb;e=RD_findObj(d.RDimname);if(parseInt(sw)==1){e.src=ts;}
   g.RDopen=true;if(RDm3[x]!=1){gg.visibility="visible";var r;r=RD_findObj(tdl);		
   r.RDwaiting="RD_BM1('"+d.RDsub+"',"+lp+","+tsb+","+trt+","+tdy+",0,0)" ;}
   }else{d=RDm1[RDm1.length-1];d.RDwaiting="none";}
  for(j=0;j<RDm.length;j++ ){eval("RD_BM1('"+RDm[j]+"',"+tlf+","+tnt[j]+","+trt+","+tdy+",0,0)");}
  if((g=RD_findObj(RDmprop.RDbottom)) !=null){d=(document.layers)?g:g.style;g.RDwaiting=false;
   eval("RD_BM1('"+RDmprop.RDbottom+"',"+(tlf+ofs)+","+th+","+trt+","+tdy+",0,0)");
   th+=(document.layers)?RD_getHW('height',RDmprop.RDbottom):0;}
  if(document.layers){var tw2=document.width;
    if(document.height<th) {document.height=th;document.width=tw2;}}
}

function RD_rollCMenu1(ev,a,b) {
 var e,im,ts,j,nu,g,tev=ev.type;
 if(!document.RDmc)return;
 if(tev=="mouseover"){for(var x=0;x<RDm.length;x++){
 if(RDm[x]==a){g=RDm2[x];if(parseInt(b)==0 && g.RDopen) {break;return;}
 e=RD_findObj(RDm1[x].RDimname);im=e.src;ts=im.replace("_open","");
 ts=ts.replace("_over","");j=ts.lastIndexOf(".");
 e.src=ts.substring(0,j)+"_over"+ts.substring(j,ts.length);break;}}
 }else if(tev=="mouseout"){for(var x=0;x<RDm.length;x++){
 if(RDm[x]==a){e=RD_findObj(d=RDm1[x].RDimname);im=e.src;
 g=RDm2[x];ts=im.replace("_open","");ts=ts.replace("_over","");
 if(g.RDopen){j=ts.lastIndexOf(".");
 nu=ts.substring(0,j)+"_open"+ts.substring(j,ts.length);
 }else{nu=ts;}e.src=nu;break;}}}
}

function RD_popupMsg(msg) { 
  alert(msg);
}

function RD_showHideLayers() {
  var i,p,v,obj,args=RD_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=RD_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}

function RD_jumpMenu(targ,selObj,restore){ 
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}

function RD_goToURL() { 
  var i, args=RD_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}

function RD_surfto(form) {
        var myindex=form.select1.selectedIndex
        if (form.select1.options[myindex].value != "0") {
        window.open(form.select1.options[myindex].value, target="innermain");}
}

function RD_surfto1(form) {
        var myindex=form.select1.selectedIndex
        if (form.select1.options[myindex].value != "0") {
        window.open(form.select1.options[myindex].value, target="main");}
}

function RD_loadFrames(frame1,page1,frame2,page2,frame3,page3) {
eval("parent."+frame1+".location='"+page1+"'");
eval("parent."+frame2+".location='"+page2+"'");
eval("parent."+frame3+".location='"+page3+"'");
}

function RD_loadFrames1(frame1,page1,frame2,page2) {
eval("parent."+frame1+".location='"+page1+"'");
eval("parent."+frame2+".location='"+page2+"'");
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}