Replace String konflinkt.

I mit forum definere jeg nogle replaces, samt har en linkfinder.

Problemer er bare at der er konflikt imellem 2 af funktionerne så hvis man trykker enter efter man har skrevet et link. tager den <BR> med i urlen:

<%
Function Smilie(TextStr)
    Dim NewStr
    NewStr = TextStr
    NewStr = Replace(NewStr,VbCrLf,"<br>")


' ##### Link finder -  Lasse Jakobsen 2002 ######

      Set objRegExpHTTP1 = New RegExp
      Set objRegExpHTTP2 = New RegExp   
      Set objRegExpEMail = New RegExp
 
      objRegExpHTTP1.Pattern = "(http|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
      objRegExpHTTP2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}\S*)"
      objRegExpEMail.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,3}\S*)"

      objRegExpHTTP1.Global = True
      objRegExpHTTP2.Global = True
      objRegExpEMail.Global = True

      objRegExpHTTP1.IgnoreCase = True
      objRegExpHTTP2.IgnoreCase = True
      objRegExpEMail.IgnoreCase = True

      NewStr    = objRegExpEMail.Replace(TextStr, " <a href='mailto:$1'>$1</a> ")
      NewStr    = objRegExpHTTP1.Replace(NewStr, " <a href='$1$2' target='_blank'>$1$2</a> ")
      NewStr    = objRegExpHTTP2.Replace(NewStr, " <a href='http://$2' target='_blank'>$2</a> ")
       
      Set objRegExpHTTP2 = Nothing
      set objRegExpHTTP1 = Nothing
      Set objRegExpEMail = Nothing


      Smilie = NewStr   
End Function


Der er lige klippet en masse smileys ud i midten.