// Popup para ver los resultados de la encuesta del index
function feliznavidad(){
 ventana=window.open('feliz_navidad.php','','toolbar=0,scrollbars=no,location=0,statusbar=0,menubar=0,resizable=0,width=310,height=225');
}
function resultados(){ 
window.open("http://www.scpd.info/resultados.php","resultados","toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=550,height=280,left=15,top=15"); 
}
function imprimir(URL) {
ventananueva= window.open(URL,"Imprimir","toolbar=0,scrollbars=yes,location=0,statusbar=0,menubar=0,resizable=0,width=500,height=600,left=10,top=10");
}
function popup_CXXVJSCPDG(URL) {
ventananueva= window.open(URL,"CXXVJSCPDG","toolbar=0,scrollbars=no,location=0,statusbar=0,menubar=0,resizable=0,width=353,height=545,left=10,top=10");
}
// función para controlar que han ingresado alguna palabra o palabras
// para buscar en el campo Buscador del fomulario BUSCADOR
function validarf(formulario)
{
	var flag=true;
	with(formulario)
	{
		if(query_string.value == "")
		{
			alert("Por favor, introduzca la palabra o palabras con la que desea realizar la búsqueda en el campo Buscador.");
			flag=false;
		}
	}	
	return flag;
}
// función para controlar que han ingresado el Usuario y la Contraseña
// en el formulario AREA DE SOCIOS
function validaracceso(formulario)
{
	var flag=true;
	with(formulario)
	{
		if(nick.value == "")
		{
			alert("Por favor, introduzca su Nombre de Usuario en el campo Usuario.");
			flag=false;
		}
	    if(password.value == "")
		{
		    alert("Por favor, introduzca su Contraseña en el campo Contraseña.");
		    flag=false;
		}		
	}	
	return flag;
}
// función para controlar que han ingresado el Nombre de Cuenta y la Contraseña
// en el formulario WEBMAIL
function validarleercorreo(formulario)
{
	var flag=true;
	with(formulario)
	{
		if(f_user.value == "")
		{
			alert("Por favor, introduzca el Nombre de Cuenta de su Correo Electrónico en el campo E-mail.");
			flag=false;
		}
	    if(f_pass.value == "")
		{
		    alert("Por favor, introduzca la Contraseña de acceso de su Correo Electrónico en el campo Contraseña.");
		    flag=false;
		}		
	}	
	return flag;
}
// función para controlar que en el formulario del archivo formulariorecuperar
// se ha ingresado un correo electrónico válido
 function validarcorreo(form){
    var pos1, pos2, bOk = true;
    var sDir = document.recuperar.mail.value;
    if (sDir == ""){
     alert("Por favor, ingrese la dirección de Correo Electrónico ingresada en su registro de Socio.");
     document.recuperar.mail.focus();
     return false;
    }
    pos1 = sDir.indexOf('@', 0);
    pos2 = sDir.indexOf('.', 0);
    bOk = bOk && (pos1 > 0);
    bOk = bOk && (pos2 != -1);
    bOk = bOk && (pos1 < pos2 - 1);
    bOk = bOk && (pos2 < sDir.length - 1);
    if (!bOk){
     alert("Por favor, ingrese una dirección de Correo Electrónico válida.");
     document.recuperar.mail.focus();
     return false;
    }
   }
<!--
// función para validar el formulario para abrir las cuentas de correo electrónico de la SCPD
// del archivo webmail.php
function Valida_Solicitud_Correo(theForm)
{
if (theForm.CORREO_ELECTRONICO_SCPD.value == "")
{
alert("Correo Electrónico SCPD debe contener el nombre de cuenta que desea para su cuenta de correo electrónico de la SCPD.");
theForm.CORREO_ELECTRONICO_SCPD.focus();
return (false);
}
if (theForm.CONTRASENA.value == "")
{
alert("Contraseña debe contener la contraseña de acceso que desea para su cuenta de correo electrónico de la SCPD.");
theForm.CONTRASENA.focus();
return (false);
}
if (theForm.REPITA_CONTRASENA.value == "")
{
alert("Repita Contraseña debe contener la misma cadena que ha ingresado en el campo Contraseña.");
theForm.REPITA_CONTRASENA.focus();
return (false);
}
if (theForm.REPITA_CONTRASENA.value != theForm.CONTRASENA.value)
{
alert("Repita Contraseña debe contener la misma cadena que ha ingresado en el campo Contraseña.");
theForm.REPITA_CONTRASENA.focus();
return (false);
}
if (theForm.NOMBRE.value == "")
{
alert("Nombre debe contener su nombre personal.");
theForm.NOMBRE.focus();
return (false);
}
if (theForm.APELLIDOS.value == "")
{
alert("Apellidos debe contener sus apellidos.");
theForm.APELLIDOS.focus();
return (false);
}
if (theForm.DNI.value == "")
{
alert("DNI debe contener su DNI.");
theForm.DNI.focus();
return (false);
}
if (theForm.CORREO_ELECTRONICO.value == "")
{
alert("Correo Electrónico debe contener la dirección de su correo electrónico.");
theForm.CORREO_ELECTRONICO.focus();
return (false);
}
}
//-->   
// Scrooll de la Barra de Estado 
var current = 0
var x = 0
var speed = 100
var speed2 = 2000

function initArray(n) {
  this.length = n;
  for (var i =1; i <= n; i++) {
    this[i] = ' '
  }
}

typ = new initArray(3)
typ[0]="BIENVENIDOS!!!"
typ[1]="WELCOME!!!"
typ[2]="SCPD_____Sociedad Canaria de Patología Digestiva"

function typewrite() {
var m = typ[current]

window.status = m.substring(0, x++) + "_"

if (x == m.length + 1) {
x = 0
current++

if (current > typ.length - 1) {
current = 0
}

setTimeout("typewrite()", speed2)
}

else {
setTimeout("typewrite()", speed)
}
}

typewrite()
//-->