ÿþf u n c t i o n   C h e c k C R S S o f t w a r e ( b S h o w M e s s a g e , c a s e 1 , c a s e 2 , c a s e 4 , c a s e 5 )   {  
     v a r   b R e t u r n ;  
     v a r   C R S L i n k ;  
     v a r   s C R S S t a t e ;  
     v a r   i n s t ;  
     v a r   p d l c c a r d ;  
     v a r   c a r d S t a t e ;      
     v a r   i = 0 ;  
     b R e t u r n   =   f a l s e ;  
     C R S L i n k   =   d o c u m e n t . g e t E l e m e n t B y I d ( " C R S L i n k " ) ;  
     i n s t =   d o c u m e n t . g e t E l e m e n t B y I d ( " c b o C o m u n e " ) ;  
     t r y {  
         t r y   {  
             p d l c c a r d   =   n e w   A c t i v e X O b j e c t ( " L I S I T P d L C . S C a r d L i s t e n e r " ) ;  
         }      
         c a t c h ( e ) {  
             a l e r t ( ' I n s t a l l a   i l   c o m p o n e n t e   p e r   l a   r i l e v a z i o n e   d e l l o   s t a t o   d e l   l e t t o r e   e   l \ ' a u t e n t i c a z i o n e   S S L ! ' ) ;  
             r e t u r n ;  
         }   	      
 	 p d l c c a r d . R e s e t ( ) ;    
 	 p d l c c a r d . S t a r t ( ) ;    
 	 w h i l e   ( p d l c c a r d . C a r d S t a t e = = 0   & &   i < 3 )   {    
 	         s l e e p ( 2 0 0 ) ;  
 	         i + + ;  
 	 }  
 	 c a r d S t a t e   = p d l c c a r d . C a r d S t a t e ;  
 	 i f   ( c a r d S t a t e ! =   3   )   {  
 	         i f   ( b S h o w M e s s a g e = = ' T r u e ' )   {  
 	         s w i t c h   ( c a r d S t a t e ) {  
 	 	 	 c a s e   1 :  
 	 	 	 / / " S i   è   v e r i f i c a t o   u n   e r r o r e   c h e   h a   i m p e d i t o   d i   d e t e r m i n a r e   l o   s t a t o   d e l l a   c o n n e s s i o n e   a l l a   c a r t a . ! "    
 	 	 	 a l e r t ( c a s e 1 ) ;  
 	 	 	 b r e a k ;  
 	 	 	 c a s e   2 :    
 	 	 	 / / " I l   l e t t o r e   è   v u o t o !   I n s e r i r e   l a   C a r t a   R e g i o n a l e   d e i   S e r v i z i   ( C R S ) ! "  
 	 	 	 a l e r t ( c a s e 2 ) ;  
 	 	 	 b r e a k ;  
 	 	 	 c a s e   4 :    
 	 	 	 / / " L a   c a r t a   n o n   r i s p o n d e .   V e r i f i c a r e   c h e   s i a   s t a t a   i n s e r i t a   c o r r e t t a m e n t e ! "  
 	 	 	 a l e r t ( c a s e 4 ) ;  
 	 	 	 b r e a k ;  
 	 	 	 c a s e   5 :  
 	 	 	 / / " L a   c a r t a   i n s e r i t a   n o n   è   u n a   C R S ! "  
 	 	 	 a l e r t ( c a s e 5 ) ;  
 	 	 	 b r e a k ;  
 	 	 } 	 	  
 	         }  
 	 } e l s e {  
 	         b R e t u r n   =   t r u e ;    
 	         w i n d o w . l o c a t i o n . h r e f = C R S L i n k . v a l u e   +   G e t S e l e c t e d I t e m ( i n s t ) ;  
 	 }        
 	  
     }  
     c a t c h ( e ) {  
         a l e r t ( e . d e s c r i p t i o n ) ;  
     }   	  
     r e t u r n   b R e t u r n ;  
 }  
  
   f u n c t i o n   s l e e p ( m s )  
   {  
     v a r   d t   =   n e w   D a t e ( ) ;  
     d t . s e t T i m e ( d t . g e t T i m e ( )   +   m s ) ;  
     w h i l e   ( n e w   D a t e ( ) . g e t T i m e ( )   <   d t . g e t T i m e ( ) ) ;  
   }  
    
 f u n c t i o n   G e t S e l e c t e d I t e m ( c b o ) {  
 v a r   i C n t = 0 ;  
  
         w h i l e   ( c b o . o p t i o n s [ i C n t ] )   {  
 	         i f   ( c b o . o p t i o n s [ i C n t ] . s e l e c t e d ) {  
 	 	         r e t u r n   c b o . o p t i o n s [ i C n t ] . v a l u e ;  
 	         }  
 	         i C n t   + =   1  
         }  
          
 }  
  
 f u n c t i o n   G e t S e l e c t e d I d x ( c b o ) {  
 v a r   i C n t = 0 ;  
  
         w h i l e   ( c b o . o p t i o n s [ i C n t ] )   {  
 	         i f   ( c b o . o p t i o n s [ i C n t ] . s e l e c t e d ) {  
 	 	         r e t u r n   i C n t ;  
 	         }  
 	         i C n t   + =   1  
         }  
          
 }  
 f u n c t i o n   S h o w H i d e C R S A c c e s s ( s C R S A c c e s s ) {  
     d o c u m e n t . g e t E l e m e n t B y I d ( ' j s ' ) . v a l u e = ' y e s ' ;  
     v a r   b t n C R S = d o c u m e n t . g e t E l e m e n t B y I d ( " b t n C R S A c c e s s " ) ;  
     v a r   l n k C R S   =   d o c u m e n t . g e t E l e m e n t B y I d ( " C R S S o f t w a r e " ) ;  
     v a r   c b o   =   d o c u m e n t . g e t E l e m e n t B y I d ( " c b o C o m u n e " ) ;  
     v a r   i   =   G e t S e l e c t e d I d x ( c b o ) ;  
     v a r   s C R T A c c = s C R S A c c e s s . s p l i t ( " | " ) ;  
     i f   ( s C R T A c c [ i ]   = =   ' t r u e ' )   {  
         b t n C R S . s t y l e . v i s i b i l i t y   =   ' v i s i b l e ' ;  
         l n k C R S . s t y l e . v i s i b i l i t y   =   ' v i s i b l e ' ; }  
     e l s e {  
         b t n C R S . s t y l e . v i s i b i l i t y   =   ' h i d d e n ' ;  
         l n k C R S . s t y l e . v i s i b i l i t y   =   ' h i d d e n ' ;  
     }      
          
 } 
