function ie6x() {
  try {
    var ua = window.navigator.userAgent;
    var msie = ua.indexOf("MSIE ");
    if ((msie > 0) && (parseInt(ua.substring(msie+5, ua.indexOf(".", msie))) >= 6) && (window.navigator.platform.substr(0, 3) == "Win"))
      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;
}