ÿþv a r   S h o w H i d d e n I f r a m e   =   t r u e ;  
 f u n c t i o n   T o g g l e H i d d e n I f r a m e ( )   {  
       H i F   =   d o c u m e n t . g e t E l e m e n t B y I d ( ' H i d d e n - i F r a m e ' ) ;  
       i f   ( S h o w H i d d e n I f r a m e )   {  
             H i F . w i d t h     =   0 ;  
             H i F . h e i g h t   =   0 ;  
       }   e l s e   {  
             H i F . w i d t h     =   " 1 0 0 % " ;  
             H i F . h e i g h t   =   5 0 0 ;  
       } ;  
       S h o w H i d d e n I f r a m e   =   ! S h o w H i d d e n I f r a m e ;  
 }  
  
 f u n c t i o n   M e n u E n t r y ( T e x t , L i n k )   {  
       t e x t   = ' < t r > < t d   c l a s s = m e n u   o n m o u s e o v e r = " t h i s . b g C o l o r = '  
                               +   " ' # F C F 9 1 8 ' ; t h i s . s t y l e . c u r s o r = ' p o i n t e r ' "  
                               +   ' "   o n m o u s e o u t = " t h i s . b g C o l o r = '  
                               +   " ' # A 0 9 E 8 F ' "  
                               +   ' "   i d = " '  
                               +   L i n k  
                               +   ' "   o n c l i c k = " l o c a t i o n . h r e f = \ ' h t t p : / / '  
                               +   H o s t + L a n g + L i n k  
                               +   ' / \ ' "   v a l i g n = " t o p " > < a   i d = " a '  
                               +   L i n k  
                               +   ' "   c l a s s = n t d   h r e f = " h t t p : / / '  
                               +   H o s t + L a n g + L i n k  
                               +   ' / " > '  
                               +   T e x t  
                               +   ' < / a > < / t d > < / t r > ' ;  
       d o c u m e n t . w r i t e ( t e x t ) ;  
 } ;  
  
 f u n c t i o n   M e n u I c o n ( T i t l e , I m a g e , L i n k )   {  
       d o c u m e n t . w r i t e (  
                 ' < a   h r e f = " '  
             +   L i n k  
             +   ' " > < i m g   w i d t h = " 1 5 "   h e i g h t = " 1 5 "   b o r d e r = " 0 "   o n m o u s e o v e r = " t h i s . s t y l e . b a c k g r o u n d C o l o r = \ ' # F C F 9 1 8 \ ' " '  
             +                                                                                       '   o n m o u s e o u t = " t h i s . s t y l e . b a c k g r o u n d C o l o r = \ ' # A 0 9 E 8 F \ ' "   t i t l e = " '  
             +   T i t l e  
             +   ' "   s r c = " '  
             +   U R L  
             +   ' / i m a g e s / S i d e / '  
             +   I m a g e  
             +   ' . g i f " > < / a >   '  
       ) ;  
 } ;  
  
 f u n c t i o n   E m p t y C e l l ( t e x t 1 )   {  
       d o c u m e n t . w r i t e ( ' < t r > < t d   o n d b l c l i c k = " T o g g l e H i d d e n I f r a m e ( ) "   c l a s s = m e n u s e p e r a t o r > ' + t e x t 1 + ' < / t d > < / t r > ' ) ;  
 } ;  
  
 f u n c t i o n   P r i n t M a i n ( )   {  
 / / 	 i f   ( d o c u m e n t . g e t E l e m e n t B y I d   ! =   n u l l )   {  
 	 	 v a r   h t m l   =   ' < h t m l > < h e a d > ' ;  
 	 	 i f   ( d o c u m e n t . g e t E l e m e n t s B y T a g N a m e   ! =   n u l l )   {  
 	 	 	 v a r   h e a d T a g s   =   d o c u m e n t . g e t E l e m e n t s B y T a g N a m e ( " h e a d " ) ;  
 	 	 	 i f   ( h e a d T a g s . l e n g t h   >   0 )   {  
 	 	 	 	 h t m l   + =   h e a d T a g s [ 0 ] . i n n e r H T M L ;  
 	 	       } ;  
 	 	 } ;  
 	 	 h t m l   + =   ' < / h e a d > < b o d y > ' ;  
 	 	 h t m l   + =   ' < i m g   s r c = " '   +   U R L   +   ' / i m a g e s / L o g o s / C u r r e n t . g i f "   w i d t h = " 1 0 0 % " > < p > ' ;  
 	 	 v a r   p r i n t R e a d y E l e m   =   d o c u m e n t . g e t E l e m e n t B y I d ( " P r i n t " ) ;  
 	 	 i f   ( p r i n t R e a d y E l e m   ! =   n u l l )   {  
 	 	 	 	 P r i n t B o d y   =   p r i n t R e a d y E l e m . i n n e r H T M L ;  
 	 	 	 	 / /   s t r i p   i n n e r s c r i p t s  
 	 	 	       p o s   =   P r i n t B o d y . i n d e x O f ( " < S C R I P T " ) ;  
 	 	 	       w h i l e   ( p o s   > = 0 )   {  
 	 	 	 	       e n d     =   P r i n t B o d y . i n d e x O f ( " S C R I P T > " ) ;  
       	 	             P r i n t B o d y   =   P r i n t B o d y . s u b s t r ( 0 , p o s )   +   P r i n t B o d y . s u b s t r ( e n d + 7 ) ;  
 	 	 	 	       p o s     =   P r i n t B o d y . i n d e x O f ( " < S C R I P T " ) ;  
 	 	 	       } ;  
 	 	 	       h t m l   + =   P r i n t B o d y ;  
 	 	 	       / /   e n d   o f   s t r i p  
 	 	 }   e l s e   {  
 	 	 	 a l e r t ( " T h e r e   i s   n o   p r i n t a b l e   p a r t   o n   t h i s   p a g e " ) ;  
 	 	 	 r e t u r n ;  
 	 	 } 	 	  
 	 	 h t m l   + =   ' < / b o d y > < / h t m l > ' ;  
             v a r   i F r a m e   =   d o c u m e n t . g e t E l e m e n t B y I d ( " H i d d e n - i F r a m e " ) ;  
             v a r   d o c   =   i F r a m e . c o n t e n t D o c u m e n t ;  
             i f   ( d o c   = =   u n d e f i n e d   | |   d o c   = =   n u l l )  
                     d o c   =   i F r a m e . c o n t e n t W i n d o w . d o c u m e n t ;  
             d o c . o p e n ( ) ;  
             d o c . w r i t e ( h t m l ) ;  
             d o c . c l o s e ( ) ;  
             i F r a m e . c o n t e n t W i n d o w . f o c u s ( ) ;  
             i F r a m e . c o n t e n t W i n d o w . p r i n t ( ) ;  
 / / 	 } ;  
 }  
  
 H o s t   =   l o c a t i o n . h o s t n a m e ;  
 P a t h   =   l o c a t i o n . p a t h n a m e ;  
 L a n g   =   P a t h . s u b s t r ( 0 , 4 ) ;  
 i f   ( L a n g   = =   ' / b a r ' )   {  
       H o s t   =   H o s t   +   P a t h . s u b s t r ( 0 , 1 6 ) ;  
       P a t h   =   P a t h . s u b s t r ( 1 6 ) ;  
       L a n g   =   P a t h . s u b s t r ( 0 , 4 ) ;  
 } ;  
 D i r           =   P a t h . s u b s t r ( 4 ) ;  
 S l a s h       =   D i r . s e a r c h ( ' / ' ) ;  
 M a i n D i r   =   D i r . s u b s t r ( 0 , S l a s h ) ;  
 i f   ( ( H o s t   = =   ' h o m e ' )  
   | |   ( H o s t   = =   ' 1 9 2 . 1 6 8 . 3 . 1 0 0 ' ) )  
       U R L   =   ' h t t p : / / '   +   H o s t   +   ' / b a r r a - d e - p o t o s i '  
 e l s e  
       U R L   =   ' h t t p : / / '   +   H o s t ;  
  
 i f   ( L a n g   = =   ' / e s / ' )   {  
       U n i v e r s a l         =   ' P á g i n a   U n i v e r s a l ' ;  
       H o m e                   =   ' P á g i n a   P r i n c i p a l ' ;  
       U p                       =   ' U n   n i v o   a r i b a ' ;  
       P r i n t                 =   ' I m p r i m e   a m i s t a l ' ;  
       A n i m a l s             =   ' A n i m a l e s ' ;  
       A r c h i v e             =   ' A r c h i v o ' ;  
       B a c k g r o u n d       =   ' A n t e c e d e n t e s ' ;  
       E n v i r o n m e n t     =   ' M e d i o   a m b i e n t e ' ;  
  
       F U Q                     =   ' F U Q ' ;  
       G a l l e r y             =   ' G a l e r i a ' ;  
       G e n e r a l             =   ' G e n e r a l i d a d e s ' ;  
       H o t s p o t             =   ' H o t s p o t ' ;  
       H o w T o G e t H e r e   =   ' C ó m o   l l e g a r ' ;  
       M a p s                   =   ' M a p a s ' ;  
       R e f e r e n c e s       =   ' R e f e r e n c i a s ' ;  
       W e b C a m               =   ' C á m a r a   W e b ' ;  
       W h a t T o D o           =   ' Q u e   h a c e r ' ;  
       W h e n T o C o m e       =   ' C u á n d o   v i s i t a r ' ;  
       W h e r e T o G o         =   ' A   d ó n d e   i r ' ;  
       W h y V i s i t           =   ' P o r   q u é   v i s i t a r ' ;  
       F o r S a l e             =   ' E n   V e n t a ' ;  
       S i t e I n f o           =   ' I n f o   d e l   S i t i o ' ;  
       O t h e r S i t e s       =   ' O t r o   S i t i o s   L o c a l e s ' ;  
       L a n g u a g e           =   ' & # 9 6 5 8 ;   E n g l i s h ' ;  
 }   e l s e   {  
       U n i v e r s a l         =   ' U n i v e r s a l   P a g e ' ;  
       H o m e                   =   ' H o m e   P a g e ' ;  
       U p                       =   ' O n e   l e v e l   u p ' ;  
       P r i n t                 =   ' P r i n t   f r i e n d l y ' ;  
       A n i m a l s             =   ' A n i m a l s ' ;  
       A r c h i v e             =   ' A r c h i v e ' ;  
       B a c k g r o u n d       =   ' B a c k g r o u n d ' ;  
       E n v i r o n m e n t     =   ' E n v i r o n m e n t ' ;  
       F o r S a l e             =   ' F o r   S a l e ' ;  
       F U Q                     =   ' F U Q ' ;  
       G a l l e r y             =   ' G a l l e r y ' ;  
       G e n e r a l             =   ' G e n e r a l ' ;  
       H o t s p o t             =   ' H o t s p o t ' ;  
       H o w T o G e t H e r e   =   ' H o w   t o   g e t   h e r e ' ;  
       M a p s                   =   ' M a p s ' ;  
       R e f e r e n c e s       =   ' R e f e r e n c e s ' ;  
       W e b C a m               =   ' W e b C a m ' ;  
       W h a t T o D o           =   ' W h a t   t o   d o ' ;  
       W h e n T o C o m e       =   ' W h e n   t o   c o m e ' ;  
       W h e r e T o G o         =   ' W h e r e   t o   g o ' ;  
       W h y V i s i t           =   ' W h y   v i s i t ' ;  
       S i t e I n f o           =   ' S i t e   I n f o ' ;  
       O t h e r S i t e s       =   ' O t h e r   L o c a l   S i t e s ' ;  
       L a n g u a g e           =   ' & # 9 6 5 8 ;   E s p a ñ o l ' ;  
 } ;  
  
       d o c u m e n t . w r i t e ( ' < t r > < t d   c l a s s = m e n u > ' ) ;  
       M e n u I c o n ( H o m e , ' H o m e ' , U R L ) ;  
       M e n u I c o n ( U p ,     ' U p ' ,     ' . . ' ) ;  
       M e n u I c o n ( P r i n t , ' P r i n t ' , ' j a v a s c r i p t : P r i n t M a i n ( ) ' ) ;  
       d o c u m e n t . w r i t e ( ' < / t d > < / t r > ' ) ;  
       M e n u E n t r y ( L a n g u a g e , ' L a n g u a g e ' ) ;  
       E m p t y C e l l ( ' < h r > ' ) ;  
  
 i f   (   L a n g   = =   ' / e n / '   )   {  
       M e n u E n t r y ( A n i m a l s , ' A n i m a l s ' ) ;  
       M e n u E n t r y ( A r c h i v e , ' A r c h i v e ' ) ;  
       M e n u E n t r y ( B a c k g r o u n d , ' B a c k g r o u n d ' ) ;  
       M e n u E n t r y ( E n v i r o n m e n t , ' E n v i r o n m e n t ' ) ;  
       M e n u E n t r y ( F o r S a l e , ' F o r S a l e ' ) ;  
       M e n u E n t r y ( F U Q , ' F U Q ' ) ;  
       M e n u E n t r y ( G a l l e r y , ' G a l l e r y ' ) ;  
       M e n u E n t r y ( G e n e r a l , ' G e n e r a l ' ) ;  
 / /   M e n u E n t r y ( H o t s p o t , ' H o t s p o t ' ) ;  
       M e n u E n t r y ( H o w T o G e t H e r e , ' H o w T o G e t H e r e ' ) ;  
       M e n u E n t r y ( M a p s , ' M a p s ' ) ;  
       M e n u E n t r y ( R e f e r e n c e s , ' R e f e r e n c e s ' ) ;  
 / /   M e n u E n t r y ( W e b C a m , ' W e b C a m ' ) ;  
       M e n u E n t r y ( W h a t T o D o , ' W h a t T o D o ' ) ;  
       M e n u E n t r y ( W h e n T o C o m e , ' W h e n T o C o m e ' ) ;  
       M e n u E n t r y ( W h e r e T o G o , ' W h e r e T o G o ' ) ;  
       M e n u E n t r y ( W h y V i s i t , ' W h y V i s i t ' ) ;  
       E m p t y C e l l ( ' & n b s p ; ' ) ;  
       M e n u E n t r y ( S i t e I n f o , ' S i t e I n f o ' ) ;  
       M e n u E n t r y ( O t h e r S i t e s , ' O t h e r S i t e s ' ) ;  
       N e x t L a n g   =   ' / e s / ' ;  
 }   e l s e   {  
       M e n u E n t r y ( W h e r e T o G o , ' W h e r e T o G o ' ) ;  
       M e n u E n t r y ( A n i m a l s , ' A n i m a l s ' ) ;  
       M e n u E n t r y ( B a c k g r o u n d , ' B a c k g r o u n d ' ) ;  
       M e n u E n t r y ( A r c h i v e , ' A r c h i v e ' ) ;  
 / /   M e n u E n t r y ( W e b C a m , ' W e b C a m ' ) ;  
       M e n u E n t r y ( H o w T o G e t H e r e , ' H o w T o G e t H e r e ' ) ;  
       M e n u E n t r y ( W h e n T o C o m e , ' W h e n T o C o m e ' ) ;  
       M e n u E n t r y ( F o r S a l e , ' F o r S a l e ' ) ;  
       M e n u E n t r y ( F U Q , ' F U Q ' ) ;  
       M e n u E n t r y ( G a l l e r y , ' G a l l e r y ' ) ;  
       M e n u E n t r y ( G e n e r a l , ' G e n e r a l ' ) ;  
 / /   M e n u E n t r y ( H o t s p o t , ' H o t s p o t ' ) ;  
       M e n u E n t r y ( M a p s , ' M a p s ' ) ;  
       M e n u E n t r y ( E n v i r o n m e n t , ' E n v i r o n m e n t ' ) ;  
       M e n u E n t r y ( W h y V i s i t , ' W h y V i s i t ' ) ;  
       M e n u E n t r y ( W h a t T o D o , ' W h a t T o D o ' ) ;  
       M e n u E n t r y ( R e f e r e n c e s , ' R e f e r e n c e s ' ) ;  
       E m p t y C e l l ( ' & n b s p ; ' ) ;  
       M e n u E n t r y ( S i t e I n f o , ' S i t e I n f o ' ) ;  
       M e n u E n t r y ( O t h e r S i t e s , ' O t h e r S i t e s ' ) ;  
       N e x t L a n g   =   ' / e n / ' ;  
 } ;  
  
 H r e f   =   ' h t t p : / / ' + H o s t + N e x t L a n g + D i r ;  
 d o c u m e n t . g e t E l e m e n t B y I d ( ' a L a n g u a g e ' ) . h r e f       =   H r e f ;  
 L a n g u a g e . o n c l i c k   =   H r e f ;  
  
 I d   =   d o c u m e n t . g e t E l e m e n t B y I d ( M a i n D i r ) ;  
 i f   ( I d )   {  
       i f   ( ( M a i n D i r + ' / '   = =   D i r )  
         | |   ( M a i n D i r + ' / i n d e x . h t m l '   = =   D i r ) )   {  
             a I d   =   d o c u m e n t . g e t E l e m e n t B y I d ( ' a ' + M a i n D i r ) ;  
             I d . i n n e r H T M L   =   a I d . i n n e r H T M L ;  
             I d . o n m o u s e o v e r   =   ' ' ;  
             I d . o n m o u s e o u t     =   ' ' ;  
             I d . s t y l e . c o l o r   =   ' # A 0 9 E 8 F ' ;  
             I d . b g C o l o r           =   ' # F F F F F F ' ;  
             I d . c l a s s N a m e       =   ' m e n u ' ;  
       }   e l s e   {  
             I d . b g C o l o r           =   ' # F F F F F F ' ;  
             I d . s t y l e . c o l o r   =   ' # A 0 9 E 8 F ' ;  
             I d . o n m o u s e o u t     =   f u n c t i o n ( )   { t h i s . b g C o l o r = ' # F F F F F F ' } ;  
             I d . o n m o u s e o v e r   =   f u n c t i o n ( )   { t h i s . b g C o l o r = ' # F C F 9 1 8 ' } ;  
       } ;  
 } ;  
 
