if(document.all){
var ca,cc;
var in_l;
var curpl;
var curln;
ca=true;
imgu=new Image();
imgd=new Image();
imgd.src="down.gif";
imgu.src="up.gif";

document.write("<DIV name=L_rg id=L_rg style=\"position:absolute; top:0; left:0; width:100%; height:300px; visibility: hidden; z-order:1;\">\
<table bgcolor=\"#666666\" width=152 align=left valign=top cellpadding=1 cellspacing=0 border=0><tr><td>\
<table bgcolor=\"#eeeeee\" width=100% valign=top cellpadding=0 cellspacing=0 border=0><tr>\
<td>\
<table bgcolor=\"silver\" height=15 border=0><tr>\
<td><A href=\"\" onclick=\"javascript: mv_l(1);return(false);\"><IMG name=upimg src=\"up.gif\" width=15 height=15 border=0></A></td>\
<td><A href=\"\" onclick=\"javascript: mv_l(2);return(false);\"><IMG name=downimg src=\"down.gif\" width=15 height=15 border=0 align=absmiddle></A></td></tr></table></td></tr>\
<tr><td colspan=2><A href=\"http://www.ancestra.net\" onClick=\"hrff();\" target=\"_blank\"><font size=1 color=\"#243351\"><img src=\"love.gif\" width=28 height=22 align=absmiddle border=0>Logiciel</font></A></td></tr>\
<tr><td colspan=2><A href=\"http://www.genealand.com/cgi-bin/dclinks/dclinks.cgi\" target=\"_blank\" onClick=\"hrff();\" target=\"_blank\"><font size=1 color=\"#243351\"><img src=\"find.gif\" width=28 height=22 align=absmiddle border=0>Links-Liens</font></A></td></tr>\
<tr><td colspan=2><A href=\"http://www.genealand.com/cgi-bin/dcforum/dcboard.cgi\" target=\"_blank\" onClick=\"hrff();\" target=\"_blank\"><font size=1 color=\"#243351\"><img src=\"chat.gif\" width=28 height=22 align=absmiddle border=0>Forum-Discussion</font></A></td></tr>\
<tr><td colspan=2><A href=\"http://www.genealand.com/autorank/autorank.html\" target=\"_blank\" onClick=\"hrff();\" target=\"_blank\"><font size=1 color=\"#243351\" onClick=\"hrff();\"><img src=\"love.gif\" width=28 height=22 align=absmiddle border=0>TopSites GeneaLand</font></A></td></tr>\
</table></td></tr></table></div>");

document.write("<DIV name=L_tb id=L_tb style=\"position:absolute; top:0; left:0; width:100%; height:250px; visibility:hidden; z-order:1; background-color:red;\">\
<table bgcolor=\"#666666\" width=100% valign=top cellpadding=1 cellspacing=0 border=0><tr><td>\
<table  bgcolor=\"#eeeeee\" width=100% valign=top cellpadding=3 cellspacing=0 border=0><tr>\
<td width=3%><A href=\"\" onclick=\"mv_l(0);return false;\"><IMG name=tbimg src=\"down.gif\" width=15 height=15 border=0></A></td>\
<td width=3%><A href=\"\" onclick=\"javascript: mv_l(3);return false;\"><IMG name=rightimg src=\"right.gif\" width=15 height=15 border=0></A></td>\
<td width=8%><a href=\"http://www.ancestra.net\" onClick=\"hrff();\" target=\"_blank\"><font size=1 color=\"#243351\"><img src=\"love.gif\" width=28 height=22 align=absmiddle border=0>Logiciel</font></a>&nbsp;&nbsp;&nbsp;</td>\
<td width=12%><A href=\"http://www.genealand.com/cgi-bin/dclinks/dclinks.cgi\" target=\"_blank\" onClick=\"hrff();\" target=\"_blank\"><font size=1 color=\"#243351\"><img src=\"find.gif\" width=28 height=22 align=absmiddle border=0>Links-Liens</font></a>&nbsp;&nbsp;&nbsp;</td>\
<td width=14%><A href=\"http://www.genealand.com/cgi-bin/dcforum/dcboard.cgi\" target=\"_blank\" onClick=\"hrff();\" target=\"_blank\"><font size=1 color=\"#243351\"><img src=\"chat.gif\" width=28 height=22 align=absmiddle border=0>Forum-Message</font></a>&nbsp;&nbsp;&nbsp;</td>\
<td width=15%><a href=\"http://www.genealand.com/autorank/autorank.html\" onClick=\"hrff();\" target=\"_blank\"><font size=1 color=\"#243351\"><img src=\"love.gif\" width=28 height=22 align=absmiddle border=0>TopSites GeneaLand</font></a>&nbsp;&nbsp;&nbsp;</td>\
</tr>\
</table></td></tr></table></DIV>");
var cStri=document.cookie.indexOf("Houpy=");
if(cStri!=-1){
var cStrie=document.cookie.indexOf(";",cStri+9);
if(cStrie==-1) cStrie=document.cookie.length;
var psl=parseInt(unescape(document.cookie.substring(cStri+9,cStrie)));
switch(psl){
case 1:
document["tbimg"].src=imgd.src;
curpl=psl;
curln="L_tb";
break;
case 2:
document["tbimg"].src=imgu.src;
curpl=psl;
curln="L_tb";
break;
default:
curpl=3;
curln="L_rg";
break;
}
}else{
curpl=3;
curln="L_rg";
}
init_l();
in_l=setInterval(pos_l,30);
}else ca=false;
function hrff(){
//clearInterval(in_l);
return true;
}
function mv_l(pos){
cc.visibility="hidden";
switch(pos){
case 0:
if(curpl==1) curpl=2;
else curpl=1;
curln="L_tb";
break;
case 1:
curpl=1;
curln="L_tb";
break;
case 2:
curpl=2;
curln="L_tb";
break;
default:
curpl=3;
curln="L_rg";
break;
}
if(curpl==1) document["tbimg"].src=imgd.src;
else document["tbimg"].src=imgu.src;
init_l();
var tdat=new Date();
var expdat=new Date(tdat.getTime()+1800000);	
document.cookie="Houpy="+curpl+"; expires="+expdat.toUTCString()+"; path=/; domain="+document.location.hostname+";";
}
function init_l(){
cc=document.all[curln].style;
switch(curpl){
case 1:
case 2:
cc.left=0;
cc.top=0;
cc.width=document.body.clientWidth+document.body.scrollLeft;
cc.height=30;
break;
default:
cc.left=cm_px();
cc.top=cm_py();
cc.width=152;
cc.height=221;
break;
}
cc.visibility="visible";
}
function cm_px(){
if(ca==true){
switch(curpl){
case 1:
case 2:
return(0);
default:
return((document.body.clientWidth+document.body.scrollLeft)-152);
}}
return(0);
}
function cm_py(){
if(ca==true){
switch(curpl){
case 2:
return((document.body.clientHeight+document.body.scrollTop)-30);
case 1:
default:
return(document.body.scrollTop);
}}
return(0);
}
function cm_pw(){
if(ca=true){
if(curpl==1 || curpl==2) return(document.body.clientWidth+document.body.scrollLeft);
else return(152);
}}
function pos_l(){
cc.visibility="visible";
cc.width=cm_pw();
cc.left=cm_px();
cc.top=cm_py();
}