stofind = "canto.romancemusical.net"; // Directorio Raíz, puede ser "dominio.net"
defaulturl="http://canto.romancemusical.net/";  // Dirección principal del sitio
baseurl = "";
getBaseUrl();


secc = new Array();
subs = new Array();

//Menú principal de Canto, Poesía... ¡y más!

secc['ini'] = 'Inicio:index.html';
secc['can'] = 'Canciones:canto/index.html';
secc['poe'] = 'Poesías:poemas/index.html';
secc['pro'] = 'Prosas:prosas/index.html';
secc['ref'] = 'Algo para reflexionar:reflexiones/index.html';
secc['esc'] = 'Nuestro escudo:escudo.html';
secc['con'] = 'Participación y Contacto:contacto.php';
secc['rec'] = 'Reconocimientos:reconocimientos.html';

subs['ini'] = new Array();	// Subsecciones de la sección principal
subs['ini']['lnk'] = 'Ligas a sitios afines:ligas.html';

subs['can'] = new Array();	// Subsecciones de la sección de canto
subs['can']['cad'] = 'Índice de la <strong>A</strong> a la <strong>D</strong>:canto/indexad.html';
subs['can']['cel'] = 'Índice de la <strong>E</strong> a la <strong>L</strong>:canto/indexel.html';
subs['can']['cmz'] = 'Índice de la <strong>M</strong> a la <strong>Z</strong>:canto/indexmz.html';

subs['poe'] = new Array();	// Subsecciones de la sección de poemas
subs['poe']['aa'] = 'por <strong>Autores</strong>:poemas/indexaa.html';
subs['poe']['pp'] = 'por <strong>Título</strong>:poemas/indexpp.html';
// subs['poe']['amz'] = 'Autores de la <strong>M</strong> a la <strong>Z</strong>:poemas/indexamz.html';
// subs['poe']['pad'] = 'Poesías de la <strong>A</strong> a la <strong>D</strong>:poemas/indexpad.html';
// subs['poe']['pel'] = 'Poesías de la <strong>E</strong> a la <strong>L</strong>:poemas/indexpel.html';
//subs['poe']['pmz'] = 'Poesías de la <strong>M</strong> a la <strong>Z</strong>:poemas/indexpmz.html';

//subs['ref'] = new Array();	// Subsecciones de la sección principal
//subs['ref']['ind'] = 'Índice de Ligas:reflexiones/index.html';

// publicidad='<div class="pub"><div class="pub1"><div align="center"><script type="text/javascript">doBusca();</script></div></div></div>';
//publicidad ='<div class="pub"><div class="pub1"><div align="center"><a href="http://www.aisms.com/" target="_blank">¿Publicidad en la Red?<br />¿Servicios Web?<br /><img src="' + baseurl + 'images/lgaisms75.jpg" width= "66" height="60" border="0" alt="" /><br /><strong>¡Contáctenos!</strong></a></div></div></div>';
//publicidad = publicidad + '<div class="pub"><div class="pub1"><div align="center"><a href="http://www.leonmx.com/" target="_blank"><img src="' + baseurl + 'images/leonmx100_60.gif" width= "100" height="60" border="0" alt="" /><br />Revista electrónica de la<br />ciudad de León, Guanajuato</a></div></div></div>';
// publicidad = publicidad + '<div class="pub"><div class="pub1"><div align="center"><a href="http://www.elbajio.com.com/" target="_blank"><img src="' + baseurl + 'images/lgelbajio100.gif" width= "100" height="35" border="0" alt="" /><br />Directorio comercial, industrial y de servicios del centro geográfico de México</a></div></div></div>';

function doMenu(cursec, cursub) {
	for(seck in secc) {
		stmp=secc[seck].split(':');
		if(seck==cursec) {
			document.writeln('<div class="menuopc"><a class="cur" href="' + baseurl + stmp[1] + '">' + stmp[0] + '</a></div>');
			doSubm(cursec, cursub);
		} else {
			document.writeln('<div class="menuopc"><a href="' + baseurl + stmp[1] + '">' + stmp[0] + '</a></div>');
		}
	}
}

function doSubm(cursec, cursub) {
	if(!subs[cursec]) { return; }
	document.writeln('<div class="subopc">');
	for(subk in subs[cursec]) {
		curcl=' ';
		curch='» ';
		if(subk==cursub) {
			curcl=' class="cur" ';
			curch='• ';
		}
		atmp=subs[cursec][subk].split(':');
		document.writeln('<a' + curcl + 'href="' + baseurl + atmp[1] + '">' + curch + atmp[0] + '</a>');
	}
	document.writeln('</div>');
}

function getBaseUrl() {
	var igual=0;
	var docpath=document.location.pathname;
	docname=docpath;
	x=docpath.indexOf(stofind);
	y=x+stofind.length;
	if(x >= 0) {
		if(docpath.substring(x,y) == stofind) {
			docname=docpath.substring(y+1,docpath.length);
			igual=1;
		}
	}
	if(docname=='/' || docname=='') {
		docname='default.htm';
	}
	charfind='\\';
	x=docname.indexOf(charfind);
	while (x >= 0) {
		docname=docname.substring(0,x) + '/' + docname.substring(x+1,docname.length);
		x=docname.indexOf(charfind);
	}
	if(docname.charAt(0)=='/') {
		docname=docname.substring(1,docname.length);
	}
	if (igual == 0) {
		baseurl=defaulturl;
		return;
	}
	baseurl="";
	dcn=docname;
	x=dcn.indexOf('/');
	while (x >= 0) {
		dcn=dcn.substring(x+1, dcn.length);
		baseurl= baseurl + "../";
		x=dcn.indexOf('/');
	}
//	alert(docname + ' - ' + baseurl);
}

function regresa() {
	document.writeln('<div class="regresa"><strong>[<a href="javascript:history.back();">Página anterior</a>]');
	document.writeln('[<a href="#arriba">Subir</a>]');
	document.writeln('[<a href="http://canto.romancemusical.net">Página Principal</a>] [<a href="http://canto.romancemusical.net/ligas.html">Sitios afines</a>]</strong>');
	document.writeln('Contacto: <strong>[<a href="mailto:contacto@romancemusical.net?subjet=Contacto a Canto">contacto@romancemusical.net</a>]</strong></div>');
}
function copy() {
	document.writeln('<div class="copy">© 2000-2010 • Todos los derechos reservados. El material aquí presentado está protegido a favor de sus autores o propietarios.');
	document.writeln('Producción: <a href="http://www.aisms.com" target="_blank"><strong>AISMS » Diseño Web</strong></a></div>');
}

function conta() {
	document.writeln('<div align="center"><img src="http://www.elbajio.com/contador/index.php?c=cantoPt" alt="contador" /></div>');
}

function fecha() {
  var dd, mm, aa, hr, pfecha;
  var ii;
  var hoy=new Date();
  var mes=new Array();
  var dia=new Array();
  dia[0]='Domingo';          dia[1]='Lunes';          dia[2]='Martes';
  dia[3]='Miércoles';        dia[4]='Jueves';         dia[5]='Viernes';
  dia[6]='Sábado';

  mes[0]='Ene';		mes[1]='Feb';		mes[2]='Mzo';	mes[3]='Abr';
  mes[4]='May';        mes[5]='Jun';		mes[6]='Jul';  mes[7]='Ago';
  mes[8]='Set';	mes[9]='Oct';		mes[10]='Nov';	mes[11]='Dic';

  dd=hoy.getDate();
  mm=hoy.getMonth();
  aa=hoy.getYear();
  if(aa<2000) {
    aa=aa+1900;
  }
  ii=hoy.getDay();
  hr=hoy.getHours();
  pfecha='<div class="txc8"><strong> ' + dia[ii] + ' ' + dd + '/' + mes[mm] + '/'+aa  + '</strong></div>';
  document.write(pfecha+'');
}

function mail() {
	document.writeln('<a href="mailto:contacto@romancemusical.net?subjet=Contacto a Canto">contacto@romancemusical.net</a>');
}

function CargaBan() {
  a = 0;
  maxBan = 4;  // Igual a número de banners a presentar
  BanHref = new Array();
    BanHref[1] = "http://www.aisms.com";
    BanHref[2] = "http://www.elbajio.com";
    BanHref[3] = "http://ranitashow.leonmx.com";
    BanHref[4] = "http://literatura.elbajio.com";
  BanImg = new Array();
    BanImg[1] = "http://canto.romancemusical.net/images/banners/400_aisms_ideas.gif";
    BanImg[2] = "http://canto.romancemusical.net/images/banners/400_elbajio_piensa.gif";
    BanImg[3] = "http://canto.romancemusical.net/images/banners/400_ranita.gif";
    BanImg[4] = "http://canto.romancemusical.net/images/banners/400_literatura.gif";
}
function rotateBanner(s) { 
  window.setTimeout('changeBanner()', s*600);
}
function Elige() {
  var secs="";
  var num=0;
  var eDate=new Date();
  num= Math.abs(Math.sin(eDate.getTime()));
  secs=num+"";
  secs=secs.substring(secs.length-2,secs.length-0);
  if (secs.substring(0,1)=='0') {
    secs=secs.substring(1,2,3,4);
  }
  for (i=1; secs>maxBan; i++) {
     secs=secs-maxBan;
  }
  if (secs==0) {
    secs=1;
  }
  // alert('secs='+secs,'');
  return secs;
}
function changeBanner() {
  // a = a + 1;  
  // if (a==maxBan+1) a = 1;
  a = Elige();
  document.banner.src=BanImg[a];
  DestHref=BanHref[a];
  rotateBanner(5);
}
function banners400() {
  CargaBan();
  a = Elige();
  document.write('<div class="banner"><a href="¡Visítanos!" onClick="this.href=DestHref" target="_blank">');
  document.write('<img src="'+BanImg[a]+'" name="banner" ></a></div>');
  DestHref=BanHref[a];
  rotateBanner(4);
}