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