
    var gHome="/";
    var gPic=gHome+"/pics";
    var gJscript=gHome+"/js";
    var gBrws="ie4";
    var ns4=false;
    var ie4=true;
    var JSbad;
    var mac=0;
    var gDebug=0;
    var gDoDelIFrameSrc=false;

    function gInitAll()
    {
        if(!navigator.platform){alert("Please Use Netscape 4+ or MS Explorer 4+");return;}
        if(0){
          ns4=(document.layers)? true:false;
          ie4=(document.all)? true:false;
        }
        if(navigator.platform.indexOf("Mac")!=-1 && document.all)mac=true; else mac=false;

        document.onmousemove = gOnMouseMove;
        if(ns4)document.captureEvents(Event.MOUSEMOVE);

		if( window.navigator.userAgent.indexOf( 'Opera' )!=-1)gBrws="opera";
        else if(document.layers)gBrws="ns4";
        else if(document.all && !document.getElementById) gBrws="ie4";
        else if(document.all && document.getElementById) gBrws="ie5";
        else if(!document.all && document.getElementById) gBrws="ns6";

        gGetPgParams();
    }
    gInitAll();


    function gObject(objnme)                                
    {
        pos=objnme.indexOf("->");
        if(pos!=-1){ /* the layer in other frame */
            doc=objnme.substr(0,pos);
            d=eval(doc);
            objnm=objnme.substr(pos+2);
            //alert(doc + " " + objnm);
        }
        else {d=document;doc="document";objnm=objnme;}
        
        if(d.getElementById)return d.getElementById(objnm);
        else if(isBrws("ns4"))return eval(doc+"."+objnm);
        //else if(isBrws("ie"))return d.all[objnm];
        else return d.all[objnm];
    }

    function gObjectStyle(objnm)
    {
       if(isBrws("ns4"))return gObject(objnm);
       return gObject(objnm).style;
    }           

    function isBrws(nm)
    {
        if(gBrws.indexOf(nm)!=-1)return true;
        return false;
    }
    var gMoX=0;
    var gMoY=0;
    var gPgW=2;
    var gPgH=2;
    var gMoHookPrc="";
    var gMoShowXY=false;
    var gEvent;
    var gAcc=1;

    function    gGetPgParams()
    {
        if(isBrws("ns")){
            gPgW=window.innerWidth;
            gPgH=window.innerHeight;
        //}else if(isBrws("ie")){
        }else {
            if(document.body){
                gPgW=document.body.clientWidth;
                gPgH=document.body.clientHeight;
            }else {
                gPgW=window.screen.width;
                gPgH=window.screen.height;
            }
        }
        gPgCX=Math.round(gPgW/2);
        gPgCY=Math.round(gPgH/2);

        gMoX=gPgCX;
        gMoY=gPgCY;
    }
    function gOnMouseMove(e)
    {
        if (isBrws("ie")) e=event;
        gEvent=e;
        if(gMoHookPrc!="")gMoHookPrc(gMoX,gMoY);

		if( typeof( e.pageX ) == 'number' ) { 
			gMoX = e.pageX; gMoY = e.pageY; 
		} else {
			gMoX = e.clientX; gMoY = e.clientY;
			if( !( ( window.navigator.userAgent.indexOf( 'Opera' ) + 1 ) || ( window.ScriptEngine && ScriptEngine().indexOf( 'InScript' ) + 1 ) || window.navigator.vendor == 'KDE' ) ) {
				if( document.documentElement && ( document.documentElement.scrollTop || document.documentElement.scrollLeft ) ) {
					gMoX += document.documentElement.scrollLeft; gMoY += document.documentElement.scrollTop;
				} else if( document.body && ( document.body.scrollTop || document.body.scrollLeft ) ) {
					gMoX += document.body.scrollLeft; gMoY += document.body.scrollTop;
				}
			}
        }
        if(gMoShowXY)window.status="x=" + gMoX + "  y=" + gMoY;
    }
    
  
/* layers */
    var gDelay = 0;
    var gIsAto=false;
    var gStdLS="position : absolute; visibility : hidden; background-color: transparent; ";
    var gLrCont="";
    var gLrScrolledPos=false;

    function layerCreate(lrNm,lrStl,lrcont)
    {
        if(!lrStl || lrStl=="")lrStl=gStdLS;
        else if (lrStl.indexOf("+")==0)lrStl=gStdLS+" "+lrStl.substr(1);
        if(lrStl.indexOf("#")!=0){ //refering to existing style
            outStr="<STYLE TYPE='text/css'>#"+lrNm+"{";
            outStr+=lrStl;
            outStr+="}</STYLE>";
            lrStl=lrNm;
        }else {
            outStr="";
            lrStl=lrStl.substr(1);
        }
            
        outStr+="<DIV ID='"+lrNm+"' nm='"+lrNm+"' CLASS='"+lrStl+"' > ";
        outStr+=lrcont;
        outStr+="</DIV>";
        return outStr;
    }

    function layerSet(lrnm,lrx,lry,lrcont,lrvis,lrcx,lrcy)
    {
        lr=gObject(lrnm);

        if(!lr){
            if(gIsAto){
                document.write(layerCreate(lrnm,"",lrnm));
                window.setTimeout("layerSet('"+lrnm+"',"+lrx+","+lry+",'"+lrcont+"','"+lrvis+"')",gDelay);
            }return;
        }
        
        if(lrx!="-" || lry!="-"){

            if(isBrws("ns4")){
                if(lrx!="-")lr.left = lrx;
                if(lry!="-")lr.top = lry;
                window.status="lrx="+lrx + " lry="+lry;
            //}else if(isBrws("ie")){
            }else {
                if(lrx!="-")lr.style.left = lrx;
                if(lry!="-")lr.style.top = lry;
            }
        }

        if(lrcx!="-" && lrcy!="-"){
            if(isBrws("ns4")){
                lr.resize(lrcx,lrcy);
            //}else if(isBrws("ie") || isBrws("ns6")){
            }else {
                lr.style.width = lrcx;
                lr.style.height = lrcy;
            }
        }
        

        if(lrvis!="-"){

            if(isBrws("ns4")){
                if(lrvis=="show")lr.visibility = "show";
                if(lrvis=="hide")lr.visibility = "hide";
                if(lrvis=="toggle"){
                    if(lr.visibility=="hide")lr.visibility = "show";
                    else if(lr.visibility=="show")lr.visibility = "hide";
                }
            }
            //else if(isBrws("ie") || isBrws("ns6")){
            else {
                if(lrvis=="show"){lr.style.visibility = "visible";lr.style.display="";}
                if(lrvis=="hide"){lr.style.visibility = "hidden";lr.style.display="none";}
                if(lrvis=="toggle"){
                    if(lr.style.visibility=="visible") {lr.style.visibility = "hidden";lr.style.display="none";}
                    else {lr.style.visibility = "visible";lr.style.display="";}
                }
            }
        }
        if(lrcont && lrcont!="-"){
            if(lrcont.indexOf("<a>",0)==0){
                lrsrc=lrcont.substr(3);
                frmnam="tmpFrm"+lrnm+gAcc;
                if(isBrws("ns4")){
                    lr.src=lrsrc;
                    for(ilr=0;ilr<1000000 && !lr.src;ilr++)lr.src=lrsrc;
                }
                
                //else if(isBrws("ie") || isBrws("ns6") ){
                else {
                    //"tmpFrm"+lrnm+gacc
                    //lr.innerHTML="<IFRAME onLoad=\"layerDeIframe('"+lrnm+"','"+frmnam+"')\" name=\""+frmnam+"\" id=\""+frmnam+"\" width="+lr.style.width+" height="+lr.style.height+" ALLOWTRANSPARENCY=TRUE SCROLLING=AUTO FRAMEBORDER=0 BGCOLOR=\"transparent\" SRC=\""+lrsrc+"\"></IFRAME>";
                    t="<IFRAME ";
                    if(gDoDelIFrameSrc)t+="onLoad=\"layerDeIframe('"+lrnm+"','"+frmnam+"')\"";
                    t+=" name=\""+frmnam+"\" id=\""+frmnam+"\" width="+lr.style.width+" height="+lr.style.height+" ALLOWTRANSPARENCY=TRUE SCROLLING=AUTO MARGINWIDTH=0 MARGINHEIGH=0 FRAMEBORDER=0 BGCOLOR=\"transparent\" SRC=\""+lrsrc+"\"></IFRAME>";
                    lr.innerHTML=t;
                }
                ++gAcc;
                                
            }else {
                if(lrcont.indexOf("<s>",0)==0){
                    lrfunc=lrcont.substr(3);
                    lrcont=eval(lrfunc);
                 }
                if(isBrws("ns4")){
                    lr.document.open();
                    lr.document.write(lrcont);
                    lr.document.close();
                //}else if(isBrws("ie") || isBrws("ns6")){
                }else {
                    lr.innerHTML = lrcont;
                }
            }
        }
    }

    function layerDeIframe(lrnm,framename)
    {
        if(isBrws("ie"))gObject(lrnm).innerHTML=gObject(lrnm).document.frames[framename].document.body.innerHTML;
        else gObject(lrnm).innerHTML=window.frames[framename].document.body.innerHTML;
        
    }
	
/* Frames & Forms */
    function layerGetSubForm(lrnm,formName)
    {
        return gObject(lrnm).document.forms[formName];
        
        //if(isBrws("ns4"))
        //    return gObject(lrnm).document.forms[formName];
        //else if(isBrws("ie") || isBrws("ns6"))
        //    return document.forms[formName];

    }
    function frameGetForm(frameNum,formName)
    {
        if(isBrws("ie")) /* internet explorer */
            return window.parent.document.frames(frameNum).document.forms(formName);
		else return window.parent.frames[frameNum].document.forms[formName];
        //if(isBrws("ns4")) /* netscape navigator */
        //    return window.parent.frames[frameNum].document.forms[formName];

    }

    function frameGetValSet( layername, formname )
    {
    
        sform=layerGetSubForm (layername ,formname );
        t="";
        for( i=0; i< sform.elements.length; ++i){
            if(i!=0)t+="&";
            t+=sform.elements[i].name+ "=" + sform.elements[i].value;
        }
        t=encodeURI(t);
        return t;
    }
    
<!-- cookies -->

    function cookieSet(sNm, sValue)
    {
      if(sValue=="")document.cookie = sNm + "=" + escape(sValue) + "; path="+gHome+"; expires=Thu, 31 Dec 2099 ";
      else document.cookie = sNm + "=" + escape(sValue) + "; path="+gHome+"; ";
    }

    function cookieGet(sNm,deflt)
    {
      var aCookie = document.cookie.split("; ");
      for (var i=0; i < aCookie.length; i++)
      {
          var aCrumb = aCookie[i].split("=");
          if(!aCrumb.length) return deflt;
          if (sNm == aCrumb[0]) 
              return unescape(aCrumb[1]);
      }
      return deflt;
    }





/*
function  gHandleResize()
{
    location.reload();
    return false;
}

if (document.layers ) {
    window.captureEvents(Event.RESIZE);
    window.onresize = gHandleResize;
}      

function gStupidNetscapeReloader()
{
    isReloading=cookieGet("stupidNetscapeReload");
    if(document.layers){
        if(!isReloading || isReloading==""){
            cookieSet("stupidNetscapeReload","donotreaload");
            location.reload();
        }
        else cookieSet("stupidNetscapeReload","");
    }
}
*/

/**************************************************************************/
function locationSet( lloc, varn, valn )
{
    ll=lloc.toString();
    
    pos=ll.indexOf(varn+"=");
    if(pos==-1)
        return ll+"&"+varn+"="+valn;
    
    left=ll.substr(0,pos);
    //alert ("l="+left);
    
    posnext=ll.substr(pos+varn.length+1).indexOf("&");
    if(posnext!=-1)right=ll.substr(pos+varn.length+1).substr(posnext); else right="";
    
    //alert ("r="+right);
    
    return left+varn+"="+valn+right;
}



/* Document related cross platform */
//layerSet("commandpopclose",gMoX+document.body.scrollLeft,gMoY+document.body.scrollTop,"-","show","-","-");

//        d=document;
/*
       if(isBrws("ns4"))return eval("document."+objnm);
       if(isBrws("ie") || isBrws("ns"))return d.all[objnm].style;
*/

/*
       if(d.getElementById)return d.getElementById(objnm).style;
       else if(isBrws("ns4"))return eval(doc+"."+objnm);
       else if(isBrws("ie"))return d.all[objnm].style;
*/
                /*if(gLrScrolledPos){
                    if(lrx!="-")lrx=lrx+window.pageXOffset;
                    if(lry!="-")lry=lry+window.pageYOffset;
                }*/
                /*if(gLrScrolledPos){
                    if(lrx!="-")lrx=lrx+document.body.scrollLeft;
                    if(lry!="-")lry=lry+document.body.scrollTop;
                }*/
/* if(ns4)
                    else {

                        lrcont="This is bull <script>alert('oho');";
                        lrcont+="var oho=\""+
                        "<FRAMESET ROWS='50%,50%' >"+
                        "<NOFRAME>NS frames</NOFRAME>"  +
                        "<FRAME name='A"+lrnm+"' SRC='a.html'>"+
                        "<FRAME name='B"+lrnm+"' SRC='b.html'>"+
                        "</FRAMESET>\";";
                        lrcont+="document.write(oho);"
                        lrcont+=" </script> ";


                        lr.document.open();
                        lr.document.write(lrcont);
                        lr.document.close();      
                    }*/
                    
