Konvertere textlink til HTML link fra Memofelt

Hey drenge.

Så sidder jeg igen med en lille ting som jeg ikke kan få til at funke :}

Jeg søger en funktion, som omdanner tekstlinks til HTML links. Det skal have sin funktion, idet jeg trækker data ud af et memofelt fra min database, såsom et forumpost.

Jeg har prøvet nogle færdiglavede snippets, og det bedste var dette:

<%
Function LinkTekst(Tekst)
LinkTekst = ""
A_Start = 1

if InStr(Tekst, "http://") then
  do until A_Start >= len(Tekst)
  LinkChr = InStr(A_Start, Tekst, "http://")
  NextSpace = InStr(LinkChr, Tekst, " ")

  if NextSpace = 0 then NextSpace = Len(Tekst) + 1

  URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

  LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
  LinkTekst = LinkTekst & "<b><A Target=_Blank Href=" & Chr(34) & URL & Chr(34) & Chr(32) & ">" & URL & "</b></A> "

  if Int(LinkChr) = Int(InStrRev(Tekst, "http://")) then
    LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
    A_Start = Len(Tekst)
  else
    A_Start = NextSpace
  end if
  loop
else
  LinkTekst = Tekst
end if
End Function
%>

Problemet med denne snippet, er at hvis et link er det sidste ord i en sætning umiddelbart INDEN <br> omdanner den første ord i næste linie til at være en del af linket.

Nogen der kan hjælpe?

Yam^