if (top.location != self.location) {
   top.location = self.location
}

imprimir = false
autorweb = 'carrioncondes@hotmail.com'
httpimg = 'imgs/'

sizes = new Array('55pt', '8pt', '9pt', '10pt', '12pt', 'bold 18pt', 'bold 22pt', 'bold 26pt')
var grlFont="Verdana,Arial,Helvetica,sans-serif"
var imagef=''

document.write('<SCRIPT LANGUAGE="JavaScript1.2" SRC="indice.js"></SCRIPT>')

function hr() { document.write('<hr noshade>') }

function css_font(siz, txt) {
  return '<FONT size="'+siz+'" face="'+grlFont+'">'+txt+'</FONT>'
}

function css_bold(siz, txt) {
  return '<B>'+css_font(siz,txt)+'</B>'
}

function str_rep(n) {
 s=""
 t=this.toString()
 while (--n >= 0) s+=t
 return s
}
String.prototype.repeat=str_rep

function parrafo(texto) {
// antes era sólo esto: document.write('<P align="justify">'+css_font(2,texto+' ')+'</P>')
 spc='&nbsp;'
 inicial=texto.charAt(0)
 document.write('<P style="text-align: justify; margin-top: 10; margin-bottom: 10">')
 if (inicial!=' ') document.write(spc.repeat(8)+css_font(4,inicial))
 document.write(css_font(2,texto.slice(1)+' ')+'</P>')
}
/*
function parrafo(texto, lm, rm) {
 spc='&nbsp;'
 sty=''
 if (rm!='' && rm!=undefined) sty='margin-right: '+rm+'; '
 if (lm!='' && lm!=undefined) sty='margin-left: '+lm+'; '
 if (sty!='') sty='style="'+sty+'"'
 document.write('<P '+sty+' align="justify">')
 inicial=texto.charAt(0)
 if (inicial!=' ') document.write(spc.repeat(8)+css_font(4,inicial))
 document.write(css_font(2,texto.slice(1)+' ')+'</P>')
}
*/

function css_piedefoto(txt) {
  return css_font(2,'<I><CENTER>'+txt+'</CENTER></I>')
}

function css_foot(txt) {
  return css_font(1,'<CENTER>'+txt+'</CENTER>')
}

function css_nota(lado,txt) {
  switch (lado) {
    case 1:  side='left';  break
    case 2:  side='right'; break
    case 3:  side='justify'; break
    default: side='center'
  }
  document.write('<P align="'+side+'">'+css_font(2,'<I>'+txt+'</I>')+'</P>')
}

function css_head(siz, txt) {
  return '<CENTER><B><FONT FACE="Verdana,Arial,Helvetica,sans-serif" SIZE="'+siz+'">'+txt+'</FONT></B></CENTER>'
}

function titulo(txt,nom) {
  if (nom!='' && nom!=undefined) document.write('<a name="'+nom+'"></a>')
  document.write('<P style="text-align: left; margin-top: 30; margin-bottom: 0">' +css_font(4,'<I><U>'+txt+'</B></U></I>')+'</P>')
}

function sliders(){ with (document) {
 clikimg()
 sep='<TABLE '
 imagenes=imagef.split(sep)
 write('<TABLE border=0 valign="middle" cellspacing=0 cellpadding=0 align="right">')
 for (i=0; i<imagenes.length; i++) write('<TR><TD>'+sep+imagenes[i]+'</TD></TR>')
 write('</TABLE></TABLE>')
}}

function enlace(lnk, txt, tgt) {
 indice=lnk.indexOf('#')
 indice2=lnk.indexOf('http://')
 suf=(indice2>-1)?'':'.htm'
 pref=''
 switch (indice) {
  case -1: lnk+=(lnk.indexOf('.htm')==-1)?suf:''; break
  case  0: break
  default: lnk=lnk.substring(0,indice)+'.htm'+lnk.substring(indice,lnk.length); break
 }
 retorno='<A HREF="'+pref+lnk+'"'
 if (tgt!='' && tgt!=undefined) retorno+=' target="'+tgt+'"'
 retorno+='>'+txt+'</A>'
 return retorno
}

function solo_imagen(img, he, wi, ali, bo, tx, hs, vs) {
 retorno='<IMG SRC="'+httpimg+img+'" BORDER='+bo
 if (he != 0) retorno+=' HEIGHT="'+he+'"'
 if (wi != 0) retorno+=' WIDTH="'+wi+'"'
 if (ali != '') retorno+=' ALIGN="'+ali+'"'
 if (tx != '') {
  retorno+=' ALT="'
  for (var i=0; i < tx.length; i++)
   if (tx.charAt(i) == '<' && tx.substring(i,i+4).toUpperCase() == '<BR>') {
    retorno+=' '
    i += 3
   }
   else retorno+=tx.charAt(i)
  retorno+='"'
 }
 if (hs != 0) retorno+=' hspace='+hs
 if (vs != 0) retorno+=' vspace='+vs
 retorno+='>'
 return retorno
}

function w_solo_imagen(img, he, wi, ali, bo, tx, hs, vs) {
  document.write(solo_imagen(img, he, wi, ali, bo, tx, hs, vs))
}

function imagen(img, he, wi, ali, bo, tx, hs, vs) { with (document) {
 write('<TABLE border=0 cellspacing=0 cellpadding=0 align='+ali+'>')
 if (vs != 0) {
  write('<TR><TD>'+solo_imagen("nil.gif", vs, 1, "", 0, "", 0, 0)+'</TD></TR>')
 }
 write('<TR><TD>')
 if (hs != 0 && ali.toUpperCase() == 'RIGHT') {
  write(solo_imagen('nil.gif', 1, hs, '', 0, '', 0, 0)+'</TD><TD>')
 }
 w_solo_imagen(img, he, wi, ali, bo, tx, 0, 0)
 if (hs != 0 && ali.toUpperCase() == 'LEFT') {
  write('</TD><TD>'+solo_imagen('nil.gif', 1, hs, '', 0, '', 0, 0))
 }
 write('</TD></TR>')
 if (tx != '') {
  write('<TR>')
  if (ali.toUpperCase() == 'RIGHT' && hs != 0) write('<TD></TD>')
  write('<TD align="center">'+css_piedefoto(tx+"<br>&nbsp;")+'</TD></TR>')
 }
 write('</TABLE>')
}}

function imagen_lnk_ret(lnk, img, he, wi, tx) {
      // imagen_lnk_ret(lnk, img, he, wi, ali, bo, tx, hs, vs) {
 // vs ya no se usa, es como si vs=10
 // hs ya no se usa, es como si hs=30
 // ali ya no se usa, es como si ali='center'
 // bo ya no se usa, es como si bo=2
 // wi se convierte a 100 y he se cambia proporcionalmente
 ratio=100/wi
 he=he*ratio
 wi=100
 retorno='<TABLE border=0 cellspacing=0 cellpadding=0 align="center">'
 retorno+='<TR><TD>'+solo_imagen('nil.gif', 5, 1, '', 0, '', 0, 0)+'</TD></TR>'
 retorno+='<TR><TD>'
 retorno+=solo_imagen('nil.gif', 1, 30, '', 0, '', 0, 0)+'</TD><TD>'
 retorno+='<CENTER>'+enlace(lnk, solo_imagen(img, he, wi, '', 2, tx, 0, 0), '')+'</CENTER>'
 retorno+='</TD></TR>'
 if (tx != '') retorno+='<TR><TD></TD><TD align="center">'+css_piedefoto(enlace(lnk, tx, '')+'<br>&nbsp;')+'</TD></TR>'
 retorno+='</TABLE>'
 return retorno
}

function imagen_lnk(lnk, img, he, wi, ali, bo, tx, hs, vs) { with (document) {
 write('<TABLE border=0 cellspacing=0 cellpadding=0 align='+ali+'>')
 if (vs != 0) {
  write('<TR><TD>'+solo_imagen('nil.gif', vs, 1, '', 0, '', 0, 0)+'</TD></TR>')
 }
 write('<TR><TD>')
 if (hs != 0 && ali.toUpperCase() == 'RIGHT') {
  write(solo_imagen('nil.gif', 1, hs, '', 0, '', 0, 0)+'</TD><TD>')
 }

 write('<CENTER>'+enlace(lnk, solo_imagen(img, he, wi, '', bo, tx, 0, 0), '')+'</CENTER>')

 if (hs != 0 && ali.toUpperCase() == 'LEFT') {
  write('</TD><TD>'+solo_imagen('nil.gif', 1, hs, '', 0, '', 0, 0))
 }
 write('</TD></TR>')
 if (tx != '') {
  write('<TR>')
  if (ali.toUpperCase() == 'RIGHT') write('<TD></TD>')
  write('<TD align="center">'+css_piedefoto(enlace(lnk, tx, '')+'<br>&nbsp;')+'</TD></TR>')
 }
 write('</TABLE>')
}}

var obj='shield'
mY=0
yD=0
yS=0

function shieldSet() {
 if (navigator.appName=='Netscape') {
  dS='document.'
  sD=''
  v='.top'
  oY='window.pageYOffset'
  oW='window.innerWidth'
  oH='window.innerHeight'
 } else {
  dS=''
  sD='.style.'
  v='pixelTop'
  oY='document.body.scrollTop'
  oW='document.body.clientWidth'
  oH='document.body.clientHeight'
 }
 iY=5
 yS=eval(oY)
 shieldCheck()
}

var shieldImgW=178 // Dimensiones de carrion.gif
var shieldImgH=285

function shieldCheck() {
 // Dimensiones de la imagen
 iw=eval(oW)
 ih=eval(oH)
 sw=Math.round(iw-230)
 sh=Math.round(ih-230)
 if ((shieldImgW*sh)/(shieldImgH*sw)<1)
  sw=Math.round(shieldImgW*sh/shieldImgH)
 else
  sh=Math.round(shieldImgH*sw/shieldImgW)
 if (sw<=0) sw=1
 if (sh<=0) sh=1
 if (sw>shieldImgW) sw=shieldImgW
 if (sh>shieldImgH) sh=shieldImgH

 // Scroll del conjunto
 yy=eval(oY)
 yD=yS-yy

 // Para scroll suave, utilizar estas líneas:
 // if (yD<=-10) mY=Math.round((yD)/10)
 //  else if (yD>=10) mY=Math.round(yD/10)
 //  else if (yD<0) mY=-1
 //  else if (yD>0) mY=1
 //  else mY=0

 // Para scroll instantáneo, utilizar esta línea:
 mY=yD

 yS-=mY
 eval(dS+'shieldImg'+sD+'height='+sh)
 eval(dS+'shieldImg'+sD+'width='+sw)
 eval(dS+obj+sD+v+"="+(yS+iY))
 setTimeout("shieldCheck()",0) // Aumentar ",0" para aumentar el tiempo de reacción (mseg) al movimiento.
}

function header(index) { with (document) {
 nombre=location.host.split('.')
 switch (nombre.length) {
  case 0:  hosted=''; break
  case 1:  hosted=nombre; break
  default: hosted=nombre[nombre.length-2]
 }
 if (hosted=='') imprimir=true

 if (title=='') titus='Carri&oacute;n de los Condes'; else titus=title
 titul=titus.split(': ')
 titlen=titul.length
 titu0=(titlen<=0)?'Carri&oacute;n de los Condes':titul[0]
 titu =(titlen<=1)?'':titul[1]
 titu2=(titlen<=2)?'':titul[2]

 titus=titu0
 if (titlen>1) titus=titul[titlen-1]+' - '+titus

 titul=titus.split('<br>')
 title=titul[0]
 for (i=1; i<titul.length; i++)
  title=title+' '+titul[i]

 write('<div id="shield" style="z-index:2;overflow:auto;position:absolute;top:5px;left:5px;"><CENTER>')

 write('<TABLE border=0 cellspacing=0 cellpadding=0 align="middle"><TR><TD>')

 //imgescudo=solo_imagen('carrion.gif', shieldImgH, shieldImgW, '', 0, '', 0, 0)
 imgescudo='<IMG id="shieldImg" SRC="'+httpimg+'carrion.gif" BORDER=0 HEIGHT="'+shieldImgH+'" WIDTH="'+shieldImgW+'">'

 write('<CENTER>'+imgescudo+'</CENTER>')
 write('</TD></TR></TABLE>')
 write('</div>')

 write('<table border=0 cellspacing=0 cellpadding=0 width=100%><tr>')
 write('<td align=center>'+css_head(7,titu0)+'<HR noshade width=66%>'+css_head(6,titu))
 if (titu2 != '') write(''+css_head(5,titu2))

if (!imprimir) {
  write('<a href=http://www.ademails.com/estadisticas1059748769.htm>')
  write('<img src="http://www.ademails.com/cgi-bin/contador.cgi?ID=1059748769')
  write("&referer=")
  write(escape(document.referrer))
  write('" align="right" border=0 alt="Estadisticas">')

  <!--- EstadisticasGratis.com | código --->
  write('<span style="display:none;" id="EstadCodeComprove">687474703A2F2F7777772E666F726D6163696F6E7061726170726F666573696F6E616C65732E636F6D2F637572736F7320706172612070726F666573696F6E616C657320612064697374616E636961687474703A2F2F7777772E666F726D6163696F6E2D6164697374616E6369612E6E65742F637572736F7320612064697374616E636961687474703A2F2F7777772E637572736F732D6164697374616E6369612E636F6D2F637572736F7320612064697374616E636961687474703A2F2F7777772E637572736F737465636E69636F732E6E65742F637572736F732074E9636E69636F73</span>')
  write('<span style="display:none;" id="EstadCode"><a href="http://www.formacionparaprofesionales.com/" id="LinkKey0">cursos para profesionales a distancia</a><a href="http://www.formacion-adistancia.net/" id="LinkKey1">cursos a distancia</a><a href="http://www.cursos-adistancia.com/" id="LinkKey2">cursos a distancia</a><a href="http://www.cursostecnicos.net/" id="LinkKey3">cursos técnicos</a></span><span style="display:none;" id="Aux"><a href=""></a></span>')
  write('<a href="http://www.estadisticasgratis.com/" target="_blank"><img align="right" height="20" width="90" id="fwe_counter" src="shim.gif" alt="Estadisticas y contadores web gratis" border="0"></a>')
  write('<script src="http://www.estadisticasgratis.com/trace-ScriptContadorGold.php?page=17653&digits=6"></script>')
  <!--- EstadisticasGratis.com | código --->
}

 write('</td></tr></table>')
}}

function footer() {
 lastmod = new Date(document.lastModified)
 meses = new Array("Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre")
 dia = lastmod.getDate()
 mes = lastmod.getMonth()
 ano = lastmod.getYear()
 nmes = meses[mes]
 anno = (ano<1900) ? (ano<75) ? ano+2000 : ano+1900: ano
 hr()
 estea=new Date().getYear()
 parrafo(' '+css_foot(
   +dia+' de '+nmes+' de '+anno+'<BR>'
   +'&copy; 1996-'+estea+' <A HREF="mailto:'+autorweb+'">Guille F. C.</A><BR><BR>'
   +'El &laquo;Portal de Carri&oacute;n de los Condes&raquo; no recibe ning&uacute;n tipo de<BR>'
   +'ayuda ni subvenci&oacute;n, ni oficial ni privada, y se mantiene exclusivamente<BR>'
   +'gracias al esfuerzo personal y desinteresado de un carrion&eacute;s que<BR>'
   +'s&oacute;lo pretende dar a conocer la tierra que le vio nacer.<BR><BR>'
   +'Cualquier sugerencia sobre este sitio, tanto sobre su contenido como<BR>'
   +'sobre su dise&ntilde;o, ser&aacute; bien recibida. Si dispone de informaci&oacute;n que desea<BR>'
   +'incorporar aqu&iacute;, tambi&eacute;n ser&aacute; bien recibida. Por favor, <a href="mailto:'+autorweb+'">escr&iacute;bame</a>.<BR><BR>'
   +'Los dominios '+enlace('http://www.carrion.org','carrion.org')+' y '+enlace('http://www.carrion.info','carrion.info')+' son propiedad del<BR>'
   +'ilustre carrion&eacute;s D. '+enlace('acg','Alejandro Carri&oacute;n G&uacute;tiez')+', quien los ha<BR>'
   +'cedido desinteresadamente para mejor difusi&oacute;n del Portal.'
 ))
}

function comparar(a, b) {
   return a - b
}

function siguiente(lnk, txt) { document.write('<nobr>'+css_bold(3,enlace(lnk, txt, ''))+' <TT><FONT SIZE="5"><B>&rarr;</B></FONT></nobr>') }

function antersigui(indi) { with (document) {
 write('<br clear=all><CENTER><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0><TR><TD ALIGN="right" VALIGN="bottom">')
 if (indi>0) write('<NOBR><TT><FONT SIZE="5"><B>&larr;</B></FONT></TT> '+css_bold(3,enlace(inp[indi-1].url, 'Página anterior', ''))+'</NOBR>')
 write('</TD><TD width="10%" rowspan="2"></TD><TD ALIGN="left" VALIGN=middle">')
 if (indi<inpl)
  siguiente(inp[indi+1].url,'Página siguiente')
 else
  siguiente(pag_inicio, 'P&aacute;gina inicial')

 write('</TD></TR><TR><TD ALIGN="right" VALIGN=middle">')

 if (indi>0)
  write(css_font(2,inp[indi-1].des))
 write('</TD><TD ALIGN="left" VALIGN=middle">')
 if (indi<inpl)
  write(css_font(2,inp[indi+1].des))

 write('</TABLE></CENTER><BR>')
}}

function foot() { with (document) {
 write('<br clear=all>')
 hr()
 sumario=new Array()
 nombre=location.pathname.split('/')
 nombre=nombre[nombre.length-1]
 nombre=nombre.split('\\')
 nombre=nombre[nombre.length-1]
 nombre=nombre.substr(0,nombre.indexOf('.')).toLowerCase()
 este=0
 for (i=0; i<=inpl; i++) {
  if (nombre==inp[i].url) este=i
  if (inp[i].ind==2) sumario[sumario.length]=i
 }
 antersigui(este)
 hr()

 write('<br clear=all><CENTER><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="80%"><TR><TD ALIGN="left" VALIGN="top" height="30"><DIV id="tx1"><I><B>Sumario</B></I></DIV></TD></TR>')

 max=(inp[este].ind==5) ? 5 : inp[este].ind+1
 for (x=3; x<=max; x++) {
   for (ini=este; ini>=0; ini--)
     if (inp[ini].ind<x) break
   for (fin=este+1; fin<=inpl; fin++)
     if (inp[fin].ind<x) break
   for (i=ini; i<fin; i++)
     if (inp[i].ind==x) sumario[sumario.length]=i
 }
 tabl='<TR><TD ALIGN="left" VALIGN="top" height="20"><DIV id="tx'
 tabl2='</DIV></TD></TR>'
 sumario.sort(comparar)
 for (x=0; x<sumario.length; x++) {
  z=inp[sumario[x]].ind
  desc=inp[sumario[x]].des
  pag=inp[sumario[x]].url
  if (pag=='') alert('Pagina en blanco ('+desc+')')
  indice=pag.indexOf('#')
  pag = (indice == -1) ? pag+'.htm' : pag.substring(0, indice)+'.htm'+pag.substring(indice, pag.length)
  desc = (este!=sumario[x]) ? '<A HREF="'+pag+'">'+desc+'</A>' : desc='<B>'+desc+'</B>'
  write(tabl+z+'">'+desc+tabl2)
 }
 write('</TD></TR></TABLE></CENTER><BR>')


/*
 hr()
 write('<BR>')

 write('</td></tr><tr><td valign="bottom">'+
 '<TABLE bgcolor="#99DDDD" ALIGN="center" BORDER=1 CELLSPACING=0 CELLPADDING=5 WIDTH="100%">'+
 '<TR ALIGN="center" VALIGN="middle"><TD rowspan="6">'+
 enlace('servicio',css_bold(2,'Servicios gratuitos'))+css_foot('proporcionados por:'))
 tuportal='<a target="_blank" href="http://www.tuportal.com">'
 if (!imprimir) {
  write(tuportal+'<img src=http://217.116.4.194/graficos/conmotor.gif border=0 width="100" height="39"></a>')
 } else {
  write(tuportal+'TuPortal</a>')
 }

 function serv(t1,acc,t2,t3,t4) {
  retorno=css_foot(t1+'<a href="http://217.116.4.194/servlet/tpservlet?acc='+acc+
  '&tpid=carrion">'+t2+'</A>'+t3)
  if (t4!='') retorno+=css_foot(t4)
  retorno+=''
  return retorno
 }

 write('</TD>'+

 '<TD>'+
 serv('Consigue tu direcci&oacute;n de ','correo','correo electr&oacute;nico','','')+
 //serv('Pon aqu&iacute; tu ','pagpersonal','p&aacute;gina personal','','')+
 serv('Participa en los ','forum','foros de debate','','')+
 serv('Deja tus comentarios en el ','librovisitas','libro de visitas','','')+
 serv('','usuariopreferencias','Personaliza',' el portal y tus datos','')+
 serv('','salir','Desconéctate',' cuando termines de usar los servicios','')+
 //serv('Conoce a otros usuarios en el ','club','club de amigos','')+

 '</TD></TR></TABLE>')
*/

 hr()
 write('<BR><TABLE bgcolor="#99DDDD" ALIGN="center" BORDER=1 CELLSPACING=0 CELLPADDING=5 WIDTH="60%"><TR ALIGN="center" VALIGN="middle"><TD><B>Libro de visitas:</B></TD><TD>'+enlace('http://miarroba.com/libros/leer.php?id=107783','Leer','_blank')+'</TD><TD>'+enlace('http://miarroba.com/libros/firmar.php?id=107783','Firmar','_blank')+'</TD></TR></TABLE><BR>')
 //write('<TABLE bgcolor="#99DDDD" ALIGN="center" BORDER=1 CELLSPACING=0 CELLPADDING=5 WIDTH="60%"><TR><TD ALIGN="center"><B>Participa en los '+enlace('http://miarroba.com/foros/ver.php?id=534703','foros de discusi&oacute;n','_blank')+'</B></TD></TR></TABLE><BR>')
 footer()
 shieldSet()
}}

function pagina_imagen(index, img, he, wi, txt) {
 header(index)
 document.write('<br><CENTER>'+solo_imagen(img, he, wi, '', 5, '', 0, 0)+'</CENTER><br clear=all>')
 if (txt != '') parrafo(' <CENTER><I>' + txt + '</CENTER></I>')
 foot()
}

function clikimg() {
 css_nota(2,'Al hacer clic en las im&aacute;genes peque&ntilde;as, aparecer&aacute;<br>la correspondiente de mayor tama&ntilde;o y mejor calidad.')
}

function subtitulo(texto) {
 css_nota(1,texto)
}