ÿþf u n c t i o n   f n C h e c k C o m p a n y S e l e c t ( )  
 	 {  
 	 	 i f   ( d o c u m e n t . g e t E l e m e n t B y I d ( " r U s e r T y p e 3 " ) . c h e c k e d )  
 	 	 {  
 	 	 	 / / d o c u m e n t . g e t E l e m e n t B y I d ( " C h e c k C o m p a n y S e l e c t " ) . s t y l e . d i s p l a y   =   ' ' ;  
 	 	 	 d o c u m e n t . g e t E l e m e n t B y I d ( " c o m p a n y n a m e " ) . d i s a b l e d   =   f a l s e ;  
 	 	 }  
 	 	 e l s e  
 	 	 {  
 	 	 	 / / d o c u m e n t . g e t E l e m e n t B y I d ( " C h e c k C o m p a n y S e l e c t " ) . s t y l e . d i s p l a y   =   ' n o n e ' ;  
 	 	 	 d o c u m e n t . g e t E l e m e n t B y I d ( " c o m p a n y n a m e " ) . d i s a b l e d   =   t r u e ;  
 	 	 } 	  
 	 }  
 	  
 	  
 	 f u n c t i o n   f n C l o s e ( )  
 	 {  
 	 	 w i n d o w . o p e n e r . l o c a t i o n . r e l o a d ( t r u e ) ;  
 	 	 s e l f . c l o s e ( ) ;  
 	 }  
 	 f u n c t i o n   t r i m ( s t r )  
 	 {  
 	 	 r e t u r n   ( s t r   & &   t y p e o f ( s t r   = =   " s t r i n g " ) )   ?   s t r . r e p l a c e ( / ^ \ s * / ,   " " ) . r e p l a c e ( / \ s * $ / ,   " " )   :   s t r ;  
 	 }  
 	  
 	 f u n c t i o n   f n C h e c k K e y ( )  
 	 {  
 	 	 v a r   i n t K e y C o d e   =   e v e n t . k e y C o d e ;  
 	 	 i f ( ( i n t K e y C o d e   <   4 8 )   | |   ( i n t K e y C o d e   >   5 7 ) )  
 	 	 {  
 	 	 	 e v e n t . r e t u r n V a l u e   =   f a l s e ;  
 	 	 	 r e t u r n   f a l s e ;  
 	 	 }  
 	 }  
 	  
 	 f u n c t i o n   f n O K P V a l i d T e l ( )  
 	 {  
 	 v a r   i n t K e y C o d e   =   e v e n t . k e y C o d e ;  
 	 i f ( ( i n t K e y C o d e   <   4 8 )   | |   ( i n t K e y C o d e   >   5 7 ) )  
 	 {  
 	 	 e v e n t . r e t u r n V a l u e   =   f a l s e ;  
 	 	 r e t u r n   f a l s e ;  
 	 }  
 	 }  
  
  
 	  
 	 f u n c t i o n   f n S u b m i t ( )  
 	 {  
 	 	 v a r     s t r ,   o b j 1 ,   o b j 2 ,   o b j 3 ,   s E r r o r   =   " " ;  
 	 	 v a r   o F r m   =   d o c u m e n t . g e t E l e m e n t B y I d ( " n e w s l e t t e r " ) ;  
  
 	 	 s t r   =   d o c u m e n t . g e t E l e m e n t B y I d ( " e m a i l " ) . v a l u e ;  
 	 	  
 	 	 i f   ( ! ( t r i m ( s t r ) ) )   { s E r r o r   + =   ( " -     U d f y l d   v e n l i g s t   E - m a i l .   \ n " ) ; }  
 	 	 e l s e   {  
 	 	 	 s t r   =   s t r . s e a r c h ( / ^ [ a - z 0 - 9 \ . _ - ] + @ { 1 } ( [ a - z 0 - 9 _ - ] + \ . { 1 } ) + [ a - z ] { 2 , 3 } ( [ a - z A - Z ] ) ? $ / i ) ;  
 	 	 	 i f   ( s t r   = =   - 1 )   { s E r r o r   + =   ( " -     E - m a i l   f o r m a t   e r   i k k e   k o r r e k t   \ n " ) ; }  
 	 	 }  
                  o F r m . a c t i o n   =   " h t t p : / / s e r v i c e . m a i l l i s t . d a n d o m a i n . d k / u s e r / S u b s c r i b e " ;  
 	 	  
 	 	 i f   ( s E r r o r )    
 	 	 {  
 	 	 	 a l e r t ( " M a n g l e n d e   f e l t e r : \ n "   +   s E r r o r )  
 	 	 } 	 	 	  
 	 	 e l s e  
 	 	 { 	  
 	 	 	  
 	 	 	 o F r m . s u b m i t ( ) ;  
 	 	 	 d o c u m e n t . g e t E l e m e n t B y I d ( " e m a i l " ) . v a l u e   =   ' ' ;  
 	 	 }  
  
         }  
  
 f u n c t i o n   f n R e m o v e ( )   {  
         v a r   s t r ,   o b j 1 ,   o b j 2 ,   o b j 3 ,   s E r r o r   =   " " ;  
         v a r   o F r m   =   d o c u m e n t . g e t E l e m e n t B y I d ( " n e w s l e t t e r " ) ;  
  
         s t r   =   d o c u m e n t . g e t E l e m e n t B y I d ( " e m a i l " ) . v a l u e ;  
  
         i f   ( ! ( t r i m ( s t r ) ) )   {   s E r r o r   + =   ( " -     U d f y l d   v e n l i g s t   E - m a i l .   \ n " ) ;   }  
         e l s e   {  
                 s t r   =   s t r . s e a r c h ( / ^ [ a - z 0 - 9 \ . _ - ] + @ { 1 } ( [ a - z 0 - 9 _ - ] + \ . { 1 } ) + [ a - z ] { 2 , 3 } ( [ a - z A - Z ] ) ? $ / i ) ;  
                 i f   ( s t r   = =   - 1 )   {   s E r r o r   + =   ( " -     E - m a i l   f o r m a t   e r   i k k e   k o r r e k t   \ n " ) ;   }  
         }  
  
         o F r m . a c t i o n   =   " h t t p : / / s e r v i c e . m a i l l i s t . d a n d o m a i n . d k / u s e r / U n s u b s c r i b e " ;  
  
         i f   ( s E r r o r )    
 	 {  
 	 	 a l e r t ( " M a n g l e n d e   f e l t e r : \ n "   +   s E r r o r )  
 	 } 	 	 	  
 	 e l s e  
 	 { 	  
 	 	  
 	 	 o F r m . s u b m i t ( ) ;  
 	 	 d o c u m e n t . g e t E l e m e n t B y I d ( " e m a i l " ) . v a l u e   =   ' ' ;  
 	 }  
  
 } 
