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