function email( texto ) {
	var mailres = true;            
	var cadena = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890@._-";

	var arroba = texto.indexOf("@",0);
	if ((texto.lastIndexOf("@")) != arroba) 
		arroba = -1;

	var punto = texto.lastIndexOf(".");

	for (var contador = 0 ; contador < texto.length ; contador++){
		if (cadena.indexOf(texto.substr(contador, 1),0) == -1){
		    mailres = false;
		    break;
		}
	}

	if ((arroba > 1) && (arroba + 1 < punto) && (punto + 1 < (texto.length)) && (mailres == true) && (texto.indexOf("..",0) == -1))
		mailres = true;
	else
		mailres = false;

	return mailres;
}


function verificarCampos( formulario ) {
	var solicitante = formulario.Solicitante.value;
	var solicitud   = formulario.Solicitud.value;

	if ( solicitante == "" || email(solicitante) == false ) {
		alert("Su dirección de correo electrónico no es válida");
		return;
	}
	if ( solicitud == "" ) {
		alert("No ha añadido comentarios a la petición");
		return;
	}
	else {
		formulario.Solicitante.value = " " + solicitante;
		formulario.Solicitud.value   = " " + solicitud;
		formulario.submit();
	}

	formulario.Solicitante.value = solicitante;
	formulario.Solicitud.value   = solicitud;
}