//------------------------------------------------------------------------------
// create_request
//------------------------------------------------------------------------------
function create_request() 
{      
   var request = null;
   
   try
   {
      request = new XMLHttpRequest();
   } catch (trymicrosoft) {
      try
      {
         request = new ActiveXObject("Mxxml12.XMLHTTP");
      } catch (othermicrosoft) {
         try
         {
            request = new ActiveXObject("Microsoft.XMLHTTP");
         } catch (failed)
         {
            request = null;
         }            
      }
   }
   
   if (request == null)
   {
      alert("Error creating request object.");
   }
   
   return request;
}
   
var req;

function loadXMLDoc(url, callback) {
   req = false;
    // branch for native XMLHttpRequest object
    if(window.XMLHttpRequest && !(window.ActiveXObject)) {
      try {
         req = new XMLHttpRequest();
        } catch(e) {
         req = false;
        }
    // branch for IE/Windows ActiveX version
    } else if(window.ActiveXObject) {
         try {
         req = new ActiveXObject("Msxml2.XMLHTTP");
         } catch(e) {
         try {
               req = new ActiveXObject("Microsoft.XMLHTTP");
         } catch(e) {
               req = false;
         }
      }
    }
   if(req) {
      req.open("GET", url, true);
      req.onreadystatechange = callback;
      req.send("");
   }
}

function get_html_request(request, url, callback) 
{
   if(request) {
      request.open("GET", url, true);
      request.onreadystatechange = callback;
      request.send("");
   }
}

function getURLParameters() 
{
   var sURL = window.document.URL.toString();
   
   if (sURL.indexOf("?") > 0)
   {
      var arrParams = sURL.split("?");
         
      var arrURLParams = arrParams[1].split("&");
      
      var arrParamNames = new Array(arrURLParams.length);
      var arrParamValues = new Array(arrURLParams.length);
      
      var i = 0;
      for (i=0;i<arrURLParams.length;i++)
      {
         var sParam =  arrURLParams[i].split("=");
         arrParamNames[i] = sParam[0];
         if (sParam[1] != "")
            arrParamValues[i] = unescape(sParam[1]);
         else
            arrParamValues[i] = "No Value";
      }
      
      for (i=0;i<arrURLParams.length;i++)
      {
         alert(arrParamNames[i]+" = "+ arrParamValues[i]);
      }
   }
   else
   {
      alert("No parameters.");
   }
}