var xmlQLS = null;

function create_object() {
  var object = null;
  try {
    object = new ActiveXObject('Msxml2.XMLHTTP')
  } catch(e) {
    try {
      object = new ActiveXObject('Microsoft.XMLHTTP')
    } catch(sc) {
      object = null
    }
  }
  if (!object && typeof XMLHttpRequest != 'undefined') {
    object = new XMLHttpRequest()
  }
  return object
}


function checkURL(url) {
  if (xmlQLS && xmlQLS.readyState != 0) {
    xmlQLS.abort()
  }

  xmlQLS = create_object();

  if (xmlQLS) {
    xmlQLS.open('GET', 'http://group.tnt.com/include/qls_check.asp?url=' + url, true);
    //xmlQLS.open('GET', 'http://grouptntcom.preview.tntpost.nl/include/qls_check.asp?url=' + url, true);
    xmlQLS.onreadystatechange = function() {
                             if (xmlQLS.readyState == 4) {
                                 if (xmlQLS.responseText) {
                                   var link = document.getElementById('qls_link');
                                   link.href = xmlQLS.responseText;
                                 }
                             }
                           };
    xmlQLS.send(null)
  }
}