var ClueXML = function(hosturl, protocol)
{
	this.host = hosturl
	
	if(protocol)
		this.protocol = protocol;
	else
		this.protocol = 'http://';
}

ClueXML.prototype.GetHttpRequest = function()
{
	if ( window.XMLHttpRequest )		// Gecko
		return new XMLHttpRequest() ;
	else if ( window.ActiveXObject )	// IE
		return new ActiveXObject("MsXml2.XmlHttp") ;
}

ClueXML.prototype.LoadUrl = function( urlToCall, asyncFunctionPointer, state )
{
	
	var oClueXML = this ;

	var bAsync = ( typeof(asyncFunctionPointer) == 'function' ) ;

	var oXmlHttp = this.GetHttpRequest() ;
	
	
	
	//var hostaddress = 'http://devcrm.cluedesign.com.au';
	//var host = '<%=Request.ServerVariables["HTTP_HOST"].ToString()%>'
	var hostaddress = oClueXML.protocol + oClueXML.host;
	
	urlToCall = hostaddress + urlToCall;
		
	oXmlHttp.open( "GET", urlToCall, bAsync ) ;
	
	if ( bAsync )
	{	
		oXmlHttp.onreadystatechange = function() 
		{
			if ( oXmlHttp.readyState == 4 )
			{
				var responseType = oXmlHttp.getResponseHeader('Content-Type');
				
				if(responseType.indexOf('xml') > -1)
					oClueXML.DOMDocument = oXmlHttp.responseXML ; // parse the XML document
				else
					oClueXML = oXmlHttp.responseText ; // plain text
										
				if ( oXmlHttp.status == 200 )
				{
					if(state)
						asyncFunctionPointer( oClueXML, state ) ;
					else
						asyncFunctionPointer( oClueXML ) ;
				}
				else
				{
					//alert('asdf');
					alert( 'XML request error: ' + oXmlHttp.statusText + ' (' + oXmlHttp.status + ')' + '[' + urlToCall + ']' ) ;
				}
			}
		}
	}
	
	oXmlHttp.send( null ) ;
	
	if ( ! bAsync )
	{
		if ( oXmlHttp.status == 200 )
			this.DOMDocument = oXmlHttp.responseXML ;
		else
		{
			alert( 'XML request error: ' + oXmlHttp.statusText + ' (' + oXmlHttp.status + ')' ) ;
		}
	}
}



ClueXML.prototype.SelectNodes = function( xpath )
{
	if ( document.all )		// IE
		return this.DOMDocument.selectNodes( xpath ) ;
	else					// Gecko
	{
		var aNodeArray = new Array();

		var xPathResult = this.DOMDocument.evaluate( xpath, this.DOMDocument, 
				this.DOMDocument.createNSResolver(this.DOMDocument.documentElement), XPathResult.ORDERED_NODE_ITERATOR_TYPE, null) ;
		if ( xPathResult ) 
		{
			var oNode = xPathResult.iterateNext() ;
 			while( oNode )
 			{
 				aNodeArray[aNodeArray.length] = oNode ;
 				oNode = xPathResult.iterateNext();
 			}
		} 
		return aNodeArray ;
	}
}

ClueXML.prototype.SelectSingleNode = function( xpath ) 
{
	if ( document.all )		// IE
		return this.DOMDocument.selectSingleNode( xpath ) ;
	else					// Gecko
	{
		var xPathResult = this.DOMDocument.evaluate( xpath, this.DOMDocument,
				this.DOMDocument.createNSResolver(this.DOMDocument.documentElement), 9, null);

		if ( xPathResult && xPathResult.singleNodeValue )
			return xPathResult.singleNodeValue ;
		else	
			return null ;
	}
}