function html2ubb(str)
if str<>"" and not isnull(str) then
dim re
set re=new regexp
re.ignorecase =true
re.global=true
re.pattern="(on(load|click|dbclick|mouseover|mouseout|mousedown|mouseup|mousewheel|keydown|submit|change|focus)=""[^""]+"")"
str = re.replace(str, "")
re.pattern="((name|id|class)=""[^""]+"")"
str = re.replace(str, "")
re.pattern = "(]*?>([\w\w]*?)<\/s+cript>)"
str = re.replace(str, "")
re.pattern = "(]*?>([\w\w]*?)<\/iframe>)"
str = re.replace(str, "")
re.pattern = "(

 <\/p>)"
str = re.replace(str, "")
're.pattern = "<(\w*) class\s*=\s*([^>|\s]*)([^>]*)>"
'str = re.replace(str,"<$1$3>")
set re=nothing
html2ubb = str
else
html2ubb = ""
end if
end function