// ===================================
function HTTPRequestObject()
{
var req = false;

try {
	req=new XMLHttpRequest();
	}

catch(e) {
	try {
		req=new ActiveXObject("Msxml2.XMLHTTP");
		}
		catch (e) {
		try { 
			req = new ActiveXObject("Microsoft.XMLHTTP"); }
			catch(e) {
				req = false;
      			}
   			}
		}
return req;
}

// ===================================
function Call4DAsync(method4D, balise) {
// Initialisation de l'objet XMLHttpRequest
var req = HTTPRequestObject ();

if (req) {
	// Configuration du lien d'appel
	req.open("GET","/4daction/" + method4D +"&hz=" + Math.random(),true);

	// MŽthode de Traitement de la rŽponse
	req.onreadystatechange = showResult;

	// Envoi de la requete et des donnŽes complŽmentaires
	req.send("");	
}
return req;
}
// ===================================
function showResult () {
	if (req.readyState == 4) {
			if(req.status != 200) {
					req = false;
				}
			}
	return req;
}

// ===================================
function send24DAsync (action, param, balise) {
	
	// alert(action + " - " + param + " - " + balise);
	var resultat = Call4DAsync(action + '/cgi?' + param);
	if (document.getElementById)  {
    	document.getElementById(balise).innerHTML = resultat.responseText;
    	}
 	 else if (document.all) {
    	document.all[balise].innerHTML = resultat.responseText;
    	}
}

// ===================================
function Call4D(method4D) {
// Initialisation de l'objet XMLHttpRequest
var req = HTTPRequestObject ();

if (req) {
	// Configuration du lien d'appel	
	req.open("GET","/4daction/" + method4D +"&hz=" + Math.random(),false);

	// MŽthode de Traitement de la rŽponse
	req.onreadystatechange = function() {
		if (req.readyState == 4) {
				if(req.status != 200) {
					req = false;
				}
			}
		}

	// Envoi de la requete et des donnŽes complŽmentaires
	req.send("");	
}
return req;
}

// ===================================
function getParam(url, param) {
	
	var chaine = url +"&";
	tofind = "&" + param + "=";
	var pos1 = url.indexOf(tofind,0);
	if (pos1 == -1) {
		return "";
		}
	var result = chaine.substring(pos1 + 1,chaine.length);
	pos1 = result.indexOf("=",0);
	var pos2 = result.indexOf("&",0);
	result = result.substring(pos1 +1,pos2);
	
	return result;
}

// ===================================
function send24D (action, param, balise) {
	
	//alert(action + " - " + param + " - " + balise);
	var resultat = Call4D(action + '/cgi?' + param);
	
	// cas particulier : vŽrifier si le texte retournŽ est une commande javascript ˆ exŽcuter
	javascript = false;
	if (resultat.responseText.length > 10) {
		if (resultat.responseText.substr(0,11) == "javascript:") {
			javascript = true;
			}
		}
	
//	alert(javascript);
	if (javascript) {
		eval(resultat.responseText.substr(11));
		}
	else {	
		if (document.getElementById)  {
    		document.getElementById(balise).innerHTML = resultat.responseText;
    		}
 		 else if (document.all) {
    		document.all[balise].innerHTML = resultat.responseText;
    		}
    	}
}

// ===================================
function send24DinFrame (action, param, balise, cadre) {
	
	var url = action + '/cgi?' + param;
	var resultat = Call4D(url);
	
		// cas particulier : vŽrifier si le texte retournŽ est une commande javascript ˆ exŽcuter
	javascript = false;
	if (resultat.responseText.length > 10) {
		if (resultat.responseText.substr(0,11) == "javascript:") {
			javascript = true;
			}
		}
	
//	alert(javascript);
	if (javascript) {
		eval(resultat.responseText.substr(11));
		}
	else {	
		if (document.getElementById)  {
    		parent.frames[cadre].window.document.getElementById(balise).innerHTML = resultat.responseText;
    		}
 	 	else if (document.all) {
    		parent.frames[cadre].window.document.all[balise].innerHTML = resultat.responseText;
    		}
    	}
    	
	
}