// Procédures globales du projet
// MakeDateFromWD
// ------------------------------------------------------------------------------------------------
// Cette fonction prend une date au format AAAAMMJJHHMMSS avec MM dans 1..12 et retourne un objet date
// La chaine peut être tronquée à la date auquel cas l'heure sera nulle
// Paramètres :
//	c : chaine contenant la date 
// Variables locales :
//	a : année
//	d : date résultat
function _WMD(c)
{
	// on récupère l'année
	var a=c.substring(0,4);
	// on construit la date
	var d=new Date(a,eval(c.substring(4,6)+'-1'),c.substring(6,8),c.substring(8,10),c.substring(10,12),c.substring(12,14));
	// si l'année est inférieure à 100, on construit l'année complète
	if(eval(a)<100)d.setFullYear(a);
	// on renvoie la date résultat
	return d;
}
// nBissextile
// ------------------------------------------------------------------------------------------------
// Entrées :
//	a : année à tester
function _WBI(a)
{
	if(a%4)return 0;
	if(a>1582)
	{
		if(a%100)return 1;
		if(a%400)return 0;
	}
	return 1;
}
// STD_EntierVersDate
// ------------------------------------------------------------------------------------------------
// Entrées :
//	e :  entier correspondant au nombre de jour depuis 01/01/1800 plus un
//	f : Chaine de format parmi 'AAAAMMJJ', 'A', 'M' ou 'J'
// Variables locales :
//	t : tableau des nombres de jours par mois
//	a : année
//	m : mois
//	j : jour
//	b : année sous forme de chaine
//	n : mois sour forme de chaine
//	k : jour sous forme de chaine
//	d : décalage pour année bissextile
//	i : compteur de boucle
//	x : 01/01/1800
//	y : 01/01/<année date>
//	z : différence aux 01/01
function _EVD(e,f)
{
	var t=new Array(12);
	t[0]=31;t[1]=28;t[2]=31;t[3]=30;t[4]=31;t[5]=30;t[6]=31;t[7]=31;t[8]=30;t[9]=31;t[10]=30;t[11]=31;
	var a=Math.floor((eval(e) + 657071)/365);
	var x=_WMD('18000101');
	var y=_WMD(a+'0101');
	var z=Math.floor((y-x)/(1000*3600*24))+1;
	while(z>eval(e))
	{
		a--;
		y=_WMD(a+'0101');
		z=Math.floor((y-x)/(1000*3600*24))+1;
	}
	var j=eval(e)-z;
	var d=_WBI(a);
	var m=1;
	var i=0;
	t[1]=28+d;
	while(j>=t[i])
	{
		j-=t[i];
		m++;
		i++;
	}
	j++
	var b=""+a;
	var n=""+m;
	if(n.length==1)n="0"+n;
	var k=""+j;
	if(k.length==1)k="0"+k;
	if(f=='A')return b;
	if(f=='M')return n;
	if(f=='J')return k;
	return b+n+k;
}
// EXE_CookieEcrit
// ------------------------------------------------------------------------------------------------
// Paramètres :
//	c : nom du cookie
//	v : valeur du cookie
//	d : durée de validité du cookie
// Variables locales :
//	n : date du jour
//	o : 01/01/1800
//	e : date d'expiration du cookie
function _COE(c,v,d)
{
	var n=new Date();
	var o=new Date(1800,00,01);
	var e=_WMD(_EVD(Math.round(((n-o)/(1000*3600*24))+1)+d));
	document.cookie=c+"="+escape(v)+";expires="+e.toGMTString();
}
// EXE_Remplace
// ------------------------------------------------------------------------------------------------
// Entrées : 
//	c : chaine de base
//	o : chaine d'origine recherchée
//	r : chaine de remplacement
// Variables locales :
//	s : chaine résultat
//	p,t : variables de parcours
function _RMP(c,o,r)
{
	// Position dans c
	var p=0;
	// Position dans c du prochaine trouvé
	var t=c.indexOf(o);
	var s=new String();
	// Tant qu'on trouve des occurrences
	while(t!=-1)
	{
		s+=c.substring(p,t);
		s+=r;
		p=t+o.length;
		t=c.indexOf(o,p);		
	}
	// On colle le reliquat de la chaine
	s+=c.substring(p,c.length);
	return s;
}
// s : nom du site
// f : nom du site
// p : paramètres de connexion au site
// t : target
// n : navigateur
// o : options du navigateur
// a : action de la page en cours
// r : referrer
function _SDA(s,f,p,t,n,o)
{
	if(s=="")s=_SI_;
	if(p!="")p="&"+p;if(f!="")p="&_WW1STPAGE_="+f+p;p="?_WWREFERER_="+document.referrer+"&_WWNATION_="+_NA_+p;
	var a=_PAGE_.action;if(a.indexOf("://")==-1)a=document.URL;
	_JCL(a.substring(0,a.indexOf("/",a.indexOf("://")+3))+"/WW70AWP/WW70AWP.EXE/CONNECT/"+s+p,t,n,o);
}
function _NAO(p)
{
	if(p==0||p>127)return "toolbar=0,location=0,status=0,scrollbars=0,directories=0,menubar=0,resizable=0"
	var o="";
	if(p&1)o+="toolbar=1,"
	if(p&2)o+="location=1,"
	if(p&4)o+="status=1,"
	if(p&8)o+="menubar=1,"
	if(p&16)o+="scrollbars=1,"
	if(p&32)o+="resizable=1,"
	if(p&64)o+="directories=1,"
	if(o.length>0)o[o.length-1]=""
	return o;
}
function ChangerDeLangue(VPAGE,VLANGUE)
{
	var VN=0;
var VS="";
switch(VPAGE)
{
	case "ACKCOMMANDE":
		return;
		break;
	case "ACKCONTACT":
		return;
		break;
	case "CATALOGUE":
		return;
		break;
	case "CHARIOT":
		return;
		break;
	case "COM_BASANTI":
		return;
		break;
	case "COM_BODY":
		return;
		break;
	case "COM_CEINTURES":
		return;
		break;
	case "COM_DIVERS":
		return;
		break;
	case "COM_PANTY":
		return;
		break;
	case "COM_SPORLANE":
		return;
		break;
	case "COM_VISAGE":
		return;
		break;
	case "COMMANDER":
		return;
		break;
	case "CONTACT":
		return;
		break;
	case "DISTRIB":
		return;
		break;
	case "DISTRIBEUROMI":
		return;
		break;
	case "EDITARTICLE":
		return;
		break;
	case "EDITCATEGORIES":
		return;
		break;
	case "EDITINSCRIP":
		return;
		break;
	case "EDITNEWS":
		return;
		break;
	case "INSCRIPTION":
		return;
		break;
	case "LOGIN":
		return;
		break;
	case "NOUVEAU":
		return;
		break;
	case "COMPDF_MAIN":
		break}
VN=0;
switch(VLANGUE)
{
	case 1:
		_COE("langue","1",1000);
		VN=5;
		VS="../FR/";
		break;
	case 2:
		_COE("langue","2",1000);
		VN=3;
		VS="../UK/";
		break;
	case 3:
		_COE("langue","3",1000);
		VN=12;
		VS="../NL/";
		break;
	case 4:
		_COE("langue","4",1000);
		VN=7;
		VS="../ES/";
		break}
VS=((VS+VPAGE.toLowerCase())+".htm");
AfficherPageHtm(VS);
}
function InfoRubriqueNecessaire()
{
	switch(_NA_)
{
	case 5:
		alert(unescape("Cette rubrique est n%E9cessaire !"));
		break;
	case 3:
		alert("This field is required !");
		break;
	case 7:
		alert(unescape("%A1Este campo es obligatorio!"));
		break;
	case 12:
		alert("Deze rubriek is verplicht !");
		break}
}
function InfoLoginNecessaire()
{
	switch(_NA_)
{
	case 5:
		alert(unescape("Cette rubrique est n%E9cessaire et doit comporter entre 6 et 8 lettres ou chiffres."));
		break;
	case 3:
		alert("This field is required and must consist of 6 to 8 letters or numbers.");
		break;
	case 12:
		alert("Deze rubriek is verplicht en moet tussen 6 en 8 letters of cijfers bevatten.");
		break;
	case 7:
		alert(unescape("Este campo es necesario y debe contener entre 6 y 8 letras o n%FAmeros"));
		break}
}
function InfoPasseConfirmer()
{
	switch(_NA_)
{
	case 5:
		alert(unescape("La confirmation du mot de passe n'est pas la m%EAme que le mot de passe introduit, veuillez par s%E9curit%E9 introduire le m%EAme mot de passe."));
		break;
	case 3:
		alert("The confirmation password is not the same as the first password.  Please fill in the same password for security.");
		break;
	case 12:
		alert("De bevestiging van het wachtwoord is niet hetzelfde als het ingevoerde wachtwoord, gelieve voor de veiligheid hetzelfde wachtwoord in te voeren.");
		break;
	case 7:
		alert(unescape("La confirmaci%F3n de la contrase%F1a no coincide con la contrase%F1a introducida. Rogamos que, por razones de seguridad, introduzca la misma contrase%F1a."));
		break}
}
function Commander(VARTICLEREF1,VARTICLEREF2,VARTICLEREF3)
{
	var VS="";
VS=("REF1="+VARTICLEREF1);
if((VARTICLEREF2!=""))
{
	VS=((VS+"&REF2=")+VARTICLEREF2);
}
if((VARTICLEREF3!=""))
{
	VS=((VS+"&REF3=")+VARTICLEREF3);
}
VS=_RMP(VS,"+","PLUSPLUS");
VS=_RMP(VS,"-","MINUSMINUS");
_SDA("EUROMI","chariot",VS,"_self","");
}
function CommandeParametree(VWHAT)
{
	switch(VWHAT)
{
	case 1:
		_SDA("EUROMI","com_sporlane","","_blank","",_NAO((32+16))+",width="+580+",height="+530);
		break;
	case 2:
		_SDA("EUROMI","com_basanti","","_blank","",_NAO((32+16))+",width="+580+",height="+530);
		break;
	case 3:
		_SDA("EUROMI","com_panty","","_blank","",_NAO((32+16))+",width="+610+",height="+640);
		break;
	case 4:
		_SDA("EUROMI","com_ceintures","","_blank","",_NAO((32+16))+",width="+610+",height="+640);
		break;
	case 5:
		_SDA("EUROMI","com_body","","_blank","",_NAO((32+16))+",width="+610+",height="+670);
		break;
	case 6:
		_SDA("EUROMI","com_visage","","_blank","",_NAO((32+16))+",width="+610+",height="+400);
		break;
	case 7:
		_SDA("EUROMI","com_divers","","_blank","",_NAO((32+16))+",width="+610+",height="+640);
		break;
	case 8:
		_SDA("EUROMI","compdf_main","","_blank","",_NAO((32+16))+",width="+770+",height="+640);
		break;
	case 9:
		_SDA("EUROMI","compdf_pied","","_blank","",_NAO((32+16))+",width="+770+",height="+640);
		break;
	case 10:
		_SDA("EUROMI","compdf_cagoule","","_blank","",_NAO((32+16))+",width="+770+",height="+640);
		break;
	case 11:
		_SDA("EUROMI","compdf_pantfem","","_blank","",_NAO((32+16))+",width="+770+",height="+640);
		break;
	case 12:
		_SDA("EUROMI","compdf_panthom","","_blank","",_NAO((32+16))+",width="+770+",height="+640);
		break;
	case 13:
		_SDA("EUROMI","compdf_vestefem","","_blank","",_NAO((32+16))+",width="+770+",height="+640);
		break;
	case 14:
		_SDA("EUROMI","compdf_vestehom","","_blank","",_NAO((32+16))+",width="+770+",height="+640);
		break}
}
function MessageInfo(VMSGFR,VMSGEN,VMSGNL,VMSGES)
{
	switch(_NA_)
{
	case 5:
		alert(VMSGFR);
		break;
	case 3:
		alert(VMSGEN);
		break;
	case 12:
		alert(VMSGNL);
		break;
	case 7:
		alert(VMSGES);
		break}
}
function AfficherPageHtm(page)
{	document.location = page
}