function validaEmail(checkStr)
{var nI, sS, nN, nP;
 // Arroba ...
 sS = "@"; nN = 0; nP = 0;
 for(nI = 0; nI <checkStr.length; nI++)
 { if(checkStr.charAt(nI) == sS) 
 { nN++; nP = nI; }
 }
 if(nN == 0) return (false);
 if(nN> 1) return (false);
 var nPArroba = nP;
 // Punto ...
 sS = "."; nN = 0; nP = 0;
 for(nI = 0; nI <checkStr.length; nI++)
 { if(checkStr.charAt(nI) == sS) 
 { nN++; nP = nI; }
 }
 if(nN == 0) return (false);
 var nPPunto = nP;
 // Posicion Arroba/Punto ...
 if(nPArroba> nPPunto) return (false);
 //
 return (true);
}

function doDateCheck_es(from, to) {
// Compruebo que la fecha de entrega es mayor que la de recogida
if (from.value.length==0) { alert("Debe introducir la fecha de inicio de la predicción"); from.focus; return false; }
if (to.value.length==0) { alert("Debe introducir la fecha final de la predicción"); to.focus; return false; }
var dia = "";
var ano = "";
var i=0;
var fecha=from.value;
while (fecha.substr(i,1)!='/') i++;
dia=fecha.substr(0,i);
fecha=fecha.substr(i+1,fecha.length-(i+1));
i=0;
while (fecha.substr(i,1)!='/') i++;
mes=fecha.substr(0,i);
ano=fecha.substr(i+1,fecha.length-i);
var fecha1=mes + "/" + dia + "/" + ano;
if (dia.length==1) dia='0'+dia;
if (mes.length==1) mes='0'+mes;
from.value=dia+'/'+mes+'/'+ano;
i=0;
fecha=to.value;
while (fecha.substr(i,1)!='/') i++;
dia=fecha.substr(0,i);
fecha=fecha.substr(i+1,fecha.length-i);
i=0;
while (fecha.substr(i,1)!='/') i++;
mes=fecha.substr(0,i);
ano=fecha.substr(i+1,fecha.length-i);
var fecha2=mes + "/" + dia + "/" + ano;
if (dia.length==1) dia='0'+dia;
if (mes.length==1) mes='0'+mes;
to.value=dia+'/'+mes+'/'+ano;
var hoy=new Date();
hoy=hoy.valueOf();
if (Date.parse(fecha1) <= Date.parse(fecha2))
{ 
if ( (Date.parse(fecha1) <= (hoy + 86400000*document.forms['fconsultas'].dias_max_antelacion.value)) && (Date.parse(fecha2) <= (hoy + 86400000*document.forms['fconsultas'].dias_max_antelacion.value)))
 document.forms['fconsultas'].submit();
else
 alert("Las previsiones con más de " + document.forms['fconsultas'].dias_max_antelacion.value + " días de antelación,\nse verán temporalmente restringidas por carecer de la suficiente fiabilidad de pronóstico.");
}
else {
if (from.value == "" || to.value == "")
 alert("Debe introducir el intervalo de la predicción.");
else
 alert("Debe introducir una fecha de inicio mayor o igual que la final.");
 }
}

var enviar ='no';
function comprobar(){
	var msgerror='';
	if (document.forms['fconsultas'].nombre.value=='') 
		msgerror = '* Nombre completo\n';
	if (document.forms['fconsultas'].email.value=='') 
		{msgerror = msgerror +'* Email\n';}
	else if (!validaEmail(document.forms['fconsultas'].email.value))
		{msgerror = msgerror +'* Email incorrecto\n';}
	if (document.forms['fconsultas'].consulta.value=='') 
		{msgerror = msgerror +'* Consulta\n';}
	
	if (msgerror!=''){
		alert('Hey, algo no está bien!!\n\nLos siguientes campos son obligatorios:\n\n'+msgerror);
		return false;
		}
	else{
		doDateCheck_es(document.forms['fconsultas'].fecha_inicio, document.forms['fconsultas'].fecha_fin);
	
	}
}
function IrAPagina(pointer)
  {
  document.pag.pointer.value = pointer;
  document.pag.submit();
  return false;
  }