ÿþv a r   m o b i l e D e v i c e s   =   n e w   A r r a y (  
                 " i p h o n e " ,  
                 " i p o d " ,  
                 " p l a y s t a t i o n " ,  
                 " w a p " ,  
                 " w i n d o w s   c e " ,  
                 " w m 5   p i e " ,  
                 " i e m o b i l e " ,  
                 " s e r i e s 6 0 " ,  
                 " s y m b i a n " ,  
                 " s e r i e s 6 0 " ,  
                 " s e r i e s 7 0 " ,  
                 " s e r i e s 8 0 " ,  
                 " s e r i e s 9 0 " ,  
                 " b l a c k b e r r y " ,  
                 " a n d r o i d " ,  
                 " m i d p " ,  
                 " w m l " ,  
                 " b r e w " ,  
                 " p a l m " ,  
                 " w e b o s " ,  
                 " x i i n o " ,  
                 " b l a z e r " ,  
                 " p d a " ,  
                 " n i t r o " ,  
                 " n e t f r o n t " ,  
                 " s o n y e r i c s s o n " ,  
                 " e r i c s s o n " ,  
                 " s e c - s g h " ,  
                 " d o c o m o " ,  
                 " k d d i " ,  
                 " v o d a f o n e " ,  
                 " a c e r " ,  
                 " a l c a t e l " ,  
                 " a u d i o v o x " ,  
                 " b l a c k b e r r y " ,  
                 " c d m " ,  
                 " e r i c s s o n " ,  
                 " l g " ,  
                 " l g e " ,  
                 " m o t o r o l a " ,  
                 " m o t " ,  
                 " n e c   " ,  
                 " n o k i a " ,  
                 " p a n a s o n i c " ,  
                 " q c i " ,  
                 " s a g e m " ,  
                 " s a m s u n g " ,  
                 " s e c   " ,  
                 " s a n y o " ,  
                 " s e n d o " ,  
                 " s h a r p " ,  
                 " s o n y e r i c s s o n " ,  
                 " t e l i t " ,  
                 " t e l i t _ m o b i l e _ t e r m i n a l s " ,  
                 " t s m " ,  
                 " a v a n t g o " ,  
                 " m a z i n g o " ,  
                 " m o b i l e " ,  
                 " t 6 8 " ,  
                 " s y n c a l o t "  
         ) ;  
          
 v a r   n a v A g e n t   =   n a v i g a t o r . u s e r A g e n t . t o L o w e r C a s e ( ) ;  
  
 f u n c t i o n   d e t e c t M o b i l e ( )   {  
  
         v a r   d e t e c t M o b   =   f a l s e ;  
  
         f o r   ( i   =   0 ;   i   <   m o b i l e D e v i c e s . l e n g t h ;   i + + )   {  
                 i f   ( n a v A g e n t . s e a r c h ( m o b i l e D e v i c e s [ i ] )   ! =   - 1 )   {  
                         d e t e c t M o b   =   t r u e ;  
                 }  
         }  
  
         r e t u r n   d e t e c t M o b ;  
 }  
  
 i f   ( ! d e t e c t M o b i l e ( ) )   {  
         w i n d o w . l o c a t i o n   =   " h t t p : / / w w w . m e d a t u a l . c o m . b r " ;  
 } 
