function _DOMcreateDoc(){ 
  var objDOM=null;

  if (document.implementation && document.implementation.createDocument){
    try{
      objDOM=document.implementation.createDocument("","", null);
    }catch(er){alert(er.message)}
  }else if (window.ActiveXObject){
    try{
      var progIdArray=["MSXML4.DOMDocument", "MSXML3.DOMDocument", "MSXML2.DOMDocument", "MSXML.DOMDocument", "Microsoft.XmlDom"];
      for (var i=0; i<progIdArray.length; i++){
        try{
          objDOM=new ActiveXObject(progIdArray[i]);
        }catch(er1){}
      }
    }catch(er){alert(er.message)}
  }else{
    objDOM = null;
  }

  return objDOM;
}

function _DOMaddElement(idDoc, idNode, idElement, textNode){

  try{
    var elementNode=idDoc.createElement(idElement);
    var textNode=idDoc.createTextNode(textNode);
    elementNode.appendChild(textNode);
    idNode.appendChild(elementNode);
  }catch(er){alert(er.message)}

  return true;
}

function _DOMloadDoc(idDoc, idFile){
  try{
    idDoc.async=false;
    idDoc.load(idFile);
  }catch(er){alert(er.message)}

  return true;
}

function _DOMparseDoc(idText){
  var objDOM=null;

  if (document.implementation && document.implementation.createDocument){
    try{
      parser=new DOMParser();
      objDOM=parser.parseFromString(idText,"text/xml");
    }catch(er){alert(er.message)}
  }else if (window.ActiveXObject){
    try{
      var progIdArray=["MSXML4.DOMDocument", "MSXML3.DOMDocument", "MSXML2.DOMDocument", "MSXML.DOMDocument", "Microsoft.XmlDom"];
      for (var i=0; i<progIdArray.length; i++){
        try{
          objDOM=new ActiveXObject(progIdArray[i]);
        }catch(er1){}
      }
      objDOM.async=false;
      objDOM.loadXML(idText);
    }catch(er){alert(er.message)}
  }else{
    objDOM = null;
  }

  return objDOM;
}