ÿþv a r   x m l h t t p ; 
 
 v a r   x m l D o c ; 
 
 v a r   n o d e L i s t ; 
 
 v a r   l e n ; 
 
 v a r   i s L o a d e d A n X m l   =   f a l s e ; 
 
 f u n c t i o n   l o a d X M L D o c ( u r l )   { 
 
 	 x m l h t t p = n u l l ; 
 
 	 i f   ( w i n d o w . X M L H t t p R e q u e s t )   { 
 
 	 	 x m l h t t p = n e w   X M L H t t p R e q u e s t ( ) ; 
 
 	 }   e l s e   i f   ( w i n d o w . A c t i v e X O b j e c t )   { 
 
 	 	 x m l h t t p = n e w   A c t i v e X O b j e c t ( " M i c r o s o f t . X M L H T T P " ) ; 
 
 	 } 
 
 	 i f   ( x m l h t t p ! = n u l l )   { 
 
 	 	 x m l h t t p . o n r e a d y s t a t e c h a n g e = s t a t e _ C h a n g e ; 
 
 	 	 x m l h t t p . o p e n ( " G E T " , u r l , t r u e ) ; 
 
 	 	 i f ( x m l h t t p . o v e r r i d e M i m e T y p e ) { 
 
 	 	 	 x m l h t t p . o v e r r i d e M i m e T y p e ( " t e x t / x m l " ) ; 
 
 	         } 
 
 	 	 x m l h t t p . s e n d ( n u l l ) ; 
 
 	 }   e l s e   { 
 
 	 	 a l e r t ( " Y o u r   b r o w s e r   d o e s   n o t   s u p p o r t   X M L H T T P . " ) ; 
 
 	 } 
 
 } 
 
 
 
 f u n c t i o n   s t a t e _ C h a n g e ( )   { 
 
 	 i f   ( x m l h t t p . r e a d y S t a t e = = 4 )   {   / /   4   =   " l o a d e d " 
 
 	 	 i f   ( x m l h t t p . s t a t u s = = 2 0 0 )   { / /   2 0 0   =   " O K " 
 
 	 	 	 x m l D o c   =   x m l h t t p . r e s p o n s e X M L . d o c u m e n t E l e m e n t ; 
 
 	 	 	 n o d e L i s t   =   x m l D o c . c h i l d N o d e s ; 
 
 	 	 	 l e n   =   n o d e L i s t . l e n g t h ; 
 
 	 	 	 v a r   u   =   c o u n t e r ; 
 
 	 	 	 f o r   ( u ;   u   <   l e n ;   u + + )   { 
 
 	 	 	 	 a d d I n p u t ( ' d y n T a b ' ,   1 ) ; 
 
 	 	 	 } 
 
 	 	 	 i s L o a d e d A n X m l   =   t r u e ; 
 
 	 	 	 w r i t e T h i s C o n t e n t ( x m l D o c ) ; 
 
 	 	 }   e l s e   { 
 
 	 	 	 a l e r t ( " P r o b l e m   r e t r i e v i n g   X M L   d a t a : "   +   x m l h t t p . s t a t u s T e x t ) ; 
 
 	 	 } 
 
 	 } 
 
 } 
 
 
 
 f u n c t i o n   w r i t e T h i s C o n t e n t ( x m l )   { 
 
 	 x m l D o c   =   x m l ; 
 
 	 n o d e L i s t   =   x m l D o c . c h i l d N o d e s ; 
 
 	 i s L o a d e d A n X m l   =   t r u e ; 
 
 	 l e n   =   n o d e L i s t . l e n g t h - 2 ; 
 
 	 v a r   o f o r m   =   d o c u m e n t . f o r m s [ ' u r l s ' ] ; 
 
 	 f o r   ( v a r   i   =   0 ;   i   <   l e n ;   i + + )   { 
 
 	 	 o f o r m . e l e m e n t s [ ' t i t o l o [ ' + i + ' ] ' ] . v a l u e = n o d e L i s t . i t e m ( i ) . a t t r i b u t e s [ ' p a g e t i t l e ' ] . v a l u e ; 
 
 	 	 o f o r m . e l e m e n t s [ ' u r l [ ' + i + ' ] ' ] . v a l u e = n o d e L i s t . i t e m ( i ) . a t t r i b u t e s [ ' p a g e u r l ' ] . v a l u e ; 
 
 	 } 
 
 } 
