asplink

Hej. nogen der kan se hvorfor dette script laver en fejl når der indsættes flere links på ny linie?
Problemet er at alle links så kobles sammen med <br>.

Function makeLinks(strText)
    Dim objReg
   
    Set objReg = New RegExp
    objReg.Global = True
    objReg.IgnoreCase = True
     
    '--- test for ordinary hyperlinks ---
    objReg.Pattern = "(\bhttp\:\/\/)?(\bw{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
    strText = objReg.Replace(strText, "<a href=""http://$2$3$4"" target=""_blank"">$1$2$3$4</a>")
   
    '--- test for e-mail occurences ---
    objReg.Pattern = "(\S+@{1}\S+\.[a-z][a-z]+\b)"
    strText = objReg.Replace(strText, "<a href=""mailto:$1"" target=""_blank"">$1</a>")
   
    Set objReg = Nothing
   
    makeLinks = strText
End Function