function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function validarCadenaEmail(str){
	if (window.RegExp) {
		var reg1str = "(@.*@)|(\\.\\.)|(@\\.)|(\\.@)|(^\\.)";
		var reg2str = "^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,4}|[0-9]{1,3})(\\]?)$";
		var reg1 = new RegExp(reg1str);
		var reg2 = new RegExp(reg2str);
		if (!reg1.test(str)&&reg2.test(str))
			return true;
		else
			return false;
	}
	else{
		var p=str.indexOf('@');
		if (p<1 || p==(str.length-1))
			return false;
	  }

	return true;
}

function MM_validateForm() { //v4.1
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=args[i+1]; if (nm=="") nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { 
        if (!(validarCadenaEmail(val))) 
			errors+='- '+nm+' debe ser una direcci\xF3n de email.\n';
      } else if (test!='R') {
        if (isNaN(val)) errors+='- '+nm+' debe ser un n\xFAmero.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) errors+='- '+nm+' debe ser un n\xFAmero entre '+min+' y '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' es necesario.\n'; }
  } if (errors) alert('Se han producido los siguientes errores:\n'+errors);
  document.MM_returnValue = (errors == '');
}

function MM_validateEngForm() { //v4.1
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateEngForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=args[i+1]; if (nm=="") nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) {  
        if (!(validarCadenaEmail(val))) 
			errors+='- '+nm+' must be an email direction.\n';
      } else if (test!='R') {
        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is necessary.\n'; }
  } if (errors) alert('The following errors have taken place:\n'+errors);
  document.MM_returnValue = (errors == '');
}


function MM_validateEuskForm() { //v4.1
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateEuskForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=args[i+1]; if (nm=="") nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { 
        if (!(validarCadenaEmail(val))) 
			errors+='- '+nm+' debe ser una direcci\xF3n de email.\n';
      } else if (test!='R') {
        if (isNaN(val)) errors+='- '+nm+' debe ser un n\xFAmero.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) errors+='- '+nm+' debe ser un n\xFAmero entre '+min+' y '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- Es necesario '+nm+' beharrezkoa da\n'; }
  } if (errors) alert('Se han producido los siguientes errores / Akats hauek sortu dira:\n'+errors);
  document.MM_returnValue = (errors == '');
}



function URG_validateForm(args) { //v4.1
  var i,p,q,nm,test,num,min,max,errors='', val, obj;
	var aCampos, aDatos;
	args=args.replace(/\r\n/g, "");
	args=args.replace(/\t/g, "");
	aCampos=args.split(";");
  for (i=0; i<aCampos.length; i++) {
		aDatos=aCampos[i].split(":");
		test=aDatos[2]; if (test=="") continue;
		obj=MM_findObj(aDatos[0]);
    if (obj) { nm=aDatos[1]; if (nm=="") nm=obj.name; 
		if (obj.nodeName=="SELECT")
				val=ValorCombo(obj);
		else
				val=obj.value;
		if (val!="") {
      if (test.indexOf('isEmail')!=-1) { 
        if (!(validarCadenaEmail(val))) 
			errors+='- '+nm+' debe ser una direcci\xF3n de email.\n';
      } else if (test!='R' && test!='check') {
				if (test.indexOf('isDNI')!=-1) {
					if (!(validarNIF(val))) 
						errors+='- '+nm+' debe ser un n\xFAmero de DNI (incluida la letra).\n';
				} else {
					if (test=="Checked") {
						if (!obj.checked)
							errors+='- '+nm+'.\n'; 
					} else {
						if (isNaN(val)) errors+='- '+nm+' debe ser un n\xFAmero.\n';
						if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
						min=test.substring(8,p); max=test.substring(p+1);
						if (val<min || max<val) errors+='- '+nm+' debe ser un n\xFAmero entre '+min+' y '+max+'.\n';
					}
				}
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' es necesario.\n'; }
  } if (errors) alert('Se han producido los siguientes errores:\n'+errors);
  document.MM_returnValue = (errors == '');
}



function validarNIF(NIF)
{
	//si hay que validar que no está en blanco no es cuestión nuestra.
	if (NIF=="") return true;

	//limpiar...
	var dni=NIF.replace(/\D/gi, "");

	//comprobar longitud
	if (dni.length!=8) {
//		alert("No contiene todos los d\xEDgitos necesarios");
		return false;
	}
	var letra=calcularletraNIF(dni);
	if (NIF.length>8) {
		if (NIF.substr(NIF.length-1, 1).toUpperCase()!=letra) {
			return false;
		} else {
			return true;
		}
	} else {
		return false;
	}
}

function calcularletraNIF(dni)
{
	var cadena = 'TRWAGMYFPDXBNJZSQVHLCKET';
	var posicion = parseInt(dni, 10) % 23;
	return(cadena.charAt(posicion));
}


function comprobarMaximoPalabras(campo, maximo)
{
	var cuerpo=MM_findObj(campo).value;
	cuerpo=cuerpo.replace(/(\s)+/g, " ");
	var palabras=cuerpo.split(" ").length;
	if (palabras>maximo)
	{
		alert("Debe introducir un m\xE1ximo de " + maximo + " palabras en " + campo);
		return false
	}
	return true;
}


function ValorCombo(elmto) {
	if (-1==elmto.selectedIndex) return "";

	if (elmto.item(elmto.selectedIndex))
		return elmto.item(elmto.selectedIndex).value;

	return "";
}


function ValidarEnvio() {
	var oNecesarios=document.getElementById("Formato");
	if (oNecesarios) {
		URG_validateForm(oNecesarios.value);
	
		if (!document.MM_returnValue) 
			return false;
	}

	//para que no hagan doble click
	document.getElementById("enviar").disabled=true;
	return true;
}