function getIEVersion()
{
  var ua = window.navigator.userAgent;
  var msie = ua.indexOf("MSIE ");
  if( (msie > 0) && (window.navigator.platform.substr(0, 3) == "Win") )
    return parseInt(ua.substring(msie+5, ua.indexOf(".", msie)));
  return 0;
}

function ie6() {
  try {
    if( getIEVersion() == 6 )
      return 1;
    else
      return 0;
  }
  catch(e) { return 0; }
}

function ie6x() {
  try {
    if( getIEVersion() >= 6 )
      return 1;
    else
      return 0;
  }
  catch(e) { return 0; }
}

function isObjOk(strId)
{
  var obj;
  try      { obj = new ActiveXObject(strId); }
  catch(e) { return false; }
  return true;
}

function isXMLHTTPOk()
{
  return isObjOk("Microsoft.XMLHTTP");
}

function isXMLDOMOk()
{
  return isObjOk("Microsoft.XMLDOM");
}

function isDictionaryOk()
{
  return isObjOk("Scripting.Dictionary");
}

function allObjTypesOK(bDict) 
{
  if( !isXMLHTTPOk() || !isXMLDOMOk() || !isDictionaryOk() )
    return 0;
  return 1;
}