Asp hjælp...

Jeg har fundet denne har script:

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

Men den virker ikke... Hvad er der galt???