// Procédures globales du projet
// EXE_ExtraitChaine
// ------------------------------------------------------------------------------------------------
// Entrées : 
//		szChaine		: chaine de base
//		nPos			: position de la sous-chaine recherchée
//		szSepar		: séparateur utilisé
function EXE_ExtraitChaine( szChaine , nPos , szSepar )
{
	var nDebut = -(szSepar.length);
	var nFin = 0;

	// On recherche la position du nPos-1 ème séparateur
	for (var i=0 ; i<nPos-1 ; i++)
	{
		nDebut = szChaine.indexOf(szSepar,nDebut+szSepar.length);
		if (nDebut==-1)
		{
			if (nPos==1)
				return szChaine;
			else
				return "\b";
		}
	}
	// On recherche le séparateur suivant
	nFin = szChaine.indexOf(szSepar,nDebut+szSepar.length);
	// Si nFin a dépassé, on se place à la fin de la chaine
	if (nFin==-1) nFin = szChaine.length;
	// Finalement, on extrait et on retourne la sous chaine
	return szChaine.substring(nDebut+szSepar.length,nFin);
}
function EXE_Val(val)
{
	var res = parseFloat(val);
	if(isNaN(res)) return 0;
	return(res);
}// Fonction générale de formatage
function EXE_NVC ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal ,nBase )
{
	// On commence par prendre la valeur entière positive du nombre
	var szRes = Math.abs(Math.round(fVal)).toString(nBase);
	var nLgr = szRes.length;
	// Si on a demandé à forcer le signe ou que le nombre est négatif, on compte le symbole
	if (bSigne || (fVal<0)) nLgr++;
	// On va ajouter les séparateurs de millier
	if (bMillier)
	{
		var szRes2 = "";
		for (var i=0 ; i<Math.ceil(szRes.length/3) ; i++)
		{
			szRes2 = szRes.substring(szRes.length-(3*(i+1)),szRes.length-(3*i))+" "+szRes2;
			nLgr++;
		}
		szRes = szRes2.substring(0,szRes2.length-1);
		nLgr--;
	}
	// On va maintenant ajouter les zéros ou les blancs si on n'a pas atteint la taille requise
	if (nLgr<eval(nTaille))
	{
		// Si on a demandé le cadrage à gauche, on ajoute des espaces à droite
		if (bCadrageGauche)
		{
			while(nLgr<eval(nTaille))
			{
				szRes+=" ";
				nLgr++;
			}
		}
		else
		{
			// Si on a demandé le cadrage à droite, on ajoute soit des zéros...
			if (bZero)
			{
				while(nLgr<eval(nTaille))
				{
					// On continue de respecter la règle des séparateurs de milliers
					if (bMillier && (((nLgr)%4)==0))
						szRes=" "+szRes;
					else
						szRes="0"+szRes;
					nLgr++;
				}
			}
			// ...soit des espaces à gauche
			else
			{
				while(nLgr<eval(nTaille))
				{
					szRes=" "+szRes;
					nLgr++;
				}
			}
		}
	}
	// Pour finir, on colle le signe
	if (bSigne || (fVal<0))
	{
		var n=0;
		// On cherche le premier symbole qui n'est pas un espace
		while ((szRes.charAt(n)==" ") && (n<nLgr)) n++;
		// On insère le signe
		var szSgn = "+";
		if (fVal<0) szSgn="-";
		szRes = szRes.substring(0,n)+szSgn+szRes.substring(n,szRes.length);
	}
	
	return szRes;
}

function EXE_NVC_d ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal )
{
	return EXE_NVC(bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal,10);
}

function EXE_NVC_x ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal )
{
	return EXE_NVC(bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal,16);
}

function EXE_NVC_o ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal )
{
	return EXE_NVC(bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal,8);
}

function EXE_NVC_e ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal )
{
	// On calcule l'exposant
	var nExp = Math.round(Math.log(Math.abs(fVal))/Math.LN10);
	var fPuiss = Math.pow(10,nExp);
	
	// On formate le numérique compris dans [0..1[
	var szRes = EXE_NVC_f( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , (fVal/fPuiss) );

	// Au retour, on enlève les espaces à droite
	while ( szRes.charAt(szRes.length-1)==" " )
		szRes = szRes.substring(0,szRes.length-1);
	
	// On ajoute l'exposant
	szRes += "e"
	if (nExp>=0) 
		szRes += "+";
	else
		szRes += "-";
	if (nExp<10) szRes+="0";
	szRes += Math.abs(nExp);

	// Si on est encore trop court
	while (szRes.length<nTaille)
		if (bCadrageGauche)
			szRes += " ";
		else
			szRes = " "+szRes;
	return szRes;
}

function EXE_NVC_f ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal )
{
	// On commence par prendre la partie entière et la partie décimale du nombre
	var fEnt = Math.floor(fVal);
	if (fVal<0) fEnt+=1;
	var szDec = ""+(Math.round((Math.abs(fVal)-Math.floor(Math.abs(fVal)))*Math.pow(10,nPrec))/Math.pow(10,nPrec));
	szDec = szDec.substring(2,szDec.length);	// On retire "0."

	// On applique le numérique vers chaine des entiers sur la partie entière
	var szRes = EXE_NVC_d( bCadrageGauche , bSigne , bZero , nTaille-(nPrec+1) , nPrec , bMillier , fEnt );
	// Si le nombre doit être cadré à gauche, on retire les espaces à droite
	if (bCadrageGauche)
	{
		while ( szRes.charAt(szRes.length-1)==" " )
			szRes = szRes.substring(0,szRes.length-1);
	}
	// Dans tous les cas, on retire les espaces à gauche (le cadrage sera refait à la fin de la fonction)
	while ( szRes.charAt(0)==" " )
		szRes = szRes.substr(1);
	// On colle la partie décimale
	if (nPrec>0)
	{
		szRes += "."
		// On complète la partie décimale par des zéros jusqu'à la précision voulue
		while ( szDec.length<nPrec ) 
			szDec += "0";
		szRes += szDec.substring(0,nPrec);
	}
	// Si on est encore trop court
	while (szRes.length<nTaille)
		if (bCadrageGauche)
			szRes += " ";
		else
			szRes = " "+szRes;
	return szRes;
}

// Versions en majuscule des fonctions de formatage
// Elles rebondissent sur leur équivalent minuscule sauf X qui fait un toUpperCase avant de renvoyer la chaine
function EXE_NVC_D ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal ) {	return EXE_NVC_d ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal ); }
function EXE_NVC_E ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal ) {	return EXE_NVC_e ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal ); }
function EXE_NVC_O ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal ) { return EXE_NVC_o ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal ); }
function EXE_NVC_X ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal ) {	var szRes = EXE_NVC_x ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal ); return szRes.toUpperCase(); }
function EXE_NVC_F ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal ) { return EXE_NVC_f ( bCadrageGauche , bSigne , bZero , nTaille , nPrec , bMillier , fVal ); }

// EXE_NumeriqueVersChaine
// ------------------------------------------------------------------------------------------------
// Entrées :
//		fVal			: valeur numérique à formater
//		szFormat		: chaine décrivant le format à employer
// Sortie :
// 	Une chaine de caractères contenant le nombre formaté
// Utilise : les fonctions EXE_NVC_{d,e,o,x,f,D,E,O,X,F}
function EXE_NumeriqueVersChaine( fVal , szFormat )
{
	// Si la valeur passée n'est pas un nombre, on la retourne telle quelle
	if (isNaN(fVal)) return fVal;
	// Les paramètres de formatage
	var bCadrageGauche = false;
	var bSigne = false;
	var bZero = false;
	var nTaille = 0;
	var nPrec = 0;
	var szType = "f";
	var bMillier = false;
	// Première partie : on analyse la chaine de format ---------------------------------------------------------
	// On recherche le flag de cadrage
	if (szFormat.charAt(0)=="-") { bCadrageGauche = true;	szFormat = szFormat.substring(1,szFormat.length); }
	// On recherche le flag de signe
	if (szFormat.charAt(0)=="+") { bSigne = true; szFormat = szFormat.substring(1,szFormat.length); }
	// On recherche le flag de zéro
	if (szFormat.charAt(0)=="0") { bZero = true;	szFormat = szFormat.substring(1,szFormat.length); }
	// On recherche le flag de milliers
	if ((szFormat.charAt(szFormat.length-1)=="s")  || (szFormat.charAt(szFormat.length-1)=="S"))
		{ bMillier = true;	szFormat = szFormat.substring(0,szFormat.length-1); }
	// On extrait le type
	szType = szFormat.charAt(szFormat.length-1);
	szFormat = szFormat.substring(0,szFormat.length-1);
	// Si le type n'existe pas, on sort de la fonction
	if ( (szType!="d") && (szType!="e") && (szType!="f") && (szType!="o") && (szType!="x") && (szType!="D") && (szType!="E") && (szType!="F") && (szType!="O") && (szType!="X")) return "";
	// On extrait la taille
	nTaille = parseInt(szFormat);
	// On extrait la précision
	if (szFormat.indexOf(".")!=-1)
		nPrec = parseInt(szFormat.substring(szFormat.indexOf(".")+1,szFormat.length));
	else
	{
		// Si on n'a pas donné de précision, on prend tous les chiffrs après la virgule
		var szEnt = ""+fVal;
		var szDec = ""+fVal;
		var nPosPt = szDec.indexOf(".");
		if (nPosPt!=-1)
		{
			szDec = szDec.substring(nPosPt+1);
			szEnt = szEnt.substring(nPosPt-1);
			nPrec = nTaille - (szEnt.length+1)	;
		}
	}
	// Deuxième partie : on formatte le nombre selon les spécifs -------------------------------------------------
	// On va laisser ce soin à des fonctions annexes
	return eval("EXE_NVC_"+szType+"("+bCadrageGauche+","+bSigne+","+bZero+","+nTaille+","+nPrec+","+bMillier+","+fVal+")");
}// EXE_Remplace
// ------------------------------------------------------------------------------------------------
// Entrées : 
//		szChaine		: chaine de base
//		szRecherche : chaine recherchée
//		szRemplace	: chaine de remplacement
function EXE_Remplace( szChaine , szRecherche , szRemplace )
{
	// Position dans szChaine
	var nPos = 0;
	// Position dans szChaine du prochaine trouvé
	var nTrouve = szChaine.indexOf(szRecherche);
	var szChaine2 = new String();
	// Tant qu'on trouve des occurrences
	while(nTrouve!=-1)
	{
		szChaine2 += szChaine.substring(nPos,nTrouve);
		szChaine2 += szRemplace;
		nPos = nTrouve + szRecherche.length;
		nTrouve = szChaine.indexOf(szRecherche,nPos);		
	}
	// On colle le reliquat de la chaine
	szChaine2 += szChaine.substring(nPos,szChaine.length);

	return szChaine2;
}
// EXE_SansEspace
// ------------------------------------------------------------------------------------------------
// Entrées : 
//		szChaine		: chaine à traiter
//		nPartie		: flag indiquant de quel côté on doit retirer les espaces
//						  1 = à gauche , 2 = à droite , 3 = les deux
// Sortie :
//		une chaine sans espace avant et/ou après
function EXE_SansEspace( szChaine , nPartie )
{
	var nPremier = 0;
	var nDernier = szChaine.length-1;
	// Si on a demandé sans espace à gauche
	if (nPartie & 1) while (szChaine.charAt(nPremier)==" ") nPremier++;
	// Si on a demandé sans espace à droite
	if (nPartie & 2) while (szChaine.charAt(nDernier)==" ") nDernier--;
	// On découpe la sous chaine
	return szChaine.substring(nPremier,nDernier+1);
}
// Procédure bVerifieFormatEmail
function bVerifieFormatEmail(_WWLOC_SEMAIL)
{
	var _WWLOC_NLONGARO=0;
	var _WWLOC_NLONGLASTPOINT=0;
	var _WWLOC_SUTILISATEUR="";
	var _WWLOC_SSERVEUR="";
	var _WWLOC_SPAYS="";
	_WWLOC_NLONGARO = (_WWLOC_SEMAIL.indexOf("@")+1);
	if((!_WWLOC_NLONGARO))
	{
		return(0);
	}
	if(((_WWLOC_SEMAIL.substring(((_WWLOC_NLONGARO+1))-1,_WWLOC_SEMAIL.length).indexOf("@")+1)!=0))
	{
		return(0);
	}
	var _WWLOC_I=1;
	while((EXE_ExtraitChaine(_WWLOC_SEMAIL.substring(((_WWLOC_NLONGARO+1))-1,_WWLOC_SEMAIL.length),_WWLOC_I,".")!="\b"))
	{
		_WWLOC_SPAYS = EXE_ExtraitChaine(_WWLOC_SEMAIL.substring(((_WWLOC_NLONGARO+1))-1,_WWLOC_SEMAIL.length),_WWLOC_I,".");
		_WWLOC_I = _WWLOC_I+1;
	}
	if((_WWLOC_I==1))
	{
		return(0);
	}
	_WWLOC_NLONGLASTPOINT = (_WWLOC_SEMAIL.length-_WWLOC_SPAYS.length);
	_WWLOC_SUTILISATEUR = _WWLOC_SEMAIL.substring((1)-1,(_WWLOC_NLONGARO-1));
	_WWLOC_SSERVEUR = _WWLOC_SEMAIL.substring(((_WWLOC_NLONGARO+1))-1,(_WWLOC_NLONGLASTPOINT-1));
	if(((_WWLOC_SUTILISATEUR.length==0)||(_WWLOC_SSERVEUR.length==0)))
	{
		return(0);
	}
	if(((_WWLOC_SPAYS.length<2)||(_WWLOC_SPAYS.length>3)))
	{
		return(0);
	}
	return(1);
}
// Procédure CheckDate3
function CheckDate3(_WWLOC_CD_DD,_WWLOC_CD_MM,_WWLOC_CD_YY)
{
	switch(_WWLOC_CD_MM)
	{
		case 4 :
		case 6 :
		case 9 :
		case 11 :
			if((_WWLOC_CD_DD==31))
			{
				return(1);
			}
			break;
		case 2 :
			if(((_WWLOC_CD_DD==31)||(_WWLOC_CD_DD==30)))
			{
				return(2);
			}
			if((_WWLOC_CD_DD==29))
			{
				if((_WWLOC_CD_YY%4))
				{
					return(3);
				}
				else
				{
					if((((_WWLOC_CD_YY%100)==0)&&(_WWLOC_CD_YY%400)))
					{
						return(4);
					}
				}
			}
			break}
	return(0);
}
// Procédure DateToM3n
function DateToM3n(_WWLOC_DATE)
{
	var _WWLOC_RES="";
	var _WWLOC_YY="";
	var _WWLOC_DD="";
	var _WWLOC_MM="";
	_WWLOC_YY = _WWLOC_DATE.substring(0,4);
	_WWLOC_MM = _WWLOC_DATE.substring(5-1,5+2-1);
	_WWLOC_DD = _WWLOC_DATE.substring(_WWLOC_DATE.length-2,_WWLOC_DATE.length);
	switch(_WWLOC_MM)
	{
		case "01" :
			_WWLOC_MM = "Jan";
			break;
		case "02" :
			_WWLOC_MM = "Feb";
			break;
		case "03" :
			_WWLOC_MM = "Mar";
			break;
		case "04" :
			_WWLOC_MM = "Apr";
			break;
		case "05" :
			_WWLOC_MM = "May";
			break;
		case "06" :
			_WWLOC_MM = "Jun";
			break;
		case "07" :
			_WWLOC_MM = "Jul";
			break;
		case "08" :
			_WWLOC_MM = "Aug";
			break;
		case "09" :
			_WWLOC_MM = "Sep";
			break;
		case "10" :
			_WWLOC_MM = "Oct";
			break;
		case "11" :
			_WWLOC_MM = "Nov";
			break;
		case "12" :
			_WWLOC_MM = "Dec";
			break}
	_WWLOC_RES = ((((_WWLOC_DD+" ")+_WWLOC_MM)+" ")+_WWLOC_YY);
	return(_WWLOC_RES);
}
// Procédure n_DateCheck
function n_DateCheck(_WWLOC_DC_FIELD,_WWLOC_DC_MSG)
{
	var _WWLOC_CDAT="";
	var _WWLOC_NDAT="";
	var _WWLOC_DDS=0;
	var _WWLOC_MMS=0;
	var _WWLOC_YYS=0;
	var _WWLOC_POS1="";
	var _WWLOC_POS2="";
	_WWLOC_CDAT = n_NoSpace(_WWLOC_DC_FIELD);
	if((_WWLOC_CDAT!=""))
	{
		_WWLOC_POS1 = (_WWLOC_CDAT.indexOf("/")+1);
		_WWLOC_POS2 = (_WWLOC_CDAT.indexOf("/",(_WWLOC_POS1+1)-1)+1);
		if((((_WWLOC_POS1!=2)||((_WWLOC_POS2!=4)&&(_WWLOC_POS2!=5)))&&((_WWLOC_POS1!=3)||((_WWLOC_POS2!=5)&&(_WWLOC_POS2!=6)))))
		{
			if(_WWLOC_DC_MSG)
			{
				alert("Sorry, The date is incorrect it should be DD/MM/YYYY");
			}
			return(false);
		}
		if((_WWLOC_CDAT.indexOf(",")+1))
		{
			if(_WWLOC_DC_MSG)
			{
				alert("Sorry, The date is incorrect it should be DD/MM/YYYY");
			}
			return(false);
		}
		if((_WWLOC_CDAT.indexOf(".")+1))
		{
			if(_WWLOC_DC_MSG)
			{
				alert("Sorry, The date is incorrect it should be DD/MM/YYYY");
			}
			return(false);
		}
		if((_WWLOC_CDAT.indexOf("+")+1))
		{
			if(_WWLOC_DC_MSG)
			{
				alert("Sorry, The date is incorrect it should be DD/MM/YYYY");
			}
			return(false);
		}
		if((_WWLOC_CDAT.indexOf("*")+1))
		{
			if(_WWLOC_DC_MSG)
			{
				alert("Sorry, The date is incorrect it should be DD/MM/YYYY");
			}
			return(false);
		}
		if((_WWLOC_CDAT.indexOf("-")+1))
		{
			if(_WWLOC_DC_MSG)
			{
				alert("Sorry, The date is incorrect it should be DD/MM/YYYY");
			}
			return(false);
		}
		_WWLOC_DDS = EXE_Val(_WWLOC_CDAT.substring(0,(_WWLOC_POS1-1)));
		_WWLOC_MMS = EXE_Val(_WWLOC_CDAT.substring((_WWLOC_POS1+1)-1,(_WWLOC_POS1+1)+(_WWLOC_POS2-(_WWLOC_POS1+1))-1));
		_WWLOC_YYS = EXE_Val(_WWLOC_CDAT.substring((_WWLOC_POS2+1)-1,_WWLOC_CDAT.length));
		if((_WWLOC_DDS>31))
		{
			if(_WWLOC_DC_MSG)
			{
				alert("Sorry, The date is incorrect it should be DD/MM/YYYY");
			}
			return(false);
		}
		if((_WWLOC_MMS>12))
		{
			if(_WWLOC_DC_MSG)
			{
				alert("Sorry, The date is incorrect it should be DD/MM/YYYY");
			}
			return(false);
		}
		if((_WWLOC_YYS<100))
		{
			_WWLOC_YYS = _WWLOC_YYS+2000;
		}
		switch(_WWLOC_MMS)
		{
			case 4 :
			case 6 :
			case 9 :
			case 11 :
				if((_WWLOC_DDS==31))
				{
					if(_WWLOC_DC_MSG)
					{
						alert("The Date is not valid");
					}
					return(false);
				}
				break;
			case 2 :
				if(((_WWLOC_DDS==31)||(_WWLOC_DDS==30)))
				{
					if(_WWLOC_DC_MSG)
					{
						alert("The Date is not valid");
					}
					return(false);
				}
				if((_WWLOC_DDS==29))
				{
					if((_WWLOC_YYS%4))
					{
						if(_WWLOC_DC_MSG)
						{
							alert("The Date is not valid");
						}
						return(false);
					}
					else
					{
						if((((_WWLOC_YYS%100)==0)&&(_WWLOC_YYS%400)))
						{
							if(_WWLOC_DC_MSG)
							{
								alert("The Date is not valid");
							}
							return(false);
						}
					}
				}
				break}
		_WWLOC_NDAT = ((((EXE_NumeriqueVersChaine(_WWLOC_DDS,"02d")+"/")+EXE_NumeriqueVersChaine(_WWLOC_MMS,"02d"))+"/")+EXE_NumeriqueVersChaine(_WWLOC_YYS,"04d"));
	}
	else
	{
		_WWLOC_NDAT = "        ";
	}
	return(_WWLOC_NDAT);
}
var wmapn;
function n_HTML_VIEW(cfield)
{
if ((wmapn) && (document.all)) wmapn.close();
wmapn=window.open("","View","toolbar=0,location=0,directories=0,status=0,menubar=0,resizable=0,scrollbars=1,titlebar=0,width=620,height=600");
wmapn.document.open();
wmapn.document.writeln('<html><head><title>View</title>');
wmapn.document.writeln('<a href="javascript:window.close();"><font face="Verdana , Arial , Helvetica , sans-serif" size="1" color="#00007F">Close it</font></a><BR><BR>');
wmapn.document.writeln('</head>');
wmapn.document.writeln('<BODY>');
wmapn.document.writeln(cfield);
wmapn.document.writeln('<BR><a href="javascript:window.close();"><font face="Verdana , Arial , Helvetica , sans-serif" size="1" color="#00007F">Close it</font></a>');
wmapn.document.writeln('</body>');
wmapn.document.writeln('</html>');
wmapn.document.close();
}
// Procédure n_NoSpace
function n_NoSpace(_WWLOC_STR)
{
	var _WWLOC_LSTR=0;
	var _WWLOC_LI=0;
	var _WWLOC_RI=0;
	var _WWLOC_DOIT=false;
	_WWLOC_LSTR = _WWLOC_STR.length;
	_WWLOC_LI = 1;
	_WWLOC_DOIT = true;
	while((_WWLOC_DOIT&&(_WWLOC_LI<=_WWLOC_LSTR)))
	{
		if((_WWLOC_STR.substring((_WWLOC_LI)-1,_WWLOC_LI)==" "))
		{
			_WWLOC_LI = _WWLOC_LI+1;
		}
		else
		{
			_WWLOC_DOIT = false;
		}
	}
	if((_WWLOC_LI>_WWLOC_LSTR))
	{
		return("");
	}
	_WWLOC_RI = _WWLOC_LSTR;
	_WWLOC_DOIT = true;
	while((_WWLOC_DOIT&&(_WWLOC_RI>0)))
	{
		if((_WWLOC_STR.substring((_WWLOC_RI)-1,_WWLOC_RI)==" "))
		{
			_WWLOC_RI = _WWLOC_RI-1;
		}
		else
		{
			_WWLOC_DOIT = false;
		}
	}
	if((_WWLOC_RI<_WWLOC_LI))
	{
		return("");
	}
	return(_WWLOC_STR.substring((_WWLOC_LI)-1,_WWLOC_RI));
}
// Procédure OnClick_BHVIEW
function OnClick_BHVIEW(_WWLOC_CH_FIELD)
{
	if(((!(_WWLOC_CH_FIELD.indexOf("<BR>")+1))&&(!(_WWLOC_CH_FIELD.indexOf("<P>")+1))))
	{
		_WWLOC_CH_FIELD = EXE_Remplace(_WWLOC_CH_FIELD,"\r\n",("<BR>"+"\r\n"));
		_WWLOC_CH_FIELD = (("<FONT FACE=\"Verdana,Arial,Times New I2\"><FONT SIZE=\"1\">"+_WWLOC_CH_FIELD)+"</FONT></FONT>");
	}
	_WWLOC_CH_FIELD = EXE_Remplace(_WWLOC_CH_FIELD,("<IMG SRC=\""+"/WEBV2_WEB/".toUpperCase()),"<IMG SRC=\"");
	_WWLOC_CH_FIELD = EXE_Remplace(_WWLOC_CH_FIELD,("<IMG SRC=\""+"/WEBV2_WEB/".toLowerCase()),"<IMG SRC=\"");
	_WWLOC_CH_FIELD = EXE_Remplace(_WWLOC_CH_FIELD,"<IMG SRC=\"",("<IMG SRC=\""+"/WEBV2_WEB/"));
	_WWLOC_CH_FIELD = EXE_Remplace(_WWLOC_CH_FIELD,"HREF=\"#","H#REF=\"#");
	_WWLOC_CH_FIELD = EXE_Remplace(_WWLOC_CH_FIELD,"href=\"#","H#REF=\"#");
	_WWLOC_CH_FIELD = EXE_Remplace(_WWLOC_CH_FIELD,"HREF=","FAKE=");
	_WWLOC_CH_FIELD = EXE_Remplace(_WWLOC_CH_FIELD,"href=","FAKE=");
	_WWLOC_CH_FIELD = EXE_Remplace(_WWLOC_CH_FIELD,"H#REF","HREF");
	_WWLOC_CH_FIELD = EXE_Remplace(_WWLOC_CH_FIELD,"<A","<U><A");
	_WWLOC_CH_FIELD = EXE_Remplace(_WWLOC_CH_FIELD,"</A>","</A></U>");
	n_HTML_VIEW(_WWLOC_CH_FIELD);
}
// Procédure OnClick_BIDTOURGO
function OnClick_BIDTOURGO(_WWLOC_C_IDN)
{
	if((EXE_SansEspace(_WWLOC_C_IDN,3)==""))
	{
		alert((((((("Please enter either one of the following:"+"\r\n")+"the ID number that has been given to you")+"\r\n")+"the name of the tour")+"\r\n")+"the code of the tour"));
		return(false);
	}
	return(true);
}