var WA_Arr_O = ("Microsoft.XMLHTTP","Microsoft.XMLDOM","MSXML2.XMLHTTP").split(",")
var HTTP_Object = -1
if (window.XMLHttpRequest)
    HTTP_Object = 0
else
{
    for (i=0;i<WA_Arr_O.length;i++)
    {
        try
        {
           a = new ActiveXObject(WA_Arr_O[i]);
           HTTP_Object = i
           break
        }
        catch(e){}
    }
}

var WA_aoCalls   = new Array();

function get_From_Query1(nam)
{
    var P = window.location.search.substr(1).split("&")
    var D = ""
    for (var i=0; i < P.length; i++)
	{
		var aCrumb = P[i].split("=");
		if (nam == aCrumb[0])
		{ 
			return (aCrumb[1])
		}		
	}
	return (D);
}

function __GetStringURL(strXMLSrc, fnc_Ret )
{  
 
	var FlagDo = true;
    var iCall;
    if (strXMLSrc.indexOf("?")<0){strXMLSrc+="?"}else{strXMLSrc+="&"}
    strXMLSrc+="__asd="+Math.random()
    
	if (strXMLSrc.indexOf("http")!=0)
		strXMLSrc=document.location.protocol+'//'+document.location.host+strXMLSrc 

	if (get_From_Query1('ses')=='1')
		alert(strXMLSrc)
    for (iCall=0; !(WA_aoCalls[iCall] == null || WA_aoCalls[iCall]=="") ;iCall++)
    {}

    var objXMLDoc
    if (window.XMLHttpRequest)
        objXMLDoc = new XMLHttpRequest();
    else
        objXMLDoc = new ActiveXObject(WA_Arr_O[HTTP_Object]);
    WA_aoCalls[iCall] = new __CallObject( objXMLDoc ,strXMLSrc+"&method="+HTTP_Object, fnc_Ret );
    objXMLDoc.onreadystatechange = Function( "__fnLoadComplete( " + iCall + " );" );
 
 
 
    if (HTTP_Object==0) 
    {
         objXMLDoc.open("GET", WA_aoCalls[iCall].strURL, true); 
         objXMLDoc.send(null);
    }
    else if (HTTP_Object==1)
    {
        objXMLDoc.async = true;
	    objXMLDoc.load(WA_aoCalls[iCall].strURL);
	}
}
function __CallObject( oXml , strURL, func)
{
    this.oXml = oXml;
    this.strURL = strURL
    this.func = func;
    this.ReturnString = ""
}
		
function __fnLoadComplete( iIndex )
{
	var Ret_Text = ""
    if( iIndex == null ) return;
    var oCall = WA_aoCalls[iIndex ];
    try{var iReadyState = oCall.oXml.readyState;}catch(e){return;}

    if(iReadyState!=4) return;
    
    if (HTTP_Object==0)
        Ret_Text = oCall.oXml.responseText  
    else 
        Ret_Text = oCall.oXml.documentElement.childNodes.item(0).text
       
    if (oCall.func!='')
    {
		WA_aoCalls[ iIndex ] = null	
		try{eval(oCall.func + "('"+Ret_Text+"')")}catch(e)
		{
			 //document.write(oCall.strURL )
			 //document.write(Ret_Text )
			 //document.getElementById('ddd').innerHTML = oCall.strURL
			  
			 //alert(oCall.func +  ' ' + e.description + " Error " + Ret_Text)
		}
	}
}