Links i gæstebog

Jeg vil gerne ha omskrevet links så de vises som links i min gæstebog. Jeg har fundet dette her på eksperten:

Function LinkString2(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp

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

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.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> ")

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")

Set objRegExpHTTP2 = Nothing
set objRegExpHTTP1 = Nothing

LinkString2 = strOutput
End Function

Men jeg kan ikke få sat response.write linkString2 ind så den viser dem som links.?

Koden det skal sættes ind i:

        dtmDato = rs("Dato")
        dtmDato = FormatDateTime(dtmDato,vbShortDate) & " kl. " & FormatDateTime(dtmDato,vbShortTime)
        Response.Write "<div class=""indlaeg""><span class=""overskrift5"">" & rs("Overskrift") & "</span><span class=""hvem"">d. " & dtmDato & " skrev "
        If Len(rs("Email")) > 0 Then
        Response.Write "<a class='tlink' href='mailto:" & rs("Email") & "'>" & rs("Navn") & "</a></span><br /><br />"
        End If
        strContent= smiley(rs("Kommentar"))
        Response.Write strContent & "</div><br />"