ASP UBB code into HTML code

Function ubb2html (str, Showemot, showimg)
on ERROR RESUME NEXT
If not str<> "" Then Exit Function
&nbs P Tmpstr= "Unobwab"
  str=ubbstr (str, "url")
  str=ubbstr (str, "quote")
  str=ubbstr (str, " Color ")
  str=ubbstr (str," size ")
  str=ubbstr (str," face ")
  if Showemot then
     for I=1 to
      str=replace (str, ": Em" &i& ":", " ', 1,6,1)
      str=replace (str, ": Em" &i& ":", "", 1,- 1,1)
    next
  End If
  if showimg then
    str=ubbstr (str, "IMG"
    str=ubbstr (str, SWF)
 str=ubbstr (str, "dir")
 str=ubbstr (str, "rm")
 str=ubbstr (str, "MP")
 str=ubbstr (str, "QT")
  End If
  STR=UBBSTR (str, "frame")
  Str=replace (str, "[b]", "<b>", 1,-1,1)
  Str=replace (STR, "[/b]", "</b>", 1,-1,1
  str=replace (str, "[u]", "<u>", 1,-1,1)
  str=replace (str, "[ /u] "," </u> ", 1,-1,1)
  str=replace (str, [BR], <br>, 1,-1,1)
  str=replace (str," [ Center] "," <center> ", 1,-1,1)
  str=replace (str," [/center] "," </center> ", 1,-1,1)
  str= Replace (str, "[Fly]", "<marquee>", 1,-1,1)
  str=replace (str, "[/fly]", "</marquee>", 1,-1,1)
  Str=replace (str, "[" &tmpstr, "[", 1,-1,1)
  Str=replace (str,tmpstr& "]", "]", 1,-1,1)
  Str=replace (str, "/" &tmpstr, "/", 1,-1,1)
  ubb2html=str
End Function