// ===================================
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 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 Call4Dpost(url,params) {
// Initialisation de l'objet XMLHttpRequest
var req = HTTPRequestObject ();

if (req) {
	// Configuration du lien d'appel	
	req.open("POST",url,false);

	// Methode de Traitement de la reponse
	req.onreadystatechange = function() {
		if (req.readyState == 4) {
				if(req.status != 200) {
					req = false;
				}
			}
		}
	
	params = params +"&h=" + Math.random();
	// Envoi de la requete et des donnees complementaires
	req.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
	req.setRequestHeader("Content-length", params.length);
	req.setRequestHeader("Connection", "close");
	
	req.send(params);	
}
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 = function() {
		if (req.readyState == 4) {
				if(req.status == 200) {
				
					// cas particulier : vŽrifier si le texte retournŽ est une commande javascript ˆ exŽcuter
					javascript = false;
					if (req.responseText.length > 10) {
						if (req.responseText.substr(0,11) == "javascript:") {
							javascript = true;
							}
						}
	
					if (javascript) {	// C'est du javascript, on execute le code
						eval(req.responseText.substr(11));
						}
					else {
						if (balise) {
							if (document.getElementById)  {
    							document.getElementById(balise).innerHTML = req.responseText;
    							}
 							else if (document.all) {
  						 		document.all[balise].innerHTML = req.responseText;
  						 		}
  							}
  						}
					}
				else {
					req = false;
				}
			}
		}

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

// ===================================
function send24DAsync (action, param, balise) {
	if (param != "") {
		if (param.charAt(0) != "?") {
			param = "?" + param;
			}
		}
	var resultat = Call4DAsync(action + '/' + param,balise);
}

// ===================================
function send24D (action, param, balise) {
	
	if (param != "") {
		if (param.charAt(0) != "?") {
			param = "?" + param;
			}
		}
	var resultat = Call4D(action + '/' + 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;
    		}
    	}
    	
	
}

// ===================================
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;
}