Fejl i ASP kode

Nogen der kan finde og rette 2 fejl i denne kode?

1) Der laves ikke et link ved f.eks http://spil.tv2.dk
2) Scriptet med <br> før og efter, hvis der er et linieskift.

<%
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"">$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"">$1</a>")
   
    Set objReg = Nothing
   
    makeLinks = strText
End Function

Response.Write(makeLinks(linkText))
%>