/* ---------------------------------------------------------------------- 
      getDomain(sLoc)
      msieVersion()
      showToolTip(nWidth, sText)
      toHex(decimal, mask)
      zMainPage()
      zErrorTrap(sMsg, sUrl, sLine)
      zMail(user, server)
      zParametrized()
      zParametrizing(sPrefix)
      zToolTipClose()
      /* ---------------------------------------------------------------------- */
      var sTooltip = "";
      var oTooltip = null;
      if (msieVersion() >= 5.5) oTooltip = window.createPopup();
      /* ---------------------------------------------------------------------- */
      function zToolTipClose() //it is auxiliary function for 'showToolTip'
      {
        if (msieVersion() < 5.5)
        {
          if (event.srcElement.alt) event.srcElement.alt = sTooltip;
        }
        else
          oTooltip.hide();
      } //zToolTipClose
      /* ---------------------------------------------------------------------- */
      function showToolTip(nWidth, sText)
      {
        if (oTooltip.isOpen) return;
        //var oElement = event.srcElement;
        var oElement = this;
        if (msieVersion() < 5.5)
        {
          if (!oElement.alt) return;
          sTooltip = oElement.alt;
          oElement.alt = sText;
          return; 
        }
        oTooltip.document.body.innerHTML = 
          '<div style="font-family:MS Sans Serif;font-size:8pt;padding:6;padding-left:18;' +
          'background-color:infobackground;border-width:1;border-color:infotext;border-style:solid">' + sText + '</div>';
        oTooltip.show(0, 0, nWidth, 0, document.body);
        //if (nWidth = 0) nWidth = oTooltip.document.all.tags("div")[0].offsetWidth; //don't work... :(
        var nHeight = oTooltip.document.all.tags("div")[0].offsetHeight;
        oTooltip.hide();
        oTooltip.show(event.clientX + 10, event.clientY + 10, nWidth, nHeight, document.body);
        oElement.onmouseout = zToolTipClose;
      } //showToolTip
      /* ---------------------------------------------------------------------- */
      /* ---------------------------------------------------------------------- */
      function msieVersion()   
      {  
        if (!document.all) return 0;
        var ua = window.navigator.userAgent;
        var msie = ua.indexOf("MSIE ");
        if (msie > 0)
          return parseFloat(ua.substring(msie + 5, ua.length));
        else                          
          return 0;   
      } //msieVersion
      /* ---------------------------------------------------------------------- */
      function getDomain(sLoc)
      {
        if (!sLoc) sLoc = document.location.href;

        sLoc = sLoc.toLowerCase();
        sLoc = sLoc.substring(sLoc.lastIndexOf(":")+1, sLoc.length);
        sLoc = sLoc.replace(/\\/g, "/");
        while (sLoc.charAt(0) == "/") 
          sLoc = sLoc.substring(1, sLoc.length);
        sLoc = sLoc.substring(0, sLoc.indexOf("/"));
        return (sLoc);
      } //getDomain
      /* ---------------------------------------------------------------------- */
      function toHex(decimal, mask)
      {
        var quotient, remainder, result = "";
        var current = decimal;
        if (current == 0) result = "0";
        while(current > 0)
        {
          quotient = Math.floor(current/16);
          remainder = current - quotient * 16;
          current = quotient;
          result = "0123456789ABCDEF".substring(remainder, remainder + 1) + result;
        }
        if (mask > 0 && result.length < mask)
          for (var i=result.length; i<mask; i++)
            result = "0" + result;
        return(result);
      } //toHex
      /* ---------------------------------------------------------------------- */
      /* ---------------------------------------------------------------------- */
      function zMainPage()
      {
        if (top.document.title.toLowerCase().indexOf("very ltd.") == 0) return;
        document.getElementById("tdMainPage").style.visibility = "visible";
      } //zMainPage
      /* ---------------------------------------------------------------------- */
      function zParametrizing(sPrefix)
      {
        //alert(document.referrer);
        //return;
        if (!sPrefix) sPrefix = "../";
        window.onerror = zErrorTrap;
        if (top.document.title.toLowerCase().indexOf("very ltd.") == 0) return;
        top.document.location.replace(sPrefix + "index.htm?" + document.location);
        window.onerror = null;
      } //loadFrameSet
      /* ---------------------------------------------------------------------- */
      function zParametrized()   
      { 
        var sPath = document.location.search;
        if (sPath.length == 0) return;
        sPath = sPath.substring(1, sPath.length);
        if (sPath == window.frames["frameMain"].location.href) return; 

        top.bTimer1 = false;
        if (top.oTimer1) top.bTimer1 = true;
        if (top.bTimer1) clearTimeout(top.oTimer1);
        top.bTimer2 = false;
        if (top.oTimer2) top.bTimer2 = true;
        if (top.bTimer2) clearTimeout(top.oTimer2);
        window.frames["frameMain"].location.replace(sPath);
        /*
        if (top.bTimer1) top.oTimer1 = setTimeout("top.zBracketTimer1()", top.nDelay1);
        if (top.bTimer2) top.oTimer2 = setTimeout("top.zBracketTimer2()", top.nDelay2);
        */
      } //loadParametrized 
      /* ---------------------------------------------------------------------- */
      function zErrorTrap(sMsg, sUrl, sLine) 
      {
        return false;
      } //zErrorTrap
      /* ---------------------------------------------------------------------- */
      function zMail(user, server)
      {
        document.location.href = "mailto:" + user + "@" + server;
        return(false);
      } //zMail
      /* ---------------------------------------------------------------------- */