// (c) Xatcom.net 2006
// Prohibida la copia o reproducción parcial o total de este documento
// realizado por Carlos Martínez
function AddMail() {
	var db=document.frmBoletin;
	if ( !VerificaCorreuOK(db.direcbol.value) ) {
		alert("La dirección de e-mail no tiene un formato correcto.");
		db.direcbol.focus();
		return;
	}
	if (db.btnSend) { db.btnSend.value = "Enviando..."; }
	db.accio.value = "Afmail";
	AJAXLoading(true,0,"dBol");
	Ajax_SendForm("lib_php/boletinadd.php","frmBoletin", "POST", "AJAXLoading_result(0,'dBol')",0);
}
function AddMailChk(txt, accio) {
	var fdb=document.frmBoletin.direcbol;
	if (accio==1) {
		if (fdb.value=="Escriba su email") { fdb.value = ""; fdb.focus(); }
	} else {
		if (fdb.value=="") fdb.value = "Escriba su email";
	}
}
function VerificaCorreuOK(correu) {
	var i=0;
	var l=correu.length;
	var arroba=false;
	var punt=false;
	var c="";
	var pos1 = 0;
	var pos2 = 0;
	if ( correu.length<4 ) { return 0; }
	for (i=0; i<l; i++) {
		 c = correu.charAt(i);
		 if (c=="@") { arroba=true; pos1 = i; }
		 if ( arroba==true ) { if (c==".") { punt=true; pos2 = i; } }
	}
	if ( (pos1>0)&&(pos2>0)&&((pos2-pos1)>1)&&((l-pos2)>1) )
		return (arroba & punt);
	else
		return 0;
}