ÿþ/ /   i n v a l i d   p a s s w o r d  
 f u n c t i o n   P r o c e s s I n v a l i d P a s s ( u s e r I d )   {  
         S e t V a l i d a t i o n M s g ( " B a d P W " ,   " v a l i d T e x t 1 " ) ; 	  
 }  
  
 / /   i n v a l i d   i d  
 f u n c t i o n   P r o c e s s I n v a l i d I d ( )   {  
         S e t V a l i d a t i o n M s g ( " B a d I D " ,   " v a l i d T e x t 1 " ) ; 	  
 }  
  
 / /   i n v a l i d   p a s s w o r d  
 f u n c t i o n   P r o c e s s B a n n e d I d ( u s e r I d )   {  
         S e t V a l i d a t i o n M s g ( " B a n n e d I d " ,   " v a l i d T e x t 1 " ) ; 	  
 }  
  
  
 v a r   o b j U s e r I d ;  
 v a r   o b j P a s s w o r d ;  
 v a r   s t r U s e r I d ;  
 v a r   s t r P a s s w o r d ;  
 v a r   i s L o g i n   =   f a l s e ;  
  
 / /   l o g o u t  
 f u n c t i o n   L o g o u t ( )   {  
 	 i f   ( c o n f i r m ( " A r e   y o u   s u r e   y o u   w a n t   t o   l o g - o u t   f r o m   t h e   R E D B A N A   w e b s i t e ? " ) )   {  
 	 	 R e q u e s t L o g o u t ( ) ;  
 	 } 	  
 }  
  
 f u n c t i o n   C h e c k L o g i n ( )   {  
 	 v a r   o U s e r I d   =   d o c u m e n t . f o r m s [ 0 ] . U s e r I D ;  
 	 v a r   o P a s s w o r d   =   d o c u m e n t . f o r m s [ 0 ] . P a s s W o r d ;  
 	  
 	 i f   ( i s L o g i n )   {  
 	 	 S e t V a l i d a t i o n M s g ( " L o g i n g " ,   " v a l i d T e x t 1 " ) ;  
 	 	 r e t u r n   f a l s e ;  
 	 }  
 	 i f   ( ! o U s e r I d . v a l u e   | |   ! t r i m ( o U s e r I d . v a l u e ) )   {  
 	 	 S e t V a l i d a t i o n M s g ( " L o g i n I D " ,   " v a l i d T e x t 1 " ) ;  
 	 	 o U s e r I d . f o c u s ( ) ;  
 	 	 r e t u r n   f a l s e ;  
 	 }  
  
 	 i f   ( ! o P a s s w o r d . v a l u e   | |   ! t r i m ( o P a s s w o r d . v a l u e ) )   {  
 	 	 S e t V a l i d a t i o n M s g ( " L o g i n P W " ,   " v a l i d T e x t 1 " ) ;  
 	 	 o P a s s w o r d . f o c u s ( ) ;  
 	 	 r e t u r n   f a l s e ;  
 	 }  
  
 	 o P a s s w o r d . v a l u e   =   m d 5 _ v m ( o P a s s w o r d . v a l u e ) ; 	  
 	  
 	 o b j U s e r I d   =   o U s e r I d ;  
 	 o b j P a s s w o r d   =   o P a s s w o r d ;  
 	 s t r U s e r I d   =   t r i m ( o U s e r I d . v a l u e ) ;  
 	 s t r P a s s w o r d   =   t r i m ( o P a s s w o r d . v a l u e ) ;  
 	 i s L o g i n   =   t r u e ;  
  
 	 R e q u e s t L o g i n ( s t r U s e r I d ,   s t r P a s s w o r d ,   L o g i n V a l i d F u c t i o n ,   L o g i n L e a v e F u n c t i o n ,   L o g i n I n v a l i d I d F u c t i o n ,   L o g i n I n v a l i d P a s s F u c t i o n ,   L o g i n B a n n e d I d F u c t i o n ,   L o g i n E r r o r F u n c t i o n ) ;  
 	 r e t u r n   t r u e ;  
 }  
  
  
 f u n c t i o n   L o g i n V a l i d F u c t i o n ( l o g i n U s e r )   {  
         i f ( l o g i n U s e r . s t a t u s   ! =   " N " )  
         {  
 	         i f   ( g e t c o o k i e ( " R e g S i t e C o o k i e " )   ! =   " n e x o n " )  
 	 	 	 l o c a t i o n . h r e f   =   " / " ;  
 	 	 e l s e 	 	  
 	 	 	 l o c a t i o n . h r e f   =   " h t t p : / / w w w . r e d b a n a . c o m / M e m b e r S h i p / T r a n s f e r M i d d l e . a s p x " ;  
         }  
 }  
  
 f u n c t i o n   L o g i n L e a v e F u n c t i o n ( )  
 {  
 	 i s L o g i n   =   f a l s e ;          
         s t r U s e r I d   =   ' ' ;  
         s t r P a s s w o r d   =   ' ' ;  
         o b j U s e r I d . v a l u e   =   ' ' ;  
         o b j P a s s w o r d . v a l u e   =   ' ' ;  
 } ;  
 f u n c t i o n   L o g i n I n v a l i d I d F u c t i o n ( )  
 {  
 	 i s L o g i n   =   f a l s e ;  
         P r o c e s s I n v a l i d I d ( ) ;  
         s t r U s e r I d   =   ' ' ;  
         s t r P a s s w o r d   =   ' ' ;  
         o b j U s e r I d . v a l u e   =   ' ' ;  
         o b j P a s s w o r d . v a l u e   =   ' ' ;  
 } ;  
  
 f u n c t i o n   L o g i n I n v a l i d P a s s F u c t i o n ( i d )  
 {  
 	 i s L o g i n   =   f a l s e ;  
         P r o c e s s I n v a l i d P a s s ( i d ) ;  
         s t r P a s s w o r d   =   ' ' ;  
         o b j P a s s w o r d . v a l u e   =   ' ' ;  
 } ;  
  
 f u n c t i o n   L o g i n B a n n e d I d F u c t i o n ( i d )  
 {  
 	 i s L o g i n   =   f a l s e ;  
         P r o c e s s B a n n e d I d ( i d ) ;  
         s t r P a s s w o r d   =   ' ' ;  
         o b j P a s s w o r d . v a l u e   =   ' ' ;  
 } ;  
  
 f u n c t i o n   L o g i n E r r o r F u n c t i o n ( m s g )  
 {  
 	 i s L o g i n   =   f a l s e ;  
         S e t V a l i d a t i o n M s g ( " L o g i n F a i l " ,   " v a l i d T e x t 1 " ) ;  
         s t r P a s s w o r d   =   ' ' ;  
         o b j P a s s w o r d . v a l u e   =   ' ' ;  
 } ; 
