// ajax.js copyright 2008 and later Peter van Dam all rights reserved
// This Ajax script library is a companion to 'Making Progress With Ajax'
// by Peter van Dam

var gRequest;

function createRequest() { 
  return window.XMLHttpRequest ? new XMLHttpRequest() : new ActiveXObject("Microsoft.XMLHTTP");  
}  // createRequest

function callServer(url, data) {
  gRequest = createRequest();

  gRequest.open("POST", url, false);
  gRequest.setRequestHeader("Content-Type","text/xml");
  gRequest.send(data);  
  
  if (gRequest.responseXML.getElementsByTagName("error")[0])
  {
    var errorMessages = gRequest.responseXML.getElementsByTagName("errorMessage");
    if (errorMessages)
    {
      for (var i = 0; i < errorMessages.length; i++)
      {
        alert(errorMessages[i].firstChild.nodeValue);
      }      
    }
    else
      alert("An unknown error occurred on the server.");  
  }     
} // callServer

      function setData() {
        var searchString = document.location.search;
        var docRef = document.referrer;
        var params = searchString + '&ref=' + docRef;
        if(searchString == '') {
           params = '?ref=' + docRef;
           }
        callServer('/web/out.web/algm/htc.htm' + params,
                   '<params>' + params + '</params>');                       
      } // setData