1. function nohtml(str)   
2. dim re   
3. Set re=new RegExp   
4.        re.IgnoreCase =true   
5.        re.Global=True   
6.        re.Pattern="(\<.[^\<]*\>)"   
7.        str=re.replace(str," ")   
8.        re.Pattern="(\<\/[^\<]*\>)"   
9.        str=re.replace(str," ")   
10.        str=replace(str,"&nbsp;","")  
11.        str=replace(str," ","")  
12.        nohtml=str   
13.        set re=nothing   
14. end function