
////////////////////////////////////////////////////////////////////////////////////

	function MWbuscapos(id, vEst, base) {
	var busca = '';

		for(var i=1; i<vEst.length; i++) {
			vaux = vEst[i][0].split(',');
			if(vaux[0]==id) return(base + ((base=='') ? '' : '-') + i);
		}

		for(var i=1; i<vEst.length; i++) {
			busca = MWbuscapos(id, vEst[i], '')
			if(busca!='') return(base + ((base=='') ? '' : '-') + i + '-' + busca); 
		}

		return('');
	}

////////////////////////////////////////////////////////////////////////////////////

function genera_entorno() {

	if(id_pagina==1)
		genera_menu();
	else {
		genera_menu();
		var pos = MWbuscapos(id_pagina, vm, '');
		var vpos = pos.split('-');
		var vec = vm[vpos[0]][0].split(',');
		document.getElementById('d_titulo').innerHTML = unescape(vec[1]);
		
		var cad = '', id_n2;
		if(vpos.length>1) 
			id_n2 = parseInt(vpos[1]);
		else
			id_n2 = -1;
		
		for(var i=1; i<vm[vpos[0]].length; i++) {
			vec = vm[vpos[0]][i][0].split(',');
			if(i==id_n2)
				cad += '[' + unescape(vec[1]) + '] ';
			else
				cad += '<a href="default.asp?id=' + vec[0] + '" class="ent_enlace1">[' + unescape(vec[1]) + ']</a>';
		}
		document.getElementById('d_subtitulos').innerHTML = cad;

		cad = '';
		for(var i=0; i<vp.length; i++) {
			vec = vp[i].split(',');
			cad += ' > <a href="default.asp?id=' + vec[0] + '" class="ent_texto5">' + unescape(vec[2]) + '</a>';
		}
		document.getElementById('sp_path').innerHTML = cad;
	}

	
}


////////////////////////////////////////////////////////////////////////////////////

	function genera_menu() {
	var cad = '';
		cad = '<table  border="0" cellpadding="0" cellspacing="0"><tr>';
		for(var i=1; i<vm.length; i++) {
			var vaux = vm[i][0].split(',');

			if(vaux[0]==15) {		//Botón "Contactos"
				var cad1 = '<table border="0" cellspacing="0" cellpadding="0"><tr>';
				cad1 += '<td width="3"><img src="imgs/pic1.gif" width="3" height="27"></td>';
				cad1 += '<td background="imgs/pic3.gif"><a href="javascript:;" onclick="javascript:abrir_contactos();" class="ent_menu1">' + (unescape(vaux[1])).toUpperCase() + '</a></td>';
				cad1 += '<td  width="3"><img src="imgs/pic2.gif" width="3" height="27"></td>';
				cad1 += '</tr></table>';
				document.getElementById('btn_contacto').innerHTML = cad1;

			} else {
				cad += '<td><table border="0" cellspacing="0" cellpadding="0">';
				cad += '<tr>';
				cad += '<td width="3"><img src="imgs/pic1.gif" width="3" height="27"></td>';
				cad += '<td background="imgs/pic3.gif"><a href="default.asp?id=' + vaux[0] + '" class="ent_menu1">' + (unescape(vaux[1])).toUpperCase() + '</a></td>';
				cad += '<td  width="3"><img src="imgs/pic2.gif" width="3" height="27"></td>';
				cad += '</tr>';
				cad += '</table></td>';
			}
		}
		cad += '</tr></table>';
		document.getElementById('d_menu').innerHTML = cad;
	}


	
	function abrir_contactos() {
		window.open('default.asp?id=15', '', 'status=no,resizable=no,toolbars=no,left=0,top=0,width=938,height=600');
	}
////////////////////////////////////////////////////////////////////////////////////

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_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_findObj(n, d) { //v3.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); 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];}
}

