Ændr tekst til link

Se .. nu blev mit link jo til et rigtig link ... selv jeg ikke skrev <a href osv ... hvordan hvordan ? ;D

Prøv følgende:

<%
function makeLink(str)
    '*** Make the reqular expr object
    Set objRegExp = New RegExp
    objRegExp.IgnoreCase = True
    objRegExp.Global = True

    '***Make html links
    objRegExp.Pattern = "(\bhttp\:\/\/)?(\bw{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
    str = objRegExp.Replace(str, "<a href="&chr(34)&"http://$2$3$4"&chr(34)&" target='_blank'>$1$2$3$4</a>")

    '***Make html mailto
    objRegExp.Pattern = "(\S+@{1}\S+\.[a-z][a-z]+\b)"
    str = objRegExp.Replace(str, "<a href="&chr(34)&"mailto:$1"&chr(34)&">$1</a>")
    Set objRegExp = Nothing
    makelink = str
end function
%>

tekst = replace(rs("tekst"), vbCrLf, " <BR>")
tekst = makelink(tekst)

/Goose

Jeg er et stort spørgsmålstegn, men det virkede da :) Tak skal du have :)

Jeg har også opgivet at finde ud af hvordan det virker, men det virker, husk blot på, at der skal være et mellemrum før <BR> i replacen ellers kan det gå galt :o)

/Goose