NS4 = (document.layers) ? 1 : 0;
IE4 = (document.all) ? 1 : 0;
ver4 = (NS4 || IE4) ? 1 : 0;

function js_Ventana(www,ancho,alto,titulo,target)
{
	var destino=www+'#'+target;
	var ventana=window.open(destino,titulo,'status=no,scrollbars=no,location=0,0, resizable=no,width='+ancho+',height='+alto);
	ventana.opener.top.name="opener";
	ventana.focus();
}

function js_UpdateHome()
{
	var windowPtr = ( top.opener.location ) ? top.opener : window.open( "", "newWindow" );
	windowPtr.location.href = "";
	windowPtr.focus();
}

function js_Contador(textarea,contador)
{
	if (textarea.value.length>499)
		{textarea.value=textarea.value.substring(0,499);
 		}
 	contador.value=499-textarea.value.length;
}

function js_ChequeaLongitud(textarea,evt)
{
	if (textarea.selected && evt.shiftKey) return true;
 	var allowKey=false;
 	if (textarea.selected && textarea.selectedLength>0) allowKey=true;
 	else
 		{var keyCode=document.layers ? evt.which : evt.keyCode;
   		 if (keyCode<32 && keyCode!=13) allowKey=true;
    		 else allowKey=textarea.value.length < 499;
    		}
 	textarea.selected=false;
 	return allowKey;
}

function js_popup(lista,limpia)
	{n=limpia.indexOf('x');
	 while (n!=-1)
	 	{m=limpia.indexOf('x',n+1);
	 	 if (m!=-1) {final=m;}
	 	 else {final=limpia.length;}
	 	 cadena=limpia.substring(n,final);
	 	 document.all[cadena].style.visibility = "hidden";
	 	 n=m;
	 	}
	 n=lista.indexOf('x');
	 while (n!=-1)
	 	{m=lista.indexOf('x',n+1);
	 	 if (m!=-1) {final=m;}
	 	 else {final=lista.length;}
	 	 cadena=lista.substring(n,final);
	 	 document.all[cadena].style.visibility = "visible";
	 	 n=m;
	 	}
	}

function js_tr(a,b,c,d,e)
	{
	 document.write("<tr>");
	 if (e>0)
	 	{if (a=='s') {document.write("<td>&nbsp;");}
	 	 else	{document.write("<td><a href='familia.asp?IDFAMILIA="+b+"' class='popup' onMouseOver='js_popup(x");
	 	 	 document.write(b+",w);'><img src='iconos/menuleft.gif' ");
	 	 	 document.write("valign='top' align='left' height=9 width=9 border=0></a>");
	 		}
	 	 document.write("</td>");
	 	}	 
	 document.write("<td width='100%'>");
	 if (a=='s')	{document.write("<a href='subfamilia.asp?IDFAMILIA="+b+"' onMouseOver='js_popup(x"+d);}
	 else	{document.write("<a href='familia.asp?IDFAMILIA="+b+"' onMouseOver='js_popup(x"+b);}
	 document.write(",w);' class='popup'>&nbsp;"+c+"</a></td>");
	 if (e==0)
	 	{if (a=='s') {document.write("<td>&nbsp;");}
	 	 else	{document.write("<td><a href='familia.asp?IDFAMILIA="+b+"' class='popup' onMouseOver='js_popup(x");
	 	 	 document.write(b+",w);'><img src='iconos/menuright.gif' ");
	 	 	 document.write("valign='top' align='right' height=9 width=9 border=0></a>");
	 		}
	 	 document.write("</td>");
	 	}
	 document.write("</tr>");
	}

function js_t1(a,b,c,d,e)
	{ 
	 document.write("<div id='x"+a+"' style='position: absolute; z-index:20; visibility:");
	 if (d==1) {document.write("hidden;");}
	 else	{document.write("visible;");}
	 document.write(" top:"+b+"; left:"+c+";'>");
	 document.write("<table border=0 width=0 bgcolor='#000000' cellpadding=0 cellspacing=2><tr><td>");
	 document.write("<table border=0 width="+e+" bgcolor='#E0E0E0' cellpadding=0 cellspacing=0 class='popup'>");
	}
	
function js_t2()
	{
	 document.write("</table></td></tr></table></div>\n");
	 }

function js_popup_limpia(limpia)
	{n=limpia.indexOf('x');
	 while (n!=-1)
	 	{m=limpia.indexOf('x',n+1);
	 	 if (m!=-1) {final=m;}
	 	 else {final=limpia.length;}
	 	 cadena=limpia.substring(n,final);
	 	 document.all[cadena].style.visibility = "hidden";
	 	 n=m;
	 	}
	}

function js_popup_on(uno,dos)
	{if (NS4) {document.layers[dos].visibility = "hide";}
	 else {document.all[dos].style.visibility = "hidden";}
	 if (NS4) {document.layers[uno].visibility = "show";}
	 else	  {document.all[uno].style.visibility = "visible";}	 
	}

function js_popup_off(lista,limpia)
	{n=lista.indexOf('x');
	 while (n!=-1)
	 	{m=lista.indexOf('x',n+1);
	 	 if (m!=-1) {final=m;}
	 	 else {final=lista.length;}
	 	 cadena=lista.substring(n,final);
	 	 document.all[cadena].style.visibility = "hidden";
	 	 n=m;
	 	}
	 n=limpia.indexOf('x');
	 while (n!=-1)
	 	{m=limpia.indexOf('x',n+1);
	 	 if (m!=-1) {final=m;}
	 	 else {final=limpia.length;}
	 	 cadena=limpia.substring(n,final);
	 	 document.all[cadena].style.visibility = "hidden";
	 	 n=m;
	 	}
	}
	
// ****** Funciones para comprobar que el correo es válido antes de mandarlo
// ****** Para llamar 'chequeo()' el formulario debe llamarse 'formulario' 

function isEmail(str) {
  // are regular expressions supported?
  var supported = 0;
  if (window.RegExp) {
    var tempStr = "a";
    var tempReg = new RegExp(tempStr);
    if (tempReg.test(tempStr)) supported = 1;
  }
  if (!supported) 
    return (str.indexOf(".") > 2) && (str.indexOf("@") > 0);
  var r1 = new RegExp("(@.*@)|(\\.\\.)|(@\\.)|(^\\.)");
  var r2 = new RegExp("^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)$");
  return (!r1.test(str) && r2.test(str));
}

function chequeo(){
	var mal=0;
	vari = isEmail(formulario.MAILFROM.value);
	if (!vari){
		alert('El correo electrónico que ha indicado no parece válido.\nIntrodúzcalo en el campo indicado.\n');
		mal=1;
		}
	if (!formulario.NOMBRE.value){
		alert('Por favor, introduzca un nombre');
		mal=1;
		}
	if (!formulario.TELEFONO.value){
		alert('Por favor, introduzca un teléfono');
		mal=1;
		}
	if (!formulario.ASUNTO.value){
		alert('Por favor, introduzca una sugerencia');
		mal=1;
		}		
	if (mal) return; else formulario.submit();
}