var ajax_ctl=null;
var sysbusyInterval=null;
/* **** ----------------------------------------- * 
FUNCTION:		getData
	trg=[string] element_id that is to receive updated content returned from request
	pgurl=url of page to request
	cbk=callback function	name
	mthd = request type, must be one of "GET", "POST", "HEAD", or other valid http request type	PUT||DELETE
	params = any url parameters to send, such as (id=12, pg=login)	
	-----------------------------------------
	syntax: getData(trg,pgurl,cb,mthd,param)
		or: use following line to set recurring call, such as a stock ticker that updates once each minute
			ajax_interval=setInterval('getData(elmId,URL,CB,Method,Params)', 60000);
**** ----------------------------------------- */
function getData(trg,pgurl,cb,mthd,param){
	ajax_ctl=new atom_xttp(trg,pgurl,cb,mthd,param);
	ajax_ctl.exec();
}
/* **** ----------------------------------------- *
OBJECT:		ATOM_XTTP
ARGUMENTS:
	elm_id = [string] element_id that is to receive updated content returned from request
	url = url of page to request
	clbk = callback function
	mthd = request type, must be one of	"GET", "POST", "HEAD", or other valid http request type	PUT||DELETE
	params = any url parameters to send, params should be in format:
		var params="id=12&pg=login";
**** ----------------------------------------- */
function atom_xttp(elm_id, RSRURL, clbk, rq_typ, params,stackndx) {
	var ref = this;
	this.elm = (elm_id!=null)?set(elm_id):null;
	this.state = 'ready';
	this.RSRURL=RSRURL;
	this.clbk = clbk;//+'()';
	this.xttp = null;
	this.req=rq_typ
	this.parameters=params;
	this.exec = function() {
		if (ref.state=='ready') { 
			ref.state='executing';
			ref.xttp = get_xhttp();
			if(!ref.xttp){
				alert("This application requires the use of a technology called 'AJAX' which is not supported by your browser");
				return false;
			}
			ref.xttp.open(this.req, ref.RSRURL, true);
			ref.xttp.onreadystatechange=function(){
				if(ref.xttp.readyState=='4'||ref.xttp.readyState=="complete"){
					/* if(sysbusyInterval){
						clearInterval(sysbusyInterval);
					}
					var stat=ref.xttp.status;
					window.status='Get Page Request Status:'+stat;					
					ref.state='ready';
					if(ref.elm!=null){
						var h="";
						h+=ref.xttp.responseText;
						var stat=ref.xttp.status;
						if(stat=='200'){
							//alert(h);
							ref.elm.innerHTML=h;
						}else{
							ref.elm.innerHTML='<div>'+CNBCHANNEL+' Error: Resource Unavailable</div>';
							window.status=CNBCHANNEL+' Error: Unable to update '+elm_id+' - Request Status:'+stat;
						}
					} */
					var h="";
					h+=ref.xttp.responseText;
					ref.xttp=null;
					h=escape(h);
					var cb=ref.clbk+'(\"'+h+'\")';
					eval(cb);
				}
			}
			if(rq_typ=="GET"){
				var logtxt="["+ts()+"] AJAX Request\n";
				logtxt+="-----------------------------------------\n";
				logtxt+="RSRURL: "+ref.RSRURL+"\n";
				logtxt+="METHOD: "+ref.req+"\n";
				logtxt+="Params: "+ref.parameters+"\n";
				logtxt+="Callback: "+ref.clbk+"\n";
				logtxt+="-----------------------------------------\n";
				//writeToLog("E:\\cnb\\scorpion\\logs\\ajaxrequests.txt",logtxt);
				ref.xttp.send(null);	
			}else{
				var logtxt="["+ts()+"] AJAX Request\n";
				logtxt+="-----------------------------------------\n";
				logtxt+="RSRURL: "+ref.RSRURL+"\n";
				logtxt+="METHOD: "+ref.req+"\n";
				logtxt+="Params: "+ref.parameters+"\n";
				logtxt+="Callback: "+ref.clbk+"\n";
				logtxt+="-----------------------------------------\n";
				//writeToLog("E:\\cnb\\scorpion\\logs\\ajaxrequests.txt",logtxt);				
				parms=ref.parameters;
				parms+="&ts="+ts();
				ref.xttp.setRequestHeader("Content-type","application/x-www-form-urlencoded;charset=UTF-8");
				ref.xttp.setRequestHeader("Content-length",parms.length);
				ref.xttp.setRequestHeader("Connection","close");
				ref.xttp.send(parms);
			}
		} else {
			alert('Already Executing Request[readystate: ['+ref.state+']...please stand by');
			return false;
		}	
	}
	this.kill=function(){
		if(ref.xttp){
			ref.xttp.abort();
		}
	}
}
/***************************************************
*** FUNCTION:	get_xhttp()									*
***************************************************/
function get_xhttp() {
	var xttp = null;
	if (window.XMLHttpRequest) {
	  // If IE7, Mozilla, Safari, and so on: Use native object.
	  xttp = new XMLHttpRequest();
	}else{// ...otherwise, use the ActiveX control for IE6,IE5.x and IE4
		if(window.ActiveXObject){
			try {
				xttp = new ActiveXObject('MSXML2.XMLHTTP.3.0');
			}catch(e){
				try {
					xttp = new ActiveXObject("Msxml2.XMLHTTP");
				} catch (e) {
					xttp = new ActiveXObject("Microsoft.XMLHTTP");//IE4
				}
			}
		}else{
			xttp = 0;
		}
	}
	return xttp;
}