ie = document.all
ns4 = document.layers
ns6 = document.getElementById

/***************************************
*    		GENERACIÖN DE SUBMENÚS				 *
***************************************/			
function verMenu(valor) {
	// Posición horizontal de los submenús
	posX = Array (286, 401, 487, 551, 524, 571)
	// Contenido de los menús
	sm1 = Array ("Las estadísticas nos informan", "Controlar las enfermedades crónicas desde casa", "Sistema permanente de atención médica", "Diez razones para su uso")
	sm2 = Array ("Parámetros vitales", "El factor tranquilidad", "Un poco de historia", "La satisfacción de los pacientes")
	sm3 = Array ("Cómo funciona", "La tecnología informática")
	sm4 = Array ("El equipo profesional", "La educación en la enfermedad")
	sm5 = Array ("El precedente de la Domótica", "Factores internos y externos", "Enfermedades a controlar", "Productos y desarrollos")
	sm6 = Array ("Construyendo una nueva casa", "Rehabilitando una casa antigua", "Residencias Geriátricas", "Control de pacientes a distancia")
	
	eval("sm=sm"+valor)
	if (sm.length>0) {
		// Generación de la tabla
		tx = '<table border=0 cellpadding=0 cellspacing=0><tr>'
		tx += '<td colspan=2 rowspan=2><img src="imagenes/subm_si.gif"></td>'
		tx += '<td bgcolor="#4A678C"><img src="imagenes/espacio.gif" height="1"></td>'
		tx += '<td colspan=2 rowspan=2><img src="imagenes/subm_sd.gif"></td>'
		tx += '</tr><tr>'
		tx += '<td bgcolor="#EAF0F7"><img src="imagenes/espacio.gif" height="6"></td>'
		tx += '</tr><tr>'
		tx += '<td bgcolor="#4A678C" rowspan=2><img src="imagenes/espacio.gif"></td>'
		tx += '<td bgcolor="#EAF0F7" rowspan=2><img src="imagenes/espacio.gif" width="6"></td>'
		tx += '<td bgcolor="#EAF0F7">'
		for (x=0;x<sm.length;x++) {
			tx += '<a href="p'+valor+'_'+(x+1)+'.htm" target="_top" class="submenu">' + sm[x] + '</a><br>'
		}
		tx += '</td>'
		tx += '<td bgcolor="#EAF0F7" rowspan=2><img src="imagenes/espacio.gif" width="6"></td>'
		tx += '<td bgcolor="#4A678C" rowspan=2><img src="imagenes/espacio.gif"></td>'
		tx += '</tr><tr>'
		tx += '<td align="right" bgcolor="#EAF0F7"><a href="javascript:ocultaSub()" class="submenu2">Cerrar men&uacute;</a></td>'
		tx += '</tr><tr>'
		tx += '<td colspan=2 rowspan=2><img src="imagenes/subm_ii.gif"></td>'
		tx += '<td bgcolor="#EAF0F7"><img src="imagenes/espacio.gif" height="6"></td>'
		tx += '<td colspan=2 rowspan=2><img src="imagenes/subm_id.gif"></td>'
		tx += '</tr><tr>'
		tx += '<td bgcolor="#4A678C"><img src="imagenes/espacio.gif" height="1"></td>'
		tx += '</tr></table>'
	} else {
		tx = ''
	}
	escribeCapa('submenu', tx, posX[valor-1])
}

function ocultaSub() {
		escribeCapa('submenu', '', 0)
}

function escribeCapa(nombre, texto, posX) {
	if (ie) {
		document.all[nombre].innerHTML = texto
		document.all.submenu.style.left = posX
	} else if (ns4) {
		document.layers[nombre].document.open()
		document.layers[nombre].document.write(texto)
		document.layers[nombre].document.close()
		document.layers[nombre].left = posX
	} else if (document.getElementById) {		
		document.getElementById(nombre).innerHTML = texto
		document.getElementById(nombre).style.left = posX
	}
}

/***************************************
*		GESTI&Oacute;N DE IM&Aacute;GENES Y ROLLOVERS		 *
***************************************/			
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function preloadImages() {
	MM_preloadImages("imagenes/menuh_1_over.gif","imagenes/menuh_2_over.gif","imagenes/menuh_3_over.gif","imagenes/menuh_4_over.gif","imagenes/menuh_5_over.gif","imagenes/menuh_6_over.gif","imagenes/subm_ii","imagenes/subm_id","imagenes/subm_si","imagenes/subm_sd")
}