HTMLencode og links

Du kan bruge denne funktion:


Function LinkString(strInput)
        arrPattern = Array("([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)", _
        "(http|https|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)", _
        "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,4}\S*)")

        arrReplaceString = Array(" <a href='mailto:$1'>$1</a> ", _
        " <a href='$1$2' target='_blank'>$1$2</a> ", _
        " <a href='http://$2' target='_blank'>$2</a> ")

        Set Rx = New RegExp
        Rx.Global = True
        Rx.IgnoreCase = True

        For intIndex = 0 To UBound(arrPattern)
            Rx.Pattern = arrPattern(intIndex)
            strInput = Rx.Replace(strInput, arrReplaceString(intIndex))
        Next
       
        Set Rx = Nothing

        LinkString = strInput
    End Function

tekst = rs("tekst")
tekst = Server.HTMLencode(tekst)
tekst = replace(tekst, vbCrLf, "<BR>")
response.write LinkString(tekst)

Der bliver godt nok sat et link funktion ind med target nyt vindue, men der bliver tilføjet nogen mærkelige tegn i url'en så den ikke virker.

Gør der? Hmm, må jeg prøve at se ?