function hoy()
	{
		f=new Date();
		dia=f.getDay();
		if (dia==0){
			document.write("Domingo, ");
		}
		else if (dia==1){
			document.write("Lunes, ");
		}
		else if (dia==2){
			document.write("Martes, ");
		}
		else if (dia==3){
			document.write("Miércoles, ");
		}
		else if (dia==4){
			document.write("Jueves, ");
		}
		else if (dia==5){
			document.write("Viernes, ");
		}
		else if (dia==6){
			document.write("Sábado, ");
		}
		anio = new String(f.getYear());
		if (anio.length == 3){
			anio = anio.substring(1,3);
		}
		else{
			anio = anio.substring(2,4);
		}
		document.write(f.getDate()+"-"+(f.getMonth()+1)+ "-" + 20 + anio);
		return;
	}//fin hoy
	
	function visualizarMenuBoletin(){
		boletin = document.getElementById("boletin");
		menu = document.getElementById("menuBoletin");
		menu.style.left = boletin.left;
		menu.style.top = boletin.top + 15;
		menu.style.visibility = "visible";
		return;
	}//fin visualizarMenuBoletin
	
	function ocultarMenuBoletin(){
		menu = document.getElementById("menuBoletin");
		menu.style.visibility = "hidden";

		return;
	}//fin ocultarMenuBoletin
	
	function ir(pagina)
	{
		if (pagina!="nada")location.href=pagina;
	}
	function enviar(){
		var validar=true;
		if (document.Frm.nombre.value == "") 
			{
			validar=false;
			alert ("Debe introducir su nombre");
			}
		if (document.Frm.titulo.value == "") 
			{
			validar=false;
			alert ("Debe introducir el titulo de su mensaje.");
			}
		if (document.Frm.texto.value == "") 
			{
			validar=false;
			alert ("Debe introducir el texto de su mensaje.");
			}
		
		if (validar) 
			{//alert ("Mensaje Preparado");
			 document.Frm.submit();
			}
		else
			alert ("Mensaje incompleto");
		return;
	}


	function blanco () {
		return;
	}

	function iconos(icono) {
	   var cadena=document.Frm.texto.value;
	   var cadenaaux;
	   cadena=cadena + icono;
	   document.Frm.texto.value=cadena;
	   document.Frm.texto.focus();
	   return;
	}


	function ventana(action) {
		if (action == "enlace") {
			var opciones="left=150,top=150,width=450,height=350,status=0"; 
   			window.open("addenlace.htm","",opciones); 
			return;
		}
		if (action == "email") {
			var opciones="left=150,top=150,width=450,height=320,status=0"; 
   			window.open("addimagen.htm","",opciones); 
			return;
		}	
	}
	
	function perfil(p){
		var opciones="left=150,top=150,width=450,height=320,status=0"; 
   		window.open("http://www.drahthaar.info/usuarios/perfil.php?l=" + p,"",opciones); 
		return;
	}

	function buscador(p){
		var opciones="left=150,top=150,width=450,height=320,status=0,scrollbars=yes"; 
   		window.open("http://www.drahthaar.info/usuarios/listado_perros.php?p=" + p + "&n=","",opciones); 
		return;
	}

	function nada(){
		return;
	}
	
	
	/*
	   Verifica el contenido del formulario para insertar un semental.
	*/
	function insertarSemental(){
		mensaje = new String();
		validar = true;
		//Nombre del Perro
		if (document.inscripcion.nombre.value == ""){
			validar = false;
			mensaje = mensaje + ". Nombre del perro obligatorio\n";
			document.inscripcion.nombre.style.background="#e57a7a";
		}else{
			document.inscripcion.nombre.style.background="#ffffff";
		}
		//Fecha Nacimiento
		if (document.inscripcion.fdia.value == "")		{
			validar = false;
			mensaje = mensaje + ". El DIA de la fecha de nacimiento es obligatorio\n";
			document.inscripcion.fdia.style.background="#e57a7a";
		}		
		else{
			document.inscripcion.fdia.style.background="#ffffff";
		}
		
		if (document.inscripcion.fmes.value == "")		{
			validar = false;
			mensaje = mensaje + ". El MES de la fecha de nacimiento es obligatorio\n";
			document.inscripcion.fmes.style.background="#e57a7a";
		}		
		else{
			document.inscripcion.fmes.style.background="#ffffff";
		}

		if (document.inscripcion.fanio.value == "")		{
			validar = false;
			mensaje = mensaje + ". El AÑO de la fecha de nacimiento es obligatorio\n";
			document.inscripcion.fanio.style.background="#e57a7a";
		}					
		else{
			document.inscripcion.fanio.style.background="#ffffff";
		}
		
		if (document.inscripcion.ptrabajo.value == ""){
			validar = false;
			mensaje = mensaje + ". Las calificaciones en pruebas de trabajo son obligatorias\n";
			document.inscripcion.ptrabajo.style.background="#e57a7a";
		}
		else{
			document.inscripcion.ptrabajo.style.background="#ffffff";
		}
		
		if (document.inscripcion.pmorfologia.value == "")		{
			validar = false;
			mensaje = mensaje + ". Las calificaciones en pruebas de morfología son obligatorias\n";
			document.inscripcion.pmorfologia.style.background="#e57a7a";
		}
		else{
			document.inscripcion.pmorfologia.style.background="#ffffff";
		}
		
		if (document.inscripcion.fperro.value == "")		{
			validar = false;
			mensaje = mensaje + ". La fotografia del fichero es obligatoria\n";
			document.inscripcion.fperro.style.background="#e57a7a";
		}
		else{
			document.inscripcion.fperro.style.background="#ffffff";
		}
		
		//Rellenamos los campos vacios de forma automática
		if (document.inscripcion.email.value == "")		{
			validar = false;
			mensaje = mensaje + ". El e-mail es obligatorio\n";
			document.inscripcion.email.style.background="#e57a7a";
		}
		else{
			document.inscripcion.email.style.background="#ffffff";
		}//end if
		
		//Rellenamos los campos vacios de forma automática
		if (document.inscripcion.owner.value == "")		{
			document.inscripcion.owner.style.background="#e57a7a";
			document.inscripcion.owner.value="Desconocido"
		}

		//Rellenamos los campos vacios de forma automática
		if (document.inscripcion.phone.value == "")		{
			document.inscripcion.phone.style.background="#e57a7a";
			document.inscripcion.phone.value="Desconocido"
		}

		
		if (validar){
			document.inscripcion.submit();
		}else{
			alert(mensaje);
		}
		return;
	}

	/*
	   Verifica el contenido del formulario para insertar un perro en los pedigrees.
	*/
	function insertarPedigree(){
		mensaje = new String();
		validar = true;
		//Nombre del Perro
		if (document.inscripcion.nombre.value == ""){
			validar = false;
			mensaje = mensaje + ". Nombre del perro obligatorio\n";
			document.inscripcion.nombre.style.background="#e57a7a";
		}else{
			document.inscripcion.nombre.style.background="#ffffff";
		}
		
		if ((!document.inscripcion.sexo[0].checked) && (!document.inscripcion.sexo[1].checked))		{
			validar = false;
			mensaje = mensaje + ". El sexo del perro es obligatorio\n";
		}
		

		if (validar){
			document.inscripcion.submit();
		}else{
			alert(mensaje);
		}
		return;
	}
	
	/*
	   Verifica el contenido del formulario para insertar una inscripción 
	   en un evento.
	*/
	function inscribirPerro(){
		mensaje = new String();
		validar = true;
		//Nombre del Perro
		if (document.inscripcion.nombre.value == ""){
			validar = false;
			mensaje = mensaje + ". Nombre del perro obligatorio\n";
			document.inscripcion.nombre.style.background="#e57a7a";
		}else{
			document.inscripcion.nombre.style.background="#ffffff";
		}
		//Fecha Nacimiento
		if (document.inscripcion.fdia.value == "")		{
			validar = false;
			mensaje = mensaje + ". El DIA de la fecha de nacimiento es obligatorio\n";
			document.inscripcion.fdia.style.background="#e57a7a";
		}		
		else{
			document.inscripcion.fdia.style.background="#ffffff";
		}
		
		if (document.inscripcion.fmes.value == "")		{
			validar = false;
			mensaje = mensaje + ". El MES de la fecha de nacimiento es obligatorio\n";
			document.inscripcion.fmes.style.background="#e57a7a";
		}		
		else{
			document.inscripcion.fmes.style.background="#ffffff";
		}

		if (document.inscripcion.fanio.value == "")		{
			validar = false;
			mensaje = mensaje + ". El AÑO de la fecha de nacimiento es obligatorio\n";
			document.inscripcion.fanio.style.background="#e57a7a";
		}					
		else{
			document.inscripcion.fanio.style.background="#ffffff";
		}
		
		if (document.inscripcion.lo.value == ""){
			validar = false;
			mensaje = mensaje + ". El nº de Libro de Origen es obligatorio\n";
			document.inscripcion.lo.style.background="#e57a7a";
		}
		else{
			document.inscripcion.lo.style.background="#ffffff";
		}
		
		if (document.inscripcion.chip.value == "")		{
			validar = false;
			mensaje = mensaje + ". El nº de chip o tatuaje son obligatorios\n";
			document.inscripcion.chip.style.background="#e57a7a";
		}
		else{
			document.inscripcion.chip.style.background="#ffffff";
		}
		
		if (document.inscripcion.sexo.value == "")		{
			validar = false;
			mensaje = mensaje + ". El sexo del perro es obligatorio\n";
			document.inscripcion.sexo.style.background="#e57a7a";
		}
		else{
			document.inscripcion.sexo.style.background="#ffffff";
		}
		
		if (document.inscripcion.colorperro.value == "")		{
			validar = false;
			mensaje = mensaje + ". El color de pelo del perro es obligatorio\n";
			document.inscripcion.colorperro.style.background="#e57a7a";
		}
		else{
			document.inscripcion.colorperro.style.background="#ffffff";
		}
		
		
		if (document.inscripcion.padre.value == "")		{
			validar = false;
			mensaje = mensaje + ". El nombre del padre es obligatorio\n";
			document.inscripcion.padre.style.background="#e57a7a";
		}
		else{
			document.inscripcion.padre.style.background="#ffffff";
		}//end if
		
		if (document.inscripcion.madre.value == "")		{
			validar = false;
			mensaje = mensaje + ". El nombre de la madre es obligatorio\n";
			document.inscripcion.madre.style.background="#e57a7a";
		}
		else{
			document.inscripcion.madre.style.background="#ffffff";
		}//end if
		
		if (document.inscripcion.propietario.value == "")		{
			document.inscripcion.propietario.style.background="#e57a7a";
			mensaje = mensaje + ". El propietario del perro es obligatorio\n";
		}
		else{
			document.inscripcion.propietario.style.background="#ffffff";
		}

		if (document.inscripcion.nsocio.value == "")		{
			document.inscripcion.nsocio.style.background="#e57a7a";
			mensaje = mensaje + ". Si eres socio del CEDD indica el número\n";
			document.inscripcion.nsocio.value = "No Socio";
		}
		else{
			document.inscripcion.nsocio.style.background="#ffffff";
		}
		
		if (document.inscripcion.criador.value == "")		{
			document.inscripcion.criador.style.background="#e57a7a";
			mensaje = mensaje + ". El criador del perro es obligatorio\n";
		}
		else{
			document.inscripcion.criador.style.background="#ffffff";
		}
		
		//Rellenamos los campos vacios de forma automática
		if (document.inscripcion.phone.value == "")		{
			document.inscripcion.phone.style.background="#e57a7a";
			document.inscripcion.phone.value="Desconocido"
		}
		
		//Rellenamos los campos vacios de forma automática
		if (document.inscripcion.email.value == "")		{
			document.inscripcion.email.style.background="#e57a7a";
			document.inscripcion.email.value="Desconocido"
		}

		if ((document.inscripcion.morfologia.value == "") &&
			(!document.inscripcion.pan.checked) &&
			(!document.inscripcion.cazapractica.checked)&&
			(!document.inscripcion.tierrayagua.checked)
		   ){
			validar = false;
			mensaje = mensaje + ". No se ha seleccionado ninguna prueba\n";
		}
		else{
			if (document.inscripcion.morfologia.value == "")		{
				document.inscripcion.morfologia.style.background="#e57a7a";
				mensaje = mensaje + ". No se va a inscribir al perro en Morfología\n";
			}
			else{
				document.inscripcion.propietario.style.background="#ffffff";
			}
			
			if (!document.inscripcion.pan.checked)		{
				document.inscripcion.pan.style.background="#e57a7a";
				mensaje = mensaje + ". No se va a inscribir al perro en la Prueba de Aptitudes Naturales\n";
			}
			else{
				document.inscripcion.pan.style.background="#ffffff";
			}
			
			if (!document.inscripcion.cazapractica.checked)		{
				document.inscripcion.cazapractica.style.background="#e57a7a";
				mensaje = mensaje + ". No se va a inscribir al perro en la Prueba de Caza Práctica;\n";
			}
			else{
				document.inscripcion.cazapractica.style.background="#ffffff";
			}
			
			if (!document.inscripcion.tierrayagua.checked)		{
				document.inscripcion.tierrayagua.style.background="#e57a7a";
				mensaje = mensaje + ". No se va a inscribir al perro en la Prueba de Tierra y Agua\n";
			}
			else{
				document.inscripcion.tierrayagua.style.background="#ffffff";
			}
		}
		if (validar){
			document.inscripcion.submit();
		}else{
			alert(mensaje);
		}
		return;
	}