// Popup para ver los vídeos wvm
function video(URL) {
ventananueva= window.open(URL,"Video","toolbar=0,scrollbars=no,location=0,statusbar=0,menubar=0,resizable=0,width=360,height=329");
}
// Popup para ver los vídeos rm
function video2(URL) {
ventananueva= window.open(URL,"Video2","toolbar=0,scrollbars=no,location=0,statusbar=0,menubar=0,resizable=0,width=360,height=368");
}
// 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.cirugiadelaobesidad.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 enviar_pagina(URL) {
ventananueva= window.open(URL,"Enviar","toolbar=0,scrollbars=no,location=0,statusbar=0,menubar=0,resizable=0,width=417,height=388,left=10,top=10");
}
function popup_imagenes_tecnicas(URL) {
ventananueva= window.open(URL,"TECNICAS","toolbar=0,scrollbars=yes,location=0,statusbar=0,menubar=0,resizable=0,width=732,height=510,left=10,top=10");
}
function popup_imagenes_tecnicas2(URL) {
ventananueva= window.open(URL,"TECNICAS1","toolbar=0,scrollbars=yes,location=0,statusbar=0,menubar=0,resizable=0,width=434,height=620,left=10,top=10");
}
function popup_imagenes_tecnicas3(URL) {
ventananueva= window.open(URL,"TECNICAS2","toolbar=0,scrollbars=yes,location=0,statusbar=0,menubar=0,resizable=0,width=355,height=540,left=10,top=10");
}
function popup_imagenes_tecnicas4(URL) {
ventananueva= window.open(URL,"TECNICAS3","toolbar=0,scrollbars=yes,location=0,statusbar=0,menubar=0,resizable=0,width=560,height=620,left=10,top=10");
}
function popup_imagenes_tecnicas5(URL) {
ventananueva= window.open(URL,"TECNICAS4","toolbar=0,scrollbars=yes,location=0,statusbar=0,menubar=0,resizable=0,width=454,height=620,left=10,top=10");
}
function popup_imagenes_tecnicas6(URL) {
ventananueva= window.open(URL,"TECNICAS5","toolbar=0,scrollbars=yes,location=0,statusbar=0,menubar=0,resizable=0,width=461,height=620,left=10,top=10");
}
function popup_gi(URL) {
ventananueva= window.open(URL,"","toolbar=0,scrollbars=yes,location=0,statusbar=0,menubar=0,resizable=0,width=762,height=550,left=10,top=10");
}
function popup_gi2(URL) {
ventananueva= window.open(URL,"","toolbar=0,scrollbars=yes,location=0,statusbar=0,menubar=0,resizable=0,width=520,height=792,left=10,top=10");
}
function popup_gi3(URL) {
ventananueva= window.open(URL,"","toolbar=0,scrollbars=yes,location=0,statusbar=0,menubar=0,resizable=0,width=419,height=574,left=10,top=10");
}
function popup_gi4(URL) {
ventananueva= window.open(URL,"","toolbar=0,scrollbars=yes,location=0,statusbar=0,menubar=0,resizable=0,width=544,height=601,left=10,top=10");
}
function popup_gi5(URL) {
ventananueva= window.open(URL,"","toolbar=0,scrollbars=yes,location=0,statusbar=0,menubar=0,resizable=0,width=566,height=601,left=10,top=10");
}
function popup_gi6(URL) {
ventananueva= window.open(URL,"","toolbar=0,scrollbars=yes,location=0,statusbar=0,menubar=0,resizable=0,width=380,height=342,left=10,top=10");
}
function popup_gi7(URL) {
ventananueva= window.open(URL,"","toolbar=0,scrollbars=yes,location=0,statusbar=0,menubar=0,resizable=0,width=762,height=612,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 validar el formulario para calcular el I.M.C
function IMCcalc(form){

	var peso=form.peso.value;
	var altura=form.altura.value;	
	
	// En caso de que hayan introducido una ',' la sustituimos por un '.'
	if(altura != '') {
		if(altura.indexOf(',') > -1)
			altura = altura.substr(0,altura.indexOf(',')) + '.' + altura.substr(altura.indexOf(',') + 1);
	}

	if (peso== "" || peso== "0" || peso== "00.00" ) {
				alert("Por favor, introduzca su peso en el campo Peso.");				
				form.peso.focus();				
				return false;
			}
		numList = "1234567890.,";
		for (i = 0;i < peso.length;i++) {
				if (numList.indexOf(peso.substring(i, i + 1)) == -1) {
					alert("Por favor, introduzca solo números en el campo Peso");
					form.peso.value = "";
					form.peso.focus();
					return false;
				}
			}     
	
	if (altura== "" || altura== "0" || altura== "0.00") {
				alert("Por favor, introduzca su altura en el campo Altura.");
				form.altura.focus();
				return false;
			}
		numList = "1234567890.,";
		for (i = 0;i < altura.length;i++) {
				if (numList.indexOf(altura.substring(i, i + 1)) == -1) {
					alert("Por favor, introduzca solo números en el campo Altura");
					form.altura.value = "";
					form.altura.focus();
					return false;
				}

	}
			if (peso<20 || peso>350){
			alert("Por favor, introduzca valores reales en el campo Peso");
			form.peso.value = "";
			form.peso.focus();
			return;
			}
			if (altura<0.30 || altura>2.4) {
			alert("Por favor, introduzca valores reales en el campo Altura");
			form.altura.value = "";
			form.altura.focus();
			return;
		}
	
	
	var sexo=form.sexo.selectedIndex;
	//alert(sexo)
	var peso=eval(peso);
	var altura=eval(altura);
	
	
	var altcuad=altura*altura;	
	var result1="Delgadez pronunciada";
	var result2="Delgadez";
	var result3="Normalidad";
	var result4="Sobrepeso";
	var result5="Obesidad Leve";
	var result6="Obesidad Moderada";
	var result7="Obesidad Severa";
	var result8="Obesidad Mórbida";


	
	var IMC=peso/altcuad;
	IMC=Math.round(IMC);
	document.getElementById("IMC").innerText=IMC;
	
	
	if(sexo==0){
		var intinf= altcuad * 21.5;
		var intsup= altcuad * 23.5;
	} else {
		var intinf= altcuad * 20.7;
		var intsup= altcuad * 22.8;
	}


	intinf=Math.round(intinf*10)/10;
	intsup=Math.round(intsup*10)/10;
		
	if(IMC<=15) { document.getElementById("indicativo").innerText=result1; }
	if(IMC>15 && IMC<20) { document.getElementById("indicativo").innerText=result2; }
	if(IMC>=20 && IMC<25) { document.getElementById("indicativo").innerText=result3; }
	if(IMC>=25 && IMC<27){ document.getElementById("indicativo").innerText=result4; }
	if(IMC>=27 && IMC<30){ document.getElementById("indicativo").innerText=result5; }
	if(IMC>=30 && IMC<35){ document.getElementById("indicativo").innerText=result6; }
	if(IMC>=35 && IMC<40){ document.getElementById("indicativo").innerText=result7; }
	if(IMC>=40) { document.getElementById("indicativo").innerText=result8; }
	
	document.getElementById("pesoEntre").innerText=intinf + ' - ' + intsup;	
	
}
// 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 Usuario.");
     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 CIRUGÍA DE LA OBESIDAD debe contener el nombre de cuenta que desea para su cuenta de correo electrónico de la CIRUGÍA DE LA OBESIDAD.");
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 CIRUGÍA DE LA OBESIDAD.");
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(2)
typ[0]="BIENVENIDO!!!"
typ[1]="CIRUGÍA DE LA OBESIDAD - Dr. Ruiz de Adana - Dr. López Herrero"

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()
//-->