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