Problemer med Reg.Exp

Jeg har et felt i en access db som defineret som "note"

Når jeg skriver dette felt ud til min asp side, har jeg brugt et script til at lave skrevne links om til klikbare links.

Da det jo et et note felt bruger jeg denne linie for at få de korrekte linieskift.

broedtekst = Replace(broedtekst&"", vbCrLf, "<BR>")

Jeg har et problem hvis man skriver en stribe links som starter med http:// så virker det fint.

men hvis jeg kun skriver www.test.dk så laver den ikke linieskiftet.

Hele scriptet:
<%
Function LinkString2(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp
Set objRegExpMAILTO1 = New RegExp

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

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True
objRegExpMAILTO1.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True
objRegExpMAILTO1.IgnoreCase = True

strOutput = objRegExpHTTP1.Replace(strInput, " <a href='$1$2' target='_blank'>$1$2</a> ")
strOutput = objRegExpHTTP2.Replace(strOutput, " $1<a href='http://$2' target='_blank'>$2</a> ")
strOutput = objRegExpMAILTO1.Replace(strOutput, "<a href=""mailto:$1"">$1</a>")

objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])('>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(' target=)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(</a>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2$1")
objRegExpMAILTO1.Pattern = "(<br>|[,.)\]\}])(</a>)"
strOutput = objRegExpMAILTO1.Replace(strOutput, "$1")

Set objRegExpMAILTO1 = Nothing
Set objRegExpHTTP2 = Nothing
set objRegExpHTTP1 = Nothing

LinkString2 = strOutput
End Function
%>

//Mekaniker