<%=Replace(RecSet("r1"),VbCrLf,"<br />") %>

<%
Function  fix(text)  
  
  text = Replace(RecSet("r1"),VbCrLf,"<br>")
  
  With New RegExp
  .Global=True
  .IgnoreCase=True
  .Pattern="\[b\]([\w\W]*?)\[/b\]"
  text=.Replace(text,"<b>$1</b>")
  .Pattern="\[u\]([\w\W]*?)\[/u\]"
  text=.Replace(text,"<u>$1</u>")
  .Pattern="\[i\]([\w\W]*?)\[/i\]"
  text=.Replace(text,"<i>$1</i>")
  .Pattern = "(http://(\w|\.|/|-|\?|=|%|&|;|~|#|,){1,}\w*)"
  text =.Replace(text,"<a href=""$1"" target=""_blank"">$1</a>")
  .Pattern="\[pic\]([\w\W]*?)\[/pic\]"
  text=.Replace(text,"<img src='img\arkiv\$1'>")

  End With
fix = text
end function
%>

  function BCodeExecute(str, htmlsafe)
  dim oBCode
  set oBCode = new cls_BCode
  oBCode.Settings.AutoURL = true
  BCodeExecute = oBCode.Parse(str)
  set oBCode = nothing
  end function

  AutoURL
  ParseURLs
  ParseImages
  ParseEmpathize
  ParseStrong
  ParseQuotes
  ParseVBCode
  ParseLists
  ParseSmileys
  ParseLineBreaks
  ParseColors
  ParseSize
  DisableHTML