/*
IE4=(document.all)?1:0;
NS4=(document.layers)?1:0;
DOM=(document.getElementById)?1:0;
NS6=((DOM)&&(!IE4));
ver4=((IE4)||(NS6)||(NS4))?1:0;
nav=navigator.appVersion;
nav=nav.toLowerCase();
isMac=(nav.indexOf("mac")!=-1)?1:0;
IEmac=((document.all)&&(isMac))?1:0;

*/
		var IE4;

	IE4=(document.all)?1:0;

	offMessage = "<b>Sitúe el cursor sobre los botones superiores (Modo de uso, Acumular...) para obtener más información.</b>"
	offMessageDECORE = "<center><font size='4' face='Trebuchet MS'  color='#004424'><br>Bienvenidos al sistema de corrección on-line del <br>Cuestionario de evaluación de riesgos psicosociales <br></font><font size='1' face='Trebuchet MS'  >(Pulse sobre el menú de imágenes superior para acceder a las distintas areas del programa)</font></center>"
	offMessageSOSIA = "<center><font size='4' face='Trebuchet MS'   color='#344A74'><br>Bienvenidos al sistema de corrección on-line del <br>SOSIA - Gestión por competencias <br>Evaluación de la personalidad y aptitudes<br></font><font size='1' face='Trebuchet MS'  >(Pulse sobre el menú de imágenes superior para acceder a las distintas areas del programa)</font></center>"
	offMessageDIVISA1 = "<center><font size='4' face='Trebuchet MS'  color='#3B8A85'><br>Bienvenidos al sistema de aplicación y corrección on-line del <br>DiViSA - Test de discriminación visual simple de árboles<br><br></font><font size='1' face='Trebuchet MS'  >(Pulse sobre el menú de imágenes superior para acceder a las distintas areas del programa)</font></center>"
	offMessageDIVISA3 = "<center><font size='4' face='Trebuchet MS'  color='#3B8A85'><br>Welcome to DiViSA administration and scoring online system<br />(Click on the buttons above to access to progamme sections)</font></center>"



	function boxOn(which,message) {          	
		if (document.all||document.getElementById) {         			
			if (document.getElementById) {         				
				document.getElementById("Message").innerHTML = message         
			}		
			else {         			
				Message.innerHTML = message;       
			}      
		}   
	}	
	
	function boxOff(which) {       		
		if (document.all||document.getElementById) {         			
			if (document.getElementById) {              			
				document.getElementById("Message").innerHTML = offMessage         
			}   	
			else {         			
				Message.innerHTML = offMessage;      
			}     
		}   
	}   	

	function boxOff2(which) {       		
		if (document.all||document.getElementById) {         			
			if (document.getElementById) {              			
				document.getElementById("Message").innerHTML = ""
			}   	
			else {         			
				Message.innerHTML = offMessage;      
			}     
		}   
	}   	
	function boxOff3(which) {       		
		if (document.all||document.getElementById) {         			
			if (document.getElementById) {              			
				document.getElementById("Message").innerHTML = offMessageDECORE
			}   	
			else {         			
				Message.innerHTML = offMessageDECORE;      
			}     
		}   
	} 
	function boxOff4(which) {       		
		if (document.all||document.getElementById) {         			
			if (document.getElementById) {              			
				document.getElementById("Message").innerHTML = offMessageSOSIA
			}   	
			else {         			
				Message.innerHTML = offMessageSOSIA;      
			}     
		}   
	}
	function boxOff5(which,idioma) {
	    if (document.all || document.getElementById) {
	        if (document.getElementById) {
				switch (idioma)
				{
					case 1:
						document.getElementById("Message").innerHTML = offMessageDIVISA1;
						break;
					case 3:
						document.getElementById("Message").innerHTML = offMessageDIVISA3;
						break;
				}

			}
	        else {
				switch (idioma)
				{
					case 1:
						document.getElementById("Message").innerHTML = offMessageDIVISA1;
						break;
					case 3:
						document.getElementById("Message").innerHTML = offMessageDIVISA3;
						break;
				}
	        }
	    }
	} 
	
	function ValidateRespIEFF(field,e,idTest) {
	var patron;
	var strValid;
	var ok;
	var tecla;
	var idx;
	var Preg;
	var patron =  /[ 01234\s]/;
	var strValid = "0=Blanco; 1=A; 2=B; 3=C; 4=D";

		tecla = (window.Event) ? e.which : e.keyCode;
		switch(tecla){
			case 37: case 38: case 39: case 40: // flechas
			case  8: case 20:  // retroceso, espacio
				return true;
				break;
			case 13: // return
				return true;
				break;
default:
    switch (idTest) { // IdTest
        case 32: case 33: case 8: case 23: case 36: case 6: case 57:
            // BASC, MCMI-III, MACI, MIPS, CPS, SIMS
            patron = /[ 012\s]/;
            strValid = "0=Blanco; 1=Verdadero; 2=Falso";
            break;
        case 1: case 103: case 105:
            // 16PF-5, ECOMPLEC-PRI/SEC
            patron = /[ 0123\s]/;
            strValid = "0=Blanco; 1=A; 2=B; 3=C";
            break;
        case 17:
            //	FB360
            patron = /[ 01234\s]/;
            strValid = "0=Blanco; 1=A; 2=B; 3=C; 4=D";
            break;
        case 16: case 4: case 34:
            //	CTI / CEA / NEO-PI-R 
            patron = /[ 012345\s]/;
            strValid = "0=Blanco; 1=A; 2=B; 3=C; 4=D; 5=E";
            break;
        case 59:
            //	MSCEIT
            patron = /[ 012345\s]/;
            strValid = "0=Blanco; 1=A ó 1; 2=B ó 2; 3=C ó 3; 4=D ó 4; 5=E ó 5";
            break;
        case 22:
            //	BFQ-NA
            patron = /[ 012345\s]/;
            strValid = "\n\n0=Blanco\n\n 1=Casi siempre\n\n 2=Muchas veces\n\n 3=Algunas veces\n\n 4=Pocas veces\n\n 5=Nunca";
            break;
        case 41: case 101: 
            //	CECAD // CECAD2
            patron = /[ 012345\s]/;
            strValid = "\n\n1=Omisión\n\n 1=Nunca\n\n 2=Casi nunca\n\n 3=Algunas veces\n\n 4=Casi siempre\n\n 5=Siempre\n\n Doble marca=La opción mayor";
            break;
        case 24:
            //	BIP
            patron = /[ 0123456\s]/;
            strValid = "\n\n0=Blanco \n\n1=Completamente cierta\n\n2=Bastante cierta \n\n3=Ligeramente más cierta que falsa \n\n4=Ligeramente más falsa que cierta \n\n5=Bastante falsa \n\n6=Completamente falsa\n\n";
            break;
        case 3: case 64:
            //	BFQ, ESQUIZO-Q
            patron = /[ 012345\s]/;
            strValid = "0=Blanco; 1=1; 2=2; 3=3; 4=4; 5=5";
            break;
        case 60:
            // Moldes
            patron = /[ 012345\s]/;
            strValid = "0=Blanco\n\n; 1=Muy en desacuerdo\n\n; 2=Algo en desacuerdo\n\n; 3=Ni una cosa ni la otra\n\n; 4=Algo de acuerdo\n\n; 5=Muy de acuerdo\n\n";
            break;
        case 61:
            //	TOM
            patron = /[ 01234567\s]/;
            strValid = "0=Blanco; 1=1; 2=2; 3=3; 4=4; 5=5; 6=6; 7=7";
            break;
        case 35:
            //	Cuida 
            patron = /[ 01234\s]/;
            strValid = "0=Blanco; 1=1; 2=2; 3=3; 4=4";
            break;
        case 37: case 38: case 39:
            // TAMAI
            patron = /[ 012\s]/;
            strValid = "0=Blanco; 1=Si; 2=No";
            break;
        case 15:
            //	IATP
            patron = /[ 01\s]/;
            strValid = "0=Blanco; 1=Marcado";
            break;
        case 42:
            // TAEL
            Preg = parseInt(field.name.substring(1, 4), 10);
            switch (Preg) {
                case 1: case 2: case 3: case 4: case 5: case 6: case 7: case 8: case 9: case 10: case 11: case 12: case 13: case 14: case 15:
                case 16: case 17: case 18: case 19: case 20: case 21: case 22: case 23: case 24: case 25: case 26: case 27:
                    patron = /[ 01234\s]/;
                    strValid = "1 = A; 2 = B; 3 = C; 4 = D;";
                    break;
                default:
                    patron = /[ 0123\s]/;
                    strValid = "1 = A; 2 = B; 3 = C;";
                    break;
            } // switch(Preg) TAEL
            break;
        case 56:
            // TAEL-B
            Preg = parseInt(field.name.substring(1, 4), 10);
            switch (Preg) {
                case 1: case 2: case 3: case 4: case 5: case 6: case 7: case 8: case 9: case 10: case 11: case 12: case 13: case 14: case 15:
                case 16: case 17: case 18: case 19: case 20: case 21: case 22: case 23: case 24: case 25: case 26: case 27:
                case 39: case 40: case 41: case 42: case 43: case 44: case 45: case 46: case 47: case 48: case 49: case 50: case 51: case 52:
                    patron = /[ 01234\s]/;
                    strValid = "1 = A; 2 = B; 3 = C; 4 = D;";
                    break;
                default:
                    patron = /[ 0123\s]/;
                    strValid = "1 = A; 2 = B; 3 = C;";
                    break;
            } // switch(Preg) TAEL
            break;
        case 46:
            // TAELIS N-1
            Preg = parseInt(field.name.substring(1, 4), 10);
            switch (Preg) {
                case 11: case 12: case 13: case 14: case 15: case 16: case 17: case 18: case 19: case 20: case 21:
                case 27: case 28: case 29: case 30: case 31:
                case 37: case 38: case 39: case 40: case 41:
                    patron = /[ 0123\s]/;
                    strValid = "1 = A; 2 = B; 3 = C;";
                    break;
                default:
                    patron = /[ 01234\s]/;
                    strValid = "1 = A; 2 = B; 3 = C; 4 = D;";
                    break;
            } // switch(Preg) TAELIS
            break;
        case 47:
            // TAELIS N-2
            Preg = parseInt(field.name.substring(1, 4), 10);
            switch (Preg) {
                case 13: case 14: case 15: case 16: case 17: case 18: case 19: case 20:
                case 32: case 33: case 34: case 35: case 36: case 37: case 38: case 39:
                    patron = /[ 0123\s]/;
                    strValid = "1 = A; 2 = B; 3 = C;";
                    break;
                default:
                    patron = /[ 01234\s]/;
                    strValid = "1 = A; 2 = B; 3 = C; 4 = D;";
                    break;
            } // switch(Preg) TAELIS
            break;

        case 40:
            //	CubreCavi
            Preg = parseInt(field.name.substring(1, 4), 10);
            switch (Preg) {
                case 1:
                    patron = /[ 01234\s]/;
                    strValid = "1 = Mucho; 2 = Bastante; 3 = Algo; 4 = Nada";
                    break;
                case 2: case 3: case 4: case 5: case 6: case 7: case 8: case 9: case 10: case 11: case 12: case 13: case 14: case 15:
                case 16: case 17: case 18: case 19: case 20: case 21: case 22: case 23:
                    patron = /[ 01234\s]/;
                    strValid = "1 = Nunca; 2 = Algunas veces; 3 = Bastante veces; 4 = Muchas veces";
                    break;
                case 24: case 25: case 26:
                    patron = /[ 01234\s]/;
                    strValid = "1 = Nunca; 2 = Casi nunca; 3 = A veces; 4 = Frecuentemente";
                    break;
                case 27:
                    patron = /[ 012\s]/;
                    strValid = "1 = Solo o No; 2 = Acompañado o sí";
                    break;
                case 28:
                    patron = /[ 0123\s]/;
                    strValid = "1 = Satisfecho; 2 = Indiferente; 3 = Insatisfecho";
                    break;
                case 29: case 30: case 31: case 32: case 33:
                    patron = /[ 012345\s]/;
                    strValid = "\n1 = Todos o casi todos los días.\n2 = Al menos 1 vez a la semana.\n3 = Al menos 1 vez al mes.\n4 = Nunca o casi nunca.\n5 = No tengo.\n";
                    break;
                case 34: case 35: case 36: case 37: case 38: case 39:
                    patron = /[ 01234\s]/;
                    strValid = "\n1 = Satisfecho\n2 = Indiferente\n3 = Insatisfecho\n4 = No tengo\n";
                    break;
                case 40:
                    patron = /[ 01234\s]/;
                    strValid = "\n1 = Muy bien; 2 = Bien; 3 = Regular; 4 = Mal";
                    break;
                case 41: case 42: case 43: case 44:
                    patron = /[ 01234\s]/;
                    strValid = "\n1 = Ninguna; 2 = Alguna; 3 = Bastante; 4 = Mucha";
                    break;
                case 45:
                    patron = /[ 012345\s]/;
                    strValid = "\n1 = Paso el día...\n2 = Realizo algunas actividades...\n3 = Realizo alguna actividad...\n4 = Realizo actividades...\n5 = Realizo entrenamiento...\n";
                    break;
                case 46: case 47: case 48: case 49: case 50: case 51: case 52: case 53: case 54: case 55: case 56:
                    patron = /[ 0123\s]/;
                    strValid = "\n1 = Frecuentemente; 2 = Ocasionalmente; 3 = Nunca";
                    break;
                case 57: case 58: case 59: case 60: case 61: case 62: case 63: case 64:
                    patron = /[ 0123\s]/;
                    strValid = "\n1 = Satisfecho; 2 = Indiferente; 3 = Insatisfecho;";
                    break;
                case 65:
                    patron = /[ 01234\s]/;
                    strValid = "\n1 = Mucho; 2 = Bastante; 3 = Algo; 4 = Nada";
                    break;
                case 66:
                    patron = /[ 0123456789\s]/;
                    strValid = "\n1 = Menos de estudios primarios (No sabe leer).\n2 = Menos de estudios primarios (Sabe leer).\n3 = Estudios primarios completos.\n4 = Formación profesional de 1er grado.\n5 = Formación profesional de 2do grado.\n6 = Bachiller elemental o E.G.B.\n7 = Bachiller superior, B.U.P. o C.O.U.\n8 = Estudios de grado medio.\n9 = Estudios universitarios o superiores.";
                    break;
                case 67:
                    patron = /[ 0123456789\s]/;
                    strValid = "\n1 = Hasta 300 €.\n2 = De 301 € a 450 €.\n3 = De 451 € a 600 €.\n4 = De 601 € a 900 €.\n5 = De 901 € a 1.200 €.\n6 = De 1.201 € a 1.600 €.\n7 = De 1.601 € a 2.100 €.\n8 = De 2.101 € a 2.700 €.\n9 = Más de 2.700 €.\n";
                    break;
                case 68:
                    patron = /[ 0123\s]/;
                    strValid = "\n1 = Frecuentemente; 2 = Ocasionalmente; 3 = Nunca";
                    break;
                case 69:
                    patron = /[ 01234\s]/;
                    strValid = "\n1 = Muy satisfecho\n2 = Bastante satisfecho\n3 = Algo satisfecho\n4 = Nada satisfecho";
                    break;
                case 70: case 71: case 72: case 73: case 74: case 75: case 76: case 77: case 78: case 79: case 80:
                    patron = /[ 0123\s]/;
                    strValid = ": 0, 1, 2 ó 3.\nAnote el orden de importancia que el sujeto ha concedido a este aspecto (1, 2 ó 3.).\nSi este aspecto no es uno de los tres más Pregados, introduzca el Preg 0.";
                    break;
                case 81:
                    patron = /[ 0123\s]/;
                    strValid = "\n1 = Alta; 2 = Media; 3 = Baja";
                    break;
            } // switch(Preg) CubreCavi
            break;
        case 21:
            //	FRIDA
            Preg = parseInt(field.name.substring(1, 4), 10);
            switch (Preg) {
                case 1: case 2: case 3: case 4: case 5: case 6: case 7: case 8: case 9: case 10: case 11: case 12: case 13: case 14: case 15:
                    patron = /[ 012345\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 1 a la pregunta 15, se debería contestar: \n \n 1 si han marcado: Se disgustaría mucho \n 2 si han marcado: Se disgustaría bastante\n 3 si han marcado: Se disgustaría\n 4 si han marcado: Se disgustaría sólo un poco\n 5 si han marcado: Le daría igual\n";
                    break;
                case 16: case 17: case 18: case 19: case 20:
                    patron = /[ 01234\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 16 a la pregunta 20, se debería contestar: \n \n 1 si han marcado: Nada \n 2 si han marcado: Poco\n 3 si han marcado: Bastante\n 4 si han marcado: Mucho\n";
                    break;
                case 21: case 22: case 23: case 24: case 25:
                    patron = /[ 0123\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 21 a la pregunta 25, se debería contestar: \n \n 1 si han marcado: Estoy de acuerdo \n 2 si han marcado: No estoy seguro\n 3 si han marcado: No es cierto\n ";
                    break;
                case 26: case 27:
                    patron = /[ 01234\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 26 a la pregunta 27, se debería contestar: \n \n 1 si han marcado: Nunca\n 2 si han marcado: Rara vez\n 3 si han marcado: Frecuentemente\n 4 Diariamente\n ";
                    break;
                case 28: case 29: case 30: case 31: case 32: case 33: case 34: case 35:
                    patron = /[ 012345\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 28 a la pregunta 35, se debería contestar: \n \n 1 si han marcado: Muy fácil\n 2 si han marcado: Fácil\n 3 si han marcado: Con cierta dificultad\n 4 si han marcado: Difícil\n 5 si han marcado: Muy difícil \n";
                    break;
                case 36: case 37: case 38: case 39:
                    patron = /[ 0123\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 36 a la pregunta 39, se debería contestar: \n \n 1 si han marcado: No \n 2 si han marcado: A veces\n 3 si han marcado: Siempre\n ";
                    break;
                case 40: case 41: case 42: case 43: case 44: case 45: case 46: case 47:
                    patron = /[ 01234\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 40 a la pregunta 47, se debería contestar: \n \n 1 si han marcado: Nada \n 2 si han marcado: Poco\n 3 si han marcado: Bastante\n 4 si han marcado: Mucho";
                    break;
                case 48: case 49: case 50: case 51:
                    patron = /[ 0123\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 48 a la pregunta 51, se debería contestar: \n \n 1 si han marcado: Estoy de acuerdo\n 2 si han marcado: No estoy seguro\n 3 si han marcado: No es cierto\n ";
                    break;
                case 52: case 53: case 54: case 55:
                    patron = /[ 01234\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 52 a la pregunta 55, se debería contestar: \n \n 1 si han marcado: Nunca\n 2 si han marcado: Rara vez\n 3 si han marcado: Casi siempre\n 4 si han marcado: Siempre\n";
                    break;
                case 56: case 57: case 58:
                    patron = /[ 012345\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 56 a la pregunta 58, se debería contestar: \n \n 1 si han marcado: Siempre\n 2 si han marcado: Casi siempre\n 3 si han marcado: Unas veces sí y otras no\n 4 si han marcado: Casi nunca\n 5 si han marcado: Nunca\n";
                    break;
                case 59:
                    patron = /[ 01234\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nEn la pregunta 59, se debería contestar: \n \n 1 si han marcado: No\n 2 si han marcado: Rara vez\n 3 si han marcado: Frecuentemente\n 4 si han marcado: Diariamente\n";
                    break;
                case 60: case 61: case 62: case 63: case 64: case 65:
                    patron = /[ 01234\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 60 a la pregunta 65, se debería contestar: \n \n 1 si han marcado: Nunca\n 2 si han marcado: Rara vez\n 3 si han marcado: Frecuentemente\n 4 si han marcado: Diariamente\n";
                    break;
                case 66: case 67: case 68: case 69:
                    patron = /[ 012345\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 66 a la pregunta 69, se debería contestar: \n \n 1 si han marcado: Muy bien\n 2 si han marcado: Bien\n 3 si han marcado: Bastante mal\n 4 si han marcado: Muy mal\n 5 si han marcado: No tengo relación\n";
                    break;
                case 70: case 71: case 72: case 73: case 74: case 75: case 76:
                    patron = /[ 01234\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 70 a la pregunta 76, se debería contestar: \n \n 1 si han marcado: Nunca\n 2 si han marcado: Algún día\n 3 si han marcado: Casi todos los días\n 4 si han marcado: Todos los días\n";
                    break;
                case 77: case 78: case 79: case 80: case 81:
                    patron = /[ 01234\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 77 a la pregunta 81, se debería contestar: \n \n 1 si han marcado: Muy de acuerdo\n 2 si han marcado: Bastante de acuerdo\n 3 si han marcado: En desacuerdo\n 4 si han marcado: Muy en desacuerdo\n";
                    break;
                case 82: case 83: case 84: case 85: case 86: case 87: case 88: case 89:
                    patron = /[ 012345\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 82 a la pregunta 89, se debería contestar: \n \n 1 si han marcado: Siempre\n 2 si han marcado: Casi siempre\n 3 si han marcado: Unas veces sí y otras no\n 4 si han marcado: Casi nunca\n 5 si han marcado: Nunca\n";
                    break;
                case 90:
                    patron = /[ 01234\s]/;
                    strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nEn la pregunta 90, se debería contestar: \n \n 1 si han marcado: De común acuerdo conmigo\n 2 si han marcado: Por mi padre y mi madre conjuntamente\n 3 si han marcado: Por mi padre o mi madre únicamente\n 4 si han marcado: Po mí mismo\n";
                    break;
            } // switch(Preg) FRIDA
            break;
        case 2700:
            //	AVE
            Preg = parseInt(field.name.substring(1, 4), 10);
            if (Preg < 51) {
                patron = /[ 0123\s]/;
                strValid = "\n\n0=Blanco\n\n 1=Nunca\n\n 2=Pocas veces\n\n 3=Muchas veces";
            }
            else {
                patron = /[ 012\s]/;
                strValid = "\n\n0=Blanco\n\n 1=SI\n\n 2=NO";
            }
            break;
        case 2:
            //	APQ
            Preg = parseInt(field.name.substring(1, 4));
            if ((Preg < 134) || (Preg > 160)) {
                patron = /[ 0123\s]/;
                strValid = "\n\n0=Blanco\n\n 1=V\n\n 2=?\n\n 3=F";
            }
            else {
                if (Preg < 146) {
                    patron = /[ 0123\s]/;
                    strValid = "\n\n0=Blanco\n\n 1=A\n\n 2=B\n\n 3=C";
                }
                else {
                    patron = /[ 012\s]/;
                    strValid = "\n\n0=Blanco\n\n 1=A\n\n 2=B";
                }
            }
            break;

        case 49:
            // DECORE
            patron = /[ 012345\s]/;
            strValid = "1=Muy en desacuerdo \n\n 2=En desacuerdo \n\n 3=Indeciso \n\n 4=De acuerdo \n\n 5=Muy de acuerdo";
            break;
        case 50:
            // MPS
            Preg = parseInt(field.name.substring(1, 4), 10);
            if (Preg < 127) {
                patron = /[ 012\s]/;
                strValid = "\n\n0=Blanco\n\n 1=Verdadero\n\n 2=Falso";
            }
            else {
                if (Preg < 148) {
                    patron = /[ 0123\s]/;
                    strValid = "\n\n0=Blanco\n\n 1=normal\n\n 2=mucho\n\n 3=muchísimo";
                }
                else {
                    patron = /[ 01234\s]/;
                    strValid = "\n\n0=Blanco\n\n 1=alguna\n\n2=normal\n\n 3=mucha\n\n 4=muchísima";
                }

            }
            break;
        case 66:
            // CTC-Azul
            patron = /[ 01234\s]/;
            strValid = "1=Totalmente de acuerdo \n\n 2=De acuerdo \n\n 3=En desacuerdo \n\n 4=En total desacuerdo";
            break;
        case 67:
            // CTC-Rojol
            patron = /[ 01234\s]/;
            strValid = "1=En total desacuerdo\n\n 2=En desacuerdo \n\n 3=De acuerdo \n\n 4=Totalmente de acuerdo ";
            break;

        case 78:
            //JSS
            patron = /[ *0123456789\s]/;
            strValid = "\n\n*=Omisión\n\n0=0\n\n1=1\n\n2=2\n\n3=3\n\n4=4\n\n5=5\n\n6=6\n\n7=7\n\n8=8\n\n9=9/9+";
            break;
        case 83:
            //PCL-R
            patron = /[ 0123\s]/;
            strValid = "\n\n0=No\n\n1=Tal vez\n\n2=Si\n\n3=Omitir";
            break;
		case 89: case 90: case 91: case 92: case 93:
            //	ABAS-II
            patron = /[ 01234\s]/;
            strValid = "0=Blanco; 1=No es capaz; 2=Nunca cuando es necesario; 3=A veces cuando es necesario; 4=Siempre cuando es necesario";
            break;

		case 96: case 97: 
            //	BRIEF
            patron = /[ 0123\s]/;
            strValid = "0=Blanco; 1=Nunca; 2=A veces; 3=Frecuentemente";
            break;


	
	} // switch (idTest)

    if ((idTest == 78) && (tecla == 106)) tecla = tecla - 64; // El * se usa en el JSS para las omisiones
    if ((tecla >= 96) && (tecla <= 105)) tecla = tecla - 48; // Teclado númerico
    
    ok = patron.test(String.fromCharCode(tecla));
    idx = parseInt(field.name.substring(1, 4), 10);
    idx += 9;
    if (!ok) {
        alert("Sólo son válidos los valores " + strValid);
        field.value = "";
        return false;
    }
    else {
        field.value = String.fromCharCode(tecla);
        if (document.forms[0].elements[idx].name.substring(1, 0) == "p") {
            document.forms[0].elements[idx].select();
        }
        else {
            document.getElementById('AspGridSave1').focus()
        }
        return true;
    }
		} // switch (tecla)
}

function ValidateRespTetraTri(field, e, idTest) {
    var patron;
    var strValid;
    var ok;
    var tecla;
    var idx;
    var Preg;
    var patron = /[ 0123\s]/;
    var strValid = "0=Blanco; 1=Opción 1; 2=Opción 2; 3=Opción 3";

    tecla = (window.Event) ? e.which : e.keyCode;
    switch (tecla) {
        case 37: case 38: case 39: case 40: // flechas
        case 8: // retroceso
            return true;
            break;
        case 13: // return
            return true;
            break;
        default:
            switch (idTest) { // IdTest
                case 79: case 80:
                    // SPV, SIV
                    patron = /[ 0123\s]/;
                    strValid = "0=Blanco; 1=Opción 1, 2=Opción 2 y 3=Opción 3";
                    break;
                case 82:
                    // PPG-IPG
                    patron = /[ 01234\s]/;
                    strValid = "0=Blanco; 1=Opción 1, 2=Opción 2, 3=Opción 3 y 4=Opción 4";
                    break;
                
            } // switch (idTest)
            if ((tecla >= 96) && (tecla <= 105)) tecla = tecla - 48; // Teclado númerico
            ok = patron.test(String.fromCharCode(tecla));
            idx = parseInt(field.name.substring(1, 4), 10);
            idx += 9;
            if (!ok) {
                alert("Sólo son válidos los valores " + strValid);
                field.value = "";
                return false;
            }
            else {
                field.value = String.fromCharCode(tecla);
                if (document.forms[0].elements[idx].name.substring(1, 0) == "p") {

                    if (idx % 2 == 0) { // Comprobamos la parte negativa 
                        if (document.forms[0].elements[idx - 1].value == document.forms[0].elements[idx].value) {
                            ok = false;
                        }
                    }
                    else { // Comprobamos la parte positiva
                        if (document.forms[0].elements[idx - 2].value == document.forms[0].elements[idx - 1].value) {
                            ok = false;
                        }
                    }
                    if (!ok) {
                        alert("No se puede contestar la misma opción en la parte positiva y en la negativa");
                        document.forms[0].elements[idx - 1].value='0';
                        document.forms[0].elements[idx - 1].select();
                    }
                    else {
                        document.forms[0].elements[idx].select();
                    }
                    //alert(document.forms[0].elements[idx - 1].value.toString());
                    
                }
                else {
                    document.getElementById('AspGridSave1').focus()
                }
                return true;
            }
    } // switch (tecla)
}

	function ValidateResp(field,idTest) {
	var valid = "01234";
	var strValid = "0=Blanco; 1=A; 2=B; 3=C; 4=D";
	var ok = "si";
	var temp;
	var Valor;
		
/*		if (window.event.keyCode == 9) {
			window.event.keyCode = 0;
			return false;
			}
		else{
			/*
			BASC, MCMI-III, MACI, MIPS, CPS
			*/
			if ((idTest == 32) || (idTest == 33) ||(idTest == 8) || (idTest == 23) || (idTest == 36)|| (idTest == 6)){
				valid = "012";
				strValid = "0=Blanco; 1=Verdadero; 2=Falso";
			}
			/*
			16PF-5
			*/
			if (idTest == 1) {
				valid = "0123";
				strValid = "0=Blanco; 1=A; 2=B; 3=C";
			}
			/*
			FB360
			*/
			if (idTest == 17) {
				valid = "01234";
				strValid = "0=Blanco; 1=A; 2=B; 3=C; 4=D";
			}
			/*
			CTI / CEA / NEO-PI-R 
			*/
			if ((idTest == 16) || (idTest == 4) || (idTest == 34)){
				valid = "012345";
				strValid = "0=Blanco; 1=A; 2=B; 3=C; 4=D; 5=E";
			}
			/*
			BFQ-NA
			*/
			if (idTest == 22) {
				valid = "012345";
				strValid = "\n\n0=Blanco\n\n 1=Casi siempre\n\n 2=Muchas veces\n\n 3=Algunas veces\n\n 4=Pocas veces\n\n 5=Nunca";
			}
			/*
			CEACD
			*/
			if (idTest == 41) {
				valid = "012345";
				strValid = "\n\n1=Omisión\n\n 1=Nunca\n\n 2=Casi nunca\n\n 3=Algunas veces\n\n 4=Casi siempre\n\n 5=Siempre\n\n Doble marca=La opción mayor";
			}

			/*
			BIP
			*/
			if (idTest == 24) {
				valid = "0123456";
				strValid = "\n\n0=Blanco \n\n1=Completamente cierta\n\n2=Bastante cierta \n\n3=Ligeramente más cierta que falsa \n\n4=Ligeramente más falsa que cierta \n\n5=Bastante falsa \n\n6=Completamente falsa\n\n";
			}
			/*
			BFQ
			*/
			if (idTest == 3) {
				valid = "012345";
				strValid = "0=Blanco; 1=1; 2=2; 3=3; 4=4; 5=5";
			}
			/*
			Cuida
			*/
			if (idTest == 35) {
				valid = "01234";
				strValid = "0=Blanco; 1=1; 2=2; 3=3; 4=4";
			}
			/*
			TAMAI
			*/
			if ((idTest == 37) || (idTest == 38) || (idTest == 39)) {
				valid = "012";
				strValid = "0=Blanco; 1=Si; 2=No";
			}
			/*
			IATP
			*/
			if (idTest == 15) {
				valid = "01";
				strValid = "0=Blanco; 1=Marcado";
			}


			/* TAEL */
			if (idTest == 42) {
				var iLen = String(field.name).length;
				valor = parseInt(String(field.name).substring(iLen, iLen - 3),10);
				switch(valor) {
					case 1:case 2:case 3:case 4:case 5:case 6:case 7:case 8:case 9:case 10:case 11:case 12:case 13:case 14:case 15:
					case 16:case 17:case 18:case 19:case 20:case 21:case 22:case 23:case 24:case 25:case 26:case 27:
						valid = "01234";
						strValid = "1 = A; 2 = B; 3 = C; 4 = D;";
						break;
					default:
						valid = "0123";
						strValid = "1 = A; 2 = B; 3 = C;";
						break;
				}
			}

			/*
			CubreCavi
			*/
			if (idTest == 40) {
				var iLen = String(field.name).length;
				valor = parseInt(String(field.name).substring(iLen, iLen - 3),10);
				switch(valor) {
					case 1:
						valid = "01234";
						strValid = "1 = Mucho; 2 = Bastante; 3 = Algo; 4 = Nada";
						break;

					case 2:case 3:case 4:case 5:case 6:case 7:case 8:case 9:case 10:case 11:case 12:case 13:case 14:case 15:
					case 16:case 17:case 18:case 19:case 20:case 21:case 22:case 23:
						valid = "01234";
						strValid = "1 = Nunca; 2 = Algunas veces; 3 = Bastante veces; 4 = Muchas veces";
						break;
					case 24:case 25:case 26:
						valid = "01234";
						strValid = "1 = Nunca; 2 = Casi nunca; 3 = A veces; 4 = Frecuentemente";
						break;
					case 27:
						valid = "012";
						strValid = "1 = Solo o No; 2 = Acompañado o sí";
						break;
					case 28:
						valid = "0123";
						strValid = "1 = Satisfecho; 2 = Indiferente; 3 = Insatisfecho";
						break;
					case 29: case 30: case 31: case 32: case 33:
						valid = "012345";
						strValid = "\n1 = Todos o casi todos los días.\n2 = Al menos 1 vez a la semana.\n3 = Al menos 1 vez al mes.\n4 = Nunca o casi nunca.\n5 = No tengo.\n";
						break;
					case 34: case 35: case 36: case 37: case 38: case 39:
						valid = "01234";
						strValid = "\n1 = Satisfecho\n2 = Indiferente\n3 = Insatisfecho\n4 = No tengo\n";
						break;					
					case 40:
						valid = "01234";
						strValid = "\n1 = Muy bien; 2 = Bien; 3 = Regular; 4 = Mal";
						break;
					case 41: case 42: case 43: case 44:
						valid = "01234";
						strValid = "\n1 = Ninguna; 2 = Alguna; 3 = Bastante; 4 = Mucha";
						break;
					case 45:
						valid = "012345";
						strValid = "\n1 = Paso el día...\n2 = Realizo algunas actividades...\n3 = Realizo alguna actividad...\n4 = Realizo actividades...\n5 = Realizo entrenamiento...\n";
						break;
					case 46: case 47: case 48: case 49: case 50: case 51: case 52: case 53: case 54: case 55: case 56:
						valid = "0123";
						strValid = "\n1 = Frecuentemente; 2 = Ocasionalmente; 3 = Nunca";
						break;
					case 57: case 58: case 59: case 60: case 61: case 62: case 63: case 64:
						valid = "0123";
						strValid = "\n1 = Satisfecho; 2 = Indiferente; 3 = Insatisfecho;";
						break;
					case 65:
						valid = "01234";
						strValid = "\n1 = Mucho; 2 = Bastante; 3 = Algo; 4 = Nada";
						break;
					case 66:
						valid = "0123456789";
						strValid = "\n1 = Menos de estudios primarios (No sabe leer).\n2 = Menos de estudios primarios (Sabe leer).\n3 = Estudios primarios completos.\n4 = Formación profesional de 1er grado.\n5 = Formación profesional de 2do grado.\n6 = Bachiller elemental o E.G.B.\n7 = Bachiller superior, B.U.P. o C.O.U.\n8 = Estudios de grado medio.\n9 = Estudios universitarios o superiores.";
						break;
					case 67:
						valid = "0123456789";
						strValid = "\n1 = Hasta 300 €.\n2 = De 301 € a 450 €.\n3 = De 451 € a 600 €.\n4 = De 601 € a 900 €.\n5 = De 901 € a 1.200 €.\n6 = De 1.201 € a 1.600 €.\n7 = De 1.601 € a 2.100 €.\n8 = De 2.101 € a 2.700 €.\n9 = Más de 2.700 €.\n";
						break;
					case 68:
						valid = "0123";
						strValid = "\n1 = Frecuentemente; 2 = Ocasionalmente; 3 = Nunca";
						break;
					case 69:
						valid = "01234";
						strValid = "\n1 = Muy satisfecho\n2 = Bastante satisfecho\n3 = Algo satisfecho\n4 = Nada satisfecho";
						break;
					case 70: case 71: case 72: case 73: case 74: case 75: case 76: case 77: case 78: case 79: case 80:
						valid = "0123";
						strValid = ": 0, 1, 2 ó 3.\nAnote el orden de importancia que el sujeto ha concedido a este aspecto (1, 2 ó 3.).\nSi este aspecto no es uno de los tres más valorados, introduzca el valor 0.";
						break;
					case 81:
						valid = "0123";
						strValid = "\n1 = Alta; 2 = Media; 3 = Baja";
						break;

				}
			}
			
			
			/*
			FRIDA
			*/
			if (idTest == 21) {
				var iLen = String(field.name).length;
				valor = parseInt(String(field.name).substring(iLen, iLen - 3),10);
				switch(valor) {
					case 1:case 2:case 3:case 4:case 5:case 6:case 7:case 8:
					case 9:case 10:case 11:case 12:case 13:case 14:case 15:
						valid = "012345";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 1 a la pregunta 15, se debería contestar: \n \n 1 si han marcado: Se disgustaría mucho \n 2 si han marcado: Se disgustaría bastante\n 3 si han marcado: Se disgustaría\n 4 si han marcado: Se disgustaría sólo un poco\n 5 si han marcado: Le daría igual\n";
						break;
					case 16:case 17:case 18:case 19:case 20:
						valid = "01234";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 16 a la pregunta 20, se debería contestar: \n \n 1 si han marcado: Nada \n 2 si han marcado: Poco\n 3 si han marcado: Bastante\n 4 si han marcado: Mucho\n";
						break;
					case 21:case 22:case 23:case 24:case 25:
						valid = "0123";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 21 a la pregunta 25, se debería contestar: \n \n 1 si han marcado: Estoy de acuerdo \n 2 si han marcado: No estoy seguro\n 3 si han marcado: No es cierto\n ";
						break;
					case 26:case 27:
						valid = "01234";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 26 a la pregunta 27, se debería contestar: \n \n 1 si han marcado: Nunca\n 2 si han marcado: Rara vez\n 3 si han marcado: Frecuentemente\n 4 Diariamente\n ";
						break;
					case 28:case 29:case 30:case 31:case 32:case 33:case 34:case 35:
						valid = "012345";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 28 a la pregunta 35, se debería contestar: \n \n 1 si han marcado: Muy fácil\n 2 si han marcado: Fácil\n 3 si han marcado: Con cierta dificultad\n 4 si han marcado: Difícil\n 5 si han marcado: Muy difícil \n";
						break;
					case 36:case 37:case 38:case 39:
						valid = "0123";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 36 a la pregunta 39, se debería contestar: \n \n 1 si han marcado: No \n 2 si han marcado: A veces\n 3 si han marcado: Siempre\n ";
						break;
					case 40:case 41:case 42:case 43:case 44:case 45:case 46:case 47:
						valid = "01234";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 40 a la pregunta 47, se debería contestar: \n \n 1 si han marcado: Nada \n 2 si han marcado: Poco\n 3 si han marcado: Bastante\n 4 si han marcado: Mucho";
						break;
					case 48:case 49:case 50:case 51:
						valid = "0123";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 48 a la pregunta 51, se debería contestar: \n \n 1 si han marcado: Estoy de acuerdo\n 2 si han marcado: No estoy seguro\n 3 si han marcado: No es cierto\n ";
						break;
					case 52:case 53:case 54:case 55:
						valid = "01234";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 52 a la pregunta 55, se debería contestar: \n \n 1 si han marcado: Nunca\n 2 si han marcado: Rara vez\n 3 si han marcado: Casi siempre\n 4 si han marcado: Siempre\n";
						break;
					case 56:case 57:case 58:
						valid = "012345";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 56 a la pregunta 58, se debería contestar: \n \n 1 si han marcado: Siempre\n 2 si han marcado: Casi siempre\n 3 si han marcado: Unas veces sí y otras no\n 4 si han marcado: Casi nunca\n 5 si han marcado: Nunca\n";
						break;
					case 59:
						valid = "01234";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nEn la pregunta 59, se debería contestar: \n \n 1 si han marcado: No\n 2 si han marcado: Rara vez\n 3 si han marcado: Frecuentemente\n 4 si han marcado: Diariamente\n";
						break;
					case 60:case 61:case 62:case 63:case 64:case 65:
						valid = "01234";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 60 a la pregunta 65, se debería contestar: \n \n 1 si han marcado: Nunca\n 2 si han marcado: Rara vez\n 3 si han marcado: Frecuentemente\n 4 si han marcado: Diariamente\n";
						break;
					case 66:case 67:case 68:case 69:
						valid = "012345";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 66 a la pregunta 69, se debería contestar: \n \n 1 si han marcado: Muy bien\n 2 si han marcado: Bien\n 3 si han marcado: Bastante mal\n 4 si han marcado: Muy mal\n 5 si han marcado: No tengo relación\n";
						break;
					case 70:case 71:case 72:case 73:case 74:case 75:case 76:
						valid = "01234";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 70 a la pregunta 76, se debería contestar: \n \n 1 si han marcado: Nunca\n 2 si han marcado: Algún día\n 3 si han marcado: Casi todos los días\n 4 si han marcado: Todos los días\n";
						break;
					case 77:case 78:case 79:case 80:case 81:
						valid = "01234";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 77 a la pregunta 81, se debería contestar: \n \n 1 si han marcado: Muy de acuerdo\n 2 si han marcado: Bastante de acuerdo\n 3 si han marcado: En desacuerdo\n 4 si han marcado: Muy en desacuerdo\n";
						break;
					case 82:case 83:case 84:case 85:case 86:case 87:case 88:case 89:
						valid = "012345";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nDe la pregunta 82 a la pregunta 89, se debería contestar: \n \n 1 si han marcado: Siempre\n 2 si han marcado: Casi siempre\n 3 si han marcado: Unas veces sí y otras no\n 4 si han marcado: Casi nunca\n 5 si han marcado: Nunca\n";
						break;
					case 90:
						valid = "01234";
						strValid = "que correspondan al ordinal de la respuesta dada a cada pregunta. \n\nEn la pregunta 90, se debería contestar: \n \n 1 si han marcado: De común acuerdo conmigo\n 2 si han marcado: Por mi padre y mi madre conjuntamente\n 3 si han marcado: Por mi padre o mi madre únicamente\n 4 si han marcado: Po mí mismo\n";
						break;
				}
			}
			/*
			AVE
			*/
			if (idTest == 2700) {
				var iLen = String(field.name).length;
				valor = parseInt(String(field.name).substring(iLen, iLen - 3),10);
				if (valor < 51) {
					valid = "0123";
					strValid = "\n\n0=Blanco\n\n 1=Nunca\n\n 2=Pocas veces\n\n 3=Muchas veces";
				}
				else{
					valid = "012";
					strValid = "\n\n0=Blanco\n\n 1=SI\n\n 2=NO";
				}
			}
			/*
			APQ
			*/
			if (idTest == 2) {
				var iLen = String(field.name).length;
				valor = parseInt(String(field.name).substring(iLen, iLen - 3),10);
				if ((valor < 134) || (valor > 160) ){
					valid = "0123";
					strValid = "\n\n0=Blanco\n\n 1=V\n\n 2=?\n\n 3=F";
				}
				else{
					if (valor<146){
						valid = "0123";
						strValid = "\n\n0=Blanco\n\n 1=A\n\n 2=B\n\n 3=C";
					}
					else{
						valid = "012";
						strValid = "\n\n0=Blanco\n\n 1=A\n\n 2=B";
					}
				}
			}

			/*
			Cuestionarios de JCYL
			*/
			if (idTest == 9999) {
				var iLen = String(field.name).length;
				valor = parseInt(String(field.name).substring(iLen, iLen - 3),10);
				valid = "0123456789-";
				strValid = "\n\n0=Blanco\n\n";
			}

			for (var i=0; i<field.value.length; i++) {
				temp = "" + field.value.substring(i, i+1);
				if (valid.indexOf(temp) == "-1") ok = "no";
			}
			
			if (ok == "no") {
				alert("Sólo son válidos los valores " + strValid);
				field.focus();
				field.select();
				}
			else{
				if (field.value!="") {
					SaltaResp(field);
				}
			}

/*		}*/
	}


	function SaltaResp(field) {
	var NomCampo;
	var Idx = 0;
	if (IE4)
	{
	
		NomCampo = document.forms[0].elements[field.name].name;
		idx = parseInt(NomCampo.substring(4,1),10) + 9;
		NomCampo = document.forms[0].elements[idx].name;

		if (NomCampo.substring(1,0)=="p") {
			document.forms[0].elements[idx].select();
			document.forms[0].elements[idx].focus();
			}
		else
			{
			document.forms[0].elements["AspGridSave1"].focus();
			}
	}
	else{

		NomCampo = document.getElementById(field.name);
		idx = parseInt(NomCampo.substring(4,1),10) + 9;
		NomCampo = document.forms[0].elements[idx].name;
		alert(NomCampo);
		document.getElementById(NomCampo).focus();
		document.getElementById(NomCampo).select();
	}

	}

	function ValidateRespJCYL(field) {
	var valid = "0123456789-";
	var strValid = "0=Blanco;";
	var ok = "si";
	var temp;
	var Valor;
		
		if (window.event.keyCode == 9) {
			window.event.keyCode = 0;
			return false;
			}
		else{
			var iLen = String(field.name).length;
			valor = parseInt(String(field.name).substring(iLen, iLen - 3),10);
	
			for (var i=0; i<field.value.length; i++) {
				temp = "" + field.value.substring(i, i+1);
				if (valid.indexOf(temp) == "-1") ok = "no";
			}
			
			if (ok == "no") {
				alert("Sólo son válidos los valores " + strValid);
				field.focus();
				field.select();
				}
			else{
				if (field.value!="") {
					SaltaRespJCYL(field);
				}
			}
		}
	}

	function SaltaRespJCYL(field) {
	var NomCampo;
	var Idx = 0;
	if (IE4)
	{
	
		NomCampo = document.forms[0].elements[field.name].name;
		idx = parseInt(NomCampo.substring(4,1),10) + 5;
		NomCampo = document.forms[0].elements[idx].name;

		if (NomCampo.substring(1,0)=="p") {
			document.forms[0].elements[idx].select();
			document.forms[0].elements[idx].focus();
			}
		else
			{
			document.forms[0].elements["AspGridSave1"].focus();
			}
	}
	else{
		alert("entra");
		NomCampo = document.getElementById(field.name);
		idx = parseInt(NomCampo.substring(4,1),10) + 5;
		NomCampo = document.forms[0].elements[idx].name;
		alert(NomCampo);
		document.getElementById(NomCampo).focus();
		document.getElementById(NomCampo).select();
	}

	}


	function SaltaCampo(Field) {
	var Idx = 0;
	
		NomCampo =name;
		idx = document.forms[0].elements[field.name].TabIndex + 1
		document.forms[0].elements[idx].focus();
	}

	function Confirmar(intPreguntas) {
	var strTexto;
	var intI;
	var intInicio;
	var intFin;
		
		for (intI=0; intI<document.forms[0].elements.length;intI++){

			if (document.forms[0].elements[intI].name == "p001"){
				intInicio = intI;
			}
		}
		intFin = intInicio + intPreguntas - 1;
		document.forms[0].elements["FIELD6"].value = ""
		for (intI=intInicio;intI<=intFin;intI++){	
			strTexto = document.forms[0].elements[intI].value;
			if (strTexto == "") {
				strTexto = "0"
			}
			document.forms[0].elements["FIELD6"].value += strTexto;
		}
		if (confirm("¿Desea grabar las respuestas de este sujeto?" )) {
			return true;
		}
		else {
			return false;
		}
	}

	function ConfirmarSuposiciones(intPreguntas) {
	var strTexto;
	var intI;
	var intInicio;
	var intFin;

		for (intI=0; intI<document.forms[0].elements.length;intI++){

			if (document.forms[0].elements[intI].name == "p001"){
				intInicio = intI;
			}
		}
		intFin = intInicio + intPreguntas - 1;
		document.forms[0].elements["FIELD3"].value = ""
		for (intI=intInicio;intI<=intFin;intI++){	
			/*strTexto = document.forms[0].elements[intI].value;*/
			if (document.forms[0].elements[intI].checked==true) {
				strTexto = "1";
			}
			else
			{
				strTexto="0";
			}
			
			document.forms[0].elements["FIELD3"].value += strTexto;
		}

		if (confirm("¿Desea grabar las suposiciones de este sujeto?" )) {
			return true;
		}
		else {
			return false;
		}
	}

	function ConfirmarJCYL(intPreguntas) {
	var strTexto;
	var intI;
	var intInicio;
	var intFin;
		
		for (intI=0; intI<document.forms[0].elements.length;intI++){

			if (document.forms[0].elements[intI].name == "p001"){
				intInicio = intI;
			}
		}
		intFin = intInicio + intPreguntas - 1;
		document.forms[0].elements["FIELD2"].value = ""
		for (intI=intInicio;intI<=intFin;intI++){	
			strTexto = document.forms[0].elements[intI].value;
			if (strTexto == "") {
				strTexto = "0"
			}
			document.forms[0].elements["FIELD2"].value += strTexto;
		}
		if (confirm("¿Desea grabar las respuestas?")) {
			return true;
		}
		else {
			return false;
		}
	}

	function ConfirmarApl(intPreguntas) {
	var strTexto;
	var strTexto1;
	var url;
	var intI;
	var intJ;
	var intInicio;
	var intFin;
		intI = 0;
		while (intI<document.forms[0].elements.length)
		{
				if (document.forms[0].elements[intI].name == "resp1")
					{
						intInicio = intI;
						intI =document.forms[0].elements.length;
					}
			intI++
		}

		intFin = intInicio + (intPreguntas*5)  - 1;

		document.forms[0].elements["resp"].value = "";
		intI = intInicio;
		strTexto1="";
		while(intI <= intFin)
			{
				strTexto = "";
				for (intJ=0;intJ<5;intJ++)
					{
						if  (document.forms[0].elements[intI+intJ].checked)
							{
								strTexto = document.forms[0].elements[intI+intJ].value;
							}
					}
				if (strTexto == "") 
					{
						strTexto = "0";
					}
				strTexto1 = strTexto1 + strTexto
				document.forms[0].elements["resp"].value += strTexto;
				intI = intI + 5;
			}
			url='grabaparcial.asp?resp='+strTexto1;
		document.location.href=url;
	}


	function ConfirmarAplicacion(intPreguntas,Alternativas) {
	var strTexto;
	var strTexto1;
	var url;
	var intI;
	var intJ;
	var intInicio;
	var intFin;
		intI = 0;
		while (intI<document.forms[0].elements.length)
		{
				if (document.forms[0].elements[intI].name == "resp1")
					{
						intInicio = intI;
						intI =document.forms[0].elements.length;
					}
			intI++
		}

		intFin = intInicio + (intPreguntas*Alternativas)  - 1;

		document.forms[0].elements["resp"].value = "";
		intI = intInicio;
		strTexto1="";
		while(intI <= intFin)
			{
				strTexto = "";
				for (intJ=0;intJ<Alternativas;intJ++)
					{
						if  (document.forms[0].elements[intI+intJ].checked)
							{
								strTexto = document.forms[0].elements[intI+intJ].value;
							}
					}
				if (strTexto == "") 
					{
						strTexto = "0";
					}
				strTexto1 = strTexto1 + strTexto
				document.forms[0].elements["resp"].value += strTexto;
				intI = intI + Alternativas;
			}
			url='grabaparcial.asp?resp='+strTexto1;
		document.location.href=url;
	}


	function ConfirmarAplicacionJCYL(intPreguntas) {
	var strTexto;
	var strTexto1;
	var url;
	var intI;
	var intJ;
	var intInicio;
	var intFin;
	var Alternativas;
		intI = 0;
		Alternativas = 11;
		while (intI<document.forms[0].elements.length)
		{
				if (document.forms[0].elements[intI].name == "resp1")
					{
						intInicio = intI;
						intI =document.forms[0].elements.length;
					}
			intI++
		}

		intFin = intInicio + (intPreguntas*Alternativas)  - 1;

		document.forms[0].elements["resp"].value = "";
		intI = intInicio;
		strTexto1="";
		while(intI <= intFin)
			{
				strTexto = "";
				for (intJ=0;intJ<Alternativas;intJ++)
					{
						if  (document.forms[0].elements[intI+intJ].checked)
							{
								strTexto = document.forms[0].elements[intI+intJ].value;
							}
					}

				if (strTexto == "" || strTexto == "11") 
					{
						strTexto = "-";
					}
				if (strTexto == "10") 
					{
						strTexto = "0";
					}
				strTexto1 = strTexto1 + strTexto
				document.forms[0].elements["resp"].value += strTexto;
				intI = intI + Alternativas;
			}
			url='grabar.asp?resp='+strTexto1;
		document.location.href=url;
	}

	function PonFocusBaremo(Editar) {
		if (Editar=="verdadero"){
		document.forms[0].FIELD8.focus();
		}
	 }

	function PonFocusNombre() {
		document.forms[0].nombre.focus();
		document.forms[0].nombre.select();
	 }

	function PonFocusResp1() {
		document.forms[0].p001.focus();
		document.forms[0].p001.select();
	 }

	function PonFocusTarjeta() {
			document.forms[0].Tarjeta.focus();
	 }

	function PonFocusCodigo() {
		document.forms["frmPpal"].Codigo.focus();
	 }

	function PonFocusCodigoR() {
			document.forms[0].CodigoR.focus();
	 }

	 function validarFormCambioP(){
		if ((document.frmPpal.PassWord.value == '') || (document.frmPpal.PassWord1.value == '') || (document.frmPpal.PassWord2.value == ''))
		{
			alert("Debe introducir una contraseña válida");
			return false;
		}
		else
		{
			return true;
		}
	}

	 function validarForm(){
		if ((document.frmPpal.Codigo.value == '') || (document.frmPpal.userPass.value == ''))
		{
			alert("Debe introducir su código de usuario y contraseña");
			return false;
		}
		else
		{
			return true;
		}
	}

	 function validarFormR(){
		if ((document.frmPpalR.CodigoR.value == '') || (document.frmPpalR.userPassR.value == ''))
		{
			alert("Debe introducir su código de tarjeta y contraseña");
			return false;
		}
		else
		{
			return true;
		}
	}

	function Eliminar() {
		if (confirm("¿Está seguro de eliminar todos los sujetos de su base de datos?")) {
			return true;
		}
		else {
			return false;
		}
	}

	function NoAutoInforme()
	{
	  if (document.forms[0].test.value.substr(0,1) == 'S') {
	    texto.style.display = 'none';
	    Aplicador.style.display = 'none';
	    
	  } else {
	    texto.style.display = '';
	    Aplicador.style.display = '';
	    
	  }
	}

	function GraficosNo()
	{
	    printgif.style.display = 'none';
	    atrasgif.style.display = 'none';
	    menugif.style.display = 'none';
	    finsesiongif.style.display = 'none';
	    acerca.style.display = 'none';
	    usos.style.display = 'none';	    
	}

	function GraficosSi()
	{
	    printgif.style.display = '';
	    atrasgif.style.display = '';
	    menugif.style.display = '';
	    finsesiongif.style.display = '';
	    acerca.style.display = '';
	    usos.style.display = '';    
	}

	/**
    * definimos las varables globales que van a contener la fecha completa, cada una de sus partes
    * y los dias correspondientes al mes de febrero segun sea el año bisiesto o no
    */
    var a, mes, dia, anyo, febrero;
    
    /**
    * funcion para comprobar si una año es bisiesto
    * argumento anyo > año extraido de la fecha introducida por el usuario
    */
    function anyoBisiesto(anyo)
    {
        /**
        * si el año introducido es de dos cifras lo pasamos al periodo de 1900. Ejemplo: 25 > 1925
        */
        if (anyo < 100)
            var fin = anyo + 1900;
        else
            var fin = anyo ;

        /*
        * primera condicion: si el resto de dividir el año entre 4 no es cero > el año no es bisiesto
        * es decir, obtenemos año modulo 4, teniendo que cumplirse anyo mod(4)=0 para bisiesto
        */
        if (fin % 4 != 0)
            return false;
        else
        {
            if (fin % 100 == 0)
            {
                /**
                * si el año es divisible por 4 y por 100 y divisible por 400 > es bisiesto
                */
                if (fin % 400 == 0)
                {
                    return true;
                }
                /**
                * si es divisible por 4 y por 100 pero no lo es por 400 > no es bisiesto
                */
                else
                {
                    return false;
                }
            }
            /**
            * si es divisible por 4 y no es divisible por 100 > el año es bisiesto
            */
            else
            {
                return true;
            }
        }
    }

	/**
    
	* funcion principal de validacion de la fecha
    * argumento fecha > cadena de texto de la fecha introducida por el usuario
    */
    function validaFecha( )
    {
       /**
       * obtenemos la fecha introducida y la separamos en dia, mes y año
       */
       a=document.forms[0].FIELD5.value;
       dia=a.split("/")[0];
       mes=a.split("/")[1];
       anyo=a.split("/")[2];
		if( (isNaN(dia)==true) || (isNaN(mes)==true) || (isNaN(anyo)==true) )
		{
			alert("La fecha introducida debe estar formada sólo por números");
		//	return;
		}
		if(anyoBisiesto(anyo))
			   febrero=29;
		else
			   febrero=28;
		/**
		* si el mes introducido es negativo, 0 o mayor que 12 > alertamos y detenemos ejecucion
		*/
		if ((mes<1) || (mes>12))
		{
           alert("El mes introducido no es valido. Por favor, introduzca un mes correcto");
           document.forms[0].FIELD5.focus();
           document.forms[0].FIELD5.select();
		//   return;
		}
		/**
		* si el mes introducido es febrero y el dia es mayor que el correspondiente 
		* al año introducido > alertamos y detenemos ejecucion
		*/
		if ((mes==2) && ((dia<1) || (dia>febrero)))
		{
           alert("El dia introducido no es valido. Por favor, introduzca un dia correcto");
           document.forms[0].FIELD5.focus();
           document.forms[0].FIELD5.select();
		// return;
		}
		/**
		* si el mes introducido es de 31 dias y el dia introducido es mayor de 31 > alertamos y detenemos ejecucion
		*/
		if (((mes==1) || (mes==3) || (mes==5) || (mes==7) || (mes==8) || (mes==10) || (mes==12)) && ((dia<1) || (dia>31)))
		{
           alert("El dia introducido no es valido. Por favor, introduzca un dia correcto");
           document.forms[0].FIELD5.focus();
           document.forms[0].FIELD5.select();
		}
		/**
		* si el mes introducido es de 30 dias y el dia introducido es mayor de 301 > alertamos y detenemos ejecucion
		*/
		if (((mes==4) || (mes==6) || (mes==9) || (mes==11)) && ((dia<1) || (dia>30)))
		{
           alert("El dia introducido no es valido. Por favor, introduzca un dia correcto");
           document.forms[0].FIELD5.focus();
           document.forms[0].FIELD5.select();
           return;
		}
		/**
		* si el mes año introducido es menor que 1900 o mayor que 2010 > alertamos y detenemos ejecucion
		* NOTA: estos valores son a eleccion vuestra, y no constituyen por si solos fecha erronea
		*/
		if ((anyo<1900) || (anyo>2100))
		{
           alert("El año introducido no es valido. Por favor, introduzca un año entre 1900 y 2100");
           document.forms[0].FIELD5.focus();
           document.forms[0].FIELD5.select();
		} 
		/**
		* en caso de que todo sea correcto > enviamos los datos del formulario
		* para ello debeis descomentar la ultima sentencia
		*/
	}    


function contrasenya() {
if (confirm("¿Desea proteger el documento con su contraseña de acceso a e-perfil?")) {
	document.forms.contrasenya.value == 1;
}
}

function pestanas(nI, nPagT){
var nJ;
var pag;
var NomPag;

	for (nJ=1;nJ<=nPagT;nJ++)
		{
			pag = "pagina"+nJ;
			NomPag="NomPag"+nJ
			document.getElementById(pag).style.display = 'none';
			document.getElementById(NomPag).style.color = '#000000';
		}
		pag = "pagina"+nI;
		NomPag="NomPag"+nI
	    document.getElementById(pag).style.display = '';
		document.getElementById(NomPag).style.color = '#ffffff';
}


function validarEntero(valor){ 
    //Compruebo si es un valor numérico 
    if (isNaN(valor)) { 
       //entonces (no es numero) devuelvo el valor cadena vacia 
       return ""
    }else{ 
       //En caso contrario (Si era un número) devuelvo el valor 
       return valor
    } 
} 

function ValidatePDIEFF(field,idTest){ 
    enteroValidado = validarEntero(field.value) ;
    if (enteroValidado == ""){ 
       //si era la cadena vacía es que no era válido. Lo aviso 
       alert ("Debe escribir un valor númerico") ;
       //selecciono el texto 
	    field.value="0"
       field.select();
       //coloco otra vez el foco 
       field.focus();
    }else {
		   enteroValidado = validarPD(field,idTest) ;
			if (enteroValidado == ""){ 
				//selecciono el texto 
				field.value="0"
				field.select();
				//coloco otra vez el foco 
				field.focus();
			}else 
				field.value = enteroValidado
	}
} 
function ValidatePTIEFF(field,idTest){ 
    enteroValidado = validarEntero(field.value) ;
    if ((enteroValidado == "") && (idTest != 48)){ 
       //si era la cadena vacía es que no era válido. Lo aviso 
       alert ("Debe escribir un valor numérico") ;
       //selecciono el texto 
	    field.value="0"
       field.select();
       //coloco otra vez el foco 
       field.focus();
    }else {
		   enteroValidado = validarPT(field,idTest) ;
			if ((enteroValidado == "") && (idTest != 48)){ 
				//selecciono el texto 
				field.value="0"
				field.select();
				//coloco otra vez el foco 
				field.focus();
			}else 
				field.value = enteroValidado
	}
} 

function ValidateNCIEFF(field,idTest){ 
    enteroValidado = validarEntero(field.value) ;
    if ((enteroValidado == "") && (idTest != 48)){ 
       //si era la cadena vacía es que no era válido. Lo aviso 
       alert ("Debe escribir un valor numérico") ;
       //selecciono el texto 
	    field.value="0"
       field.select();
       //coloco otra vez el foco 
       field.focus();
    }else {
		   enteroValidado = validarNC(field,idTest) ;
			if ((enteroValidado == "") && (idTest != 48)){ 
				//selecciono el texto 
				field.value="0"
				field.select();
				//coloco otra vez el foco 
				field.focus();
			}else 
				field.value = enteroValidado
	}
} 
// set the minimum and maximum
function MinMax (valor, min, max){
if (valor != -999 && !(valor >= min && valor <= max))
{
alert("Los valores posibles para esta escala están entre " + min + " y " + max);
return (false);
}
else return (true);
}

function validarPD(field,idTest){
	min=0; 
	valor = field.value
	preg = parseInt(field.name.substring(2,5),10);
	switch (idTest){
		case 8:
			switch(preg){
				case 1:case 3: case 22: case 23:						max=23; 			break;
				case 2:case 4: case 5: case 7: case 12: case 13:		max=24;				break;
				case 6:													max=32;				break;
				case 8:													max=27;				break;
				case 9:case 10: case 14:								max=25;				break;
				case 11:												max=22;				break;
				case 15:case 18: case 20: case 21:						max=20;				break;
				case 16:case 24:										max=17;				break;
				case 17:												max=18;				break;
				case 19:case 26:										max=21;				break;
				case 27:												max=33;				break;
				case 25:												min=34; max=178;	break;
				case 28:												max=3;				break;
			}
			break;
		case 14:
			max=40;
			break;

        case 66:case 67:

            max = 3000;
            break;
        default:
			max = 999;
			break;
	}
	if (!MinMax(valor,min,max)) {return ""}	else {return valor}
}

function validarPT(field,idTest){
	min=0; 
	valor = field.value
	preg = parseInt(field.name.substring(2,5),10);
	switch (idTest){
		case 8:
			max = 115;
			break;
		case 14: case 24: case 54:
			max=99;
			break;
		case 34:
			max=75;
			break;
		case 48:
			max=10;
			break;
		default:
			max = 999;
			break;
	}
	if (!MinMax(valor,min,max)) {return ""}	else {return valor}
}

function validarNC(field,idTest){
	min=0; 
	valor = field.value
	preg = parseInt(field.name.substring(2,5),10);
	switch (idTest){
		case 54:
			max=4;
			break;
		default:
			max = 999;
			break;
	}
	if (!MinMax(valor,min,max)) {return ""}	else {return valor}
}

function ConfirmarPDPT(intNVbles,intPreguntas) {
	var strTexto;
	var intI;
	var intInicio;
	var intFin;
		
		for (intI=0; intI<document.forms[0].elements.length;intI++){

			if (document.forms[0].elements[intI].name == "pd001"){
				intInicio = intI;
			}
		}
		intFin = intInicio + (intNVbles*2) - 1;
		//Field11 (PD) Field12 (PT)
		document.forms[0].elements["FIELD11"].value = ""
		document.forms[0].elements["FIELD12"].value = ""
		for (intI=intInicio;intI<=intFin;intI++){	
			strTexto = document.forms[0].elements[intI].value;
			if (strTexto == "") {
				strTexto = "0"
			}
			if (odd(intI)){
				document.forms[0].elements["FIELD11"].value += strTexto;
				document.forms[0].elements["FIELD11"].value += "/";
			}else{
				document.forms[0].elements["FIELD12"].value += strTexto;
				document.forms[0].elements["FIELD12"].value += "/";
			}
		}
		document.forms[0].elements["FIELD6"].value = "";
		for (intI=1;intI<=intPreguntas;intI++){
			document.forms[0].elements["FIELD6"].value += "0";
		}
//		alert("PD: " + document.forms[0].elements["FIELD11"].value +"\n PT: "+document.forms[0].elements["FIELD12"].value + "\n Resp: " + document.forms[0].elements["FIELD6"].value );
		if (confirm("¿Desea grabar las puntuaciones de este sujeto?" )) {
			return true;
		}
		else {
			return false;
		}
	}

function ConfirmarPDPTNC(intNVbles,intPreguntas) {
	var strTexto;
	var intI;
	var intInicio;
	var intFin;
	var strPD;
	var strPT;
	var strNC;
	var intJ;
	var strAux;

		for (intI=0; intI<document.forms[0].elements.length;intI++){
			if (document.forms[0].elements[intI].name == "pd001"){
				intInicio = intI;
			}
		}


		intFin = intInicio + ((intNVbles-6)*3) - 1;

		strPD = "";
		strPT = "";
		strNC = "";
		intJ = 1;
		for (intI=intInicio;intI<=intFin;intI++){	
			strTexto = document.forms[0].elements[intI].value;
			if (strTexto == "") {
				strTexto = "0"
			}
			if (intJ==1){
				strPD += strTexto;
				strPD += "/";
			}
			if (intJ==2){
				strAux = parseInt(strTexto) * 10;
			}
			if (intJ==3){
				strPT += (strAux + parseInt(strTexto));
				strPT += "/";
			}
			intJ++;
			if (intJ>3){
				intJ = 1;
			}
		}
//		alert("PD: " + strPD +"\n PT: "+ strPT + "\n ");

		intInicio = intFin + 1 ;
		intFin = intFin + 12;
		
		for (intI=intInicio;intI<=intFin;intI++){	
			strTexto = document.forms[0].elements[intI].value;
			if (strTexto == "") {
				strTexto = "0"
			}
			if (odd(intI)){
				strPD += strTexto;
				strPD += "/";
			}else{
				strPT += strTexto;
				strPT += "/";
			}
		}


		//Field11 (PD) Field12 (PT)
		document.forms[0].elements["FIELD11"].value = strPD;
		document.forms[0].elements["FIELD12"].value = strPT;
		
		document.forms[0].elements["FIELD6"].value = "";
		for (intI=1;intI<=intPreguntas;intI++){
			document.forms[0].elements["FIELD6"].value += "0";
		}
			
		//'alert("PD: " + strPD +"\n PT: "+ strPT + "\n Resp: " + document.forms[0].elements["FIELD6"].value );

		if (confirm("¿Desea grabar las puntuaciones de este sujeto?" )) {
			return true;
		}
		else {
			return false;
		}
	}

function odd(iNumero) {
  if (iNumero%2!=0)
    return true;
  else
    return false;
}

function compruebamarcado(este, elotro) {
	if (este.checked == elotro.checked){
		elotro.checked = false;
	}
}
	
function ConfirmarAplicacionSosia() {
	var strRespuesta;
	var strRespuesta1;
	var strRespuesta2;
	var url;
	var intI;
	var intJ;
	var intX;
	var intInicio;
	var intFin;
	var miresp;
	var nombre;
	
	document.forms[0].elements["respuestas"].value = "";
	intI = 0;
	while (intI<=document.forms[0].elements.length){
		if (document.forms[0].elements[intI].name == "resp1"){
			intInicio = intI;
			intI =document.forms[0].elements.length;
		}
		intI++;
	}
	intI = document.forms[0].elements.length-1;
	while (intI>=0){
		if (document.forms[0].elements[intI].name == "respuestas"){
			intFin = intI;
			intI = 0;
		}
		intI--
	}
		intI = intInicio;
		while(intI < intFin){
		strRespuesta1= "";
		strRespuesta2= "";
		for (intX=0;intX<2;intX++){
			miresp = document.getElementsByName (document.forms[0].elements[intI].name);
			strRespuesta = "";
			for (intJ=0;intJ<miresp.length;intJ++){
				if  (miresp[intJ].checked){
					strRespuesta = miresp[intJ].value;
				}
			}
			if (strRespuesta == "") {strRespuesta = "0";	}
			if (intX == 0){ strRespuesta1 = strRespuesta;} else {	strRespuesta2 = strRespuesta;}
			intI++;
		}
		if(strRespuesta1=="0" || strRespuesta2=="0"){strRespuesta1="0"; strRespuesta2="0"}
		document.forms[0].elements["respuestas"].value += strRespuesta1;
		document.forms[0].elements["respuestas"].value += strRespuesta2; 		
		intI = intI + miresp.length * 2 - 2;

		if (intI==(intInicio+(38*8))){intI++;}

	}

}

function ConfirmarRespuestasSosia() {
	var strRespuesta;
	var strRespuesta1;
	var strRespuesta2;
	var url;
	var intI;
	var intJ;
	var intX;
	var intInicio;
	var intFin;
	var miresp;
	var nombre;
	
	document.forms[0].elements["respuestas"].value = "";
	intI = 0;
	while (intI<=document.forms[0].elements.length){
		if (document.forms[0].elements[intI].name == "resp1"){
			intInicio = intI;
			intI =document.forms[0].elements.length;
		}
		intI++;
	}
	intI = document.forms[0].elements.length-1;
	while (intI>=0){
		if (document.forms[0].elements[intI].name == "respuestas"){
			intFin = intI;
			intI = 0;
		}
		intI--
	}
		intI = intInicio;
		while(intI < intFin){
		strRespuesta1= "";
		strRespuesta2= "";
		for (intX=0;intX<2;intX++){
			miresp = document.getElementsByName (document.forms[0].elements[intI].name);
			strRespuesta = "";
			for (intJ=0;intJ<miresp.length;intJ++){
				if  (miresp[intJ].checked){
					strRespuesta = miresp[intJ].value;
				}
			}
			if (strRespuesta == "") {strRespuesta = "0";	}
			if (intX == 0){ strRespuesta1 = strRespuesta;} else {	strRespuesta2 = strRespuesta;}
			intI++;
		}
		if(strRespuesta1=="0" || strRespuesta2=="0"){strRespuesta1="0"; strRespuesta2="0"}
		document.forms[0].elements["respuestas"].value += strRespuesta1;
		document.forms[0].elements["respuestas"].value += strRespuesta2; 		
		intI = intI + miresp.length * 2 - 2;

		if (intI==(intInicio+(38*8))){intI++;}

	}

}

function Validarnombre()
{
  // Make sure Name is filled
  if( document.AspGridFormSave1.FIELD3.value == "" )
  {
    alert('Debe introducir un identificador en el nombre.');
    document.AspGridFormSave1.FIELD3.focus();
    return false;
  }
  return true;
}


function avisos(aviso)
{
	var izquierda = (screen.availWidth - 695) / 2; 
    var arriba = (screen.availHeight - 400) / 2; 
    var opciones = "fullscreen=no" +
                 ",toolbar=no" + 
                 ",location=no" +
                 ",status=no" + 
                 ",menubar=no" + 
                 ",scrollbars=no" +
                 ",resizable=no" + 
                 ",width=695" + 
                 ",height=400" +
                 ",left=" + izquierda + 
                 ",top=" + arriba; 

	window.open('http://web.teaediciones.com/Text.aspx?codigo='+aviso,'',opciones);

}