<%

function nohtml(str)  
dim re  
Set re=new RegExp  
re.IgnoreCase =true  
re.Global=True  
re.Pattern="(\<.[^\<]*\>)"  
str=re.replace(str," ")  
re.Pattern="(\<\/[^\<]*\>)"  
str=re.replace(str," ")  
str=replace(str," ","")  
str=replace(str," ","")  
nohtml=str  
set re=nothing  
end function  

%>