/*
	Newsletter pour CALISO9000.com
	© D.YVER 2004 - didier@yver.net
		Procédures clientes communes
		v 1.0.1 - 07/09/2004
*/

// Centrage du popup sur l'écran
function centrePop(url,largeur,hauteur,param) {
	var gauche = (screen.width - largeur)/2
	var haut =  (screen.height - hauteur)/2
	return window.open(url,"","width="+largeur+",height="+hauteur+",left="+gauche+",top="+haut+param)
}

// Affiche le popup d'abonnement
function popup() {
	var a = centrePop('http://www.caliso9000.com/dy/subscribe.asp',300,160,"");
	a.focus();
}

  function cre_cook(nom,contenu,jours) {
      var expireDate = new Date();
      expireDate.setTime(expireDate.getTime() + jours*24*3600*1000);
      document.cookie = nom + "=" + escape(contenu)
         + ";expires=" + expireDate.toGMTString();
      }
     
   function lit_cook(nom) {
      var deb,fin
      deb = document.cookie.indexOf(nom + "=")
      if (deb >= 0) {
         deb += nom.length + 1
         fin = document.cookie.indexOf(";",deb)
         if (fin < 0) fin = document.cookie.length
         return unescape(document.cookie.substring(deb,fin))
         }
      return ""
      }
     
   function tue_cook(nom) { cre_cook(nom,"",-1) }

// A lier à un onload ou onunload pour afficher le popup automatiquement 1 fois par an
function pop() {
	//tue_cook("viewpop");
	if(lit_cook("viewpop")=="") {
		cre_cook("viewpop","ok",365);
		popup()
	}
}

// Vérifie la validité du champ par rapport à la regexp et sinon :
//		- affiche le message d'erreur
//		- passe le focus au champ
//		- retourne false
function checkfield(champ,regexp,message) {
	var reg = new RegExp(regexp)
	if(reg.exec(champ.value)==null) {
		alert(message)
		champ.focus()
		return false
	}
	return true
}

// vérification du champ email
function testemail(champ) {
	// global msgchkmail
	return checkfield(champ,"^[A-Za-z0-9][A-Za-z0-9._-]*@[A-Za-z0-9.-]{2,}[.][A-Za-z]{2,4}$","Your email is invalid!")
}

// Affichage du lien
function subscribelink() {
	document.write("<A href='#' onclick=popup()>Newsletter</A>");
}

// Boîte à cocher sur Order.asp
isChecked = false
function chk2(champ) {
	if(!testemail(Form1.BE_Mail)) champ.checked=false
	else if(champ.checked && !isChecked) {
		isChecked = true
		centrePop("http://www.caliso9000.com/newsletter.asp?email="+Form1.BE_Mail.value,400,200,",resizable,scrollbars,toolbar,location,menubar")
		champ.disabled=true
		Form1.BE_Mail.focus()
	}
}