var xmlhttp

function loadXMLDoc(QStr)
{
xmlhttp=null
// code for Mozilla, etc.
if (window.XMLHttpRequest)
  {
  xmlhttp=new XMLHttpRequest()
  }
// code for IE
else if (window.ActiveXObject)
  {
  xmlhttp=new ActiveXObject("Microsoft.XMLHTTP")
  }
if (xmlhttp!=null)
  {
  xmlhttp.onreadystatechange=state_Change
  xmlhttp.open("GET","DataPort/Provider.asp?" + QStr,true)
  xmlhttp.send(null)
  }
else
  {
  alert("Your browser does not support XMLHTTP.")
  }
}

function state_Change()
{
	// if xmlhttp shows "loaded"
	if (xmlhttp.readyState==4)
	{
		// if "OK"
		if (xmlhttp.status==200)
		{
			tmpSplit = xmlhttp.responseText.split("}")
			switch(tmpSplit[0])
			{
			case 'checkReciprocalLink':
				checkReciprocalLink_callback(tmpSplit[1]);
				break
			case 'deleteLink':
				deleteLink_callback(tmpSplit[1]);
				break
			default:
				alert("Unknown XML data:" + tmpSplit[0] + "\n" + xmlhttp.responseText)
			}
		}
		else
		{
			//alert("Problem retrieving XML data:\n\n" + xmlhttp.statusText + " " + xmlhttp.responseText)
			document.write(xmlhttp.responseText);
		}
	}
}