link skal blive til klikbar link

umm står alle urls i et felt eller i hversit ?

må vi se noget kode du har forsøgt dig med?

Det er ét notat flet, hvor der der nyehder i.

Jeg har forsøgt med denne kode:
<%
  linkText = rs("tekst")
 
Function makeLinks(strText)
    Dim objReg
    Set objReg = New RegExp
    objReg.Global = True
    objReg.IgnoreCase = True
      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>")
    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))

%>

Følger lige med...

http://www.asp.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1

http://www.asp.dk/sources.asp?mode=view_source&cat_id=9&id=860&tech_id=1

http://www.asp.dk/sources.asp?mode=view_source&cat_id=9&id=1041&tech_id=1

//>Rune

Jeg fik det langt om længe til at virke.
Tak for hjælpen.

Anytime ;o)
Thx 4 Poinz

//>Rune