finde links i tekst og lave dem til aktive links

Jeg kan da lave den hvis der ikke er andre ...

OK - det ville være kanon, der pointl ige med det samme :)

'Gjør om tekst med adresser (mail og www) til linker
Function LinkString2(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp
Set objRegExpEMail = New RegExp

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

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True
objRegExpEMail.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True
objRegExpEMail.IgnoreCase = True

strOutput = objRegExpEMail.Replace(strInput, "<a href='mailto:$1'>$1</a>")
strOutput = objRegExpHTTP1.Replace(strOutput, "[<a href='$1$2' target='_blank'><b>Vis info</b></a>]")
strOutput = objRegExpHTTP2.Replace(strOutput, "$1[<a href='http://$2' target='_blank'><b>Vis info</b></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
Set objRegExpEMail = Nothing

LinkString2 = strOutput
End Function

LinkString2(DIN STRENG eller recordset)

Hold da kæft man, det var lidt af en smøre.....tusind tak.

Jeg får denne her fejl:

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EE)
Tegnet ')' var ventet
/webvizion/Expositus/PartnerSearch/partner_oversigt.asp, line 169, column 19
LinkString2("&rss("kommentar")&")

Og hvis jeg bruger rss("kommentar"):

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typer stemmer ikke overens: 'objRegExpEMail.Replace'
/webvizion/Expositus/PartnerSearch/partner_oversigt.asp, line 31

LinkString2(rss("kommentar"))

prøv lige med

Response.Write(LinkString2("Dette er test med en www.adresse.dk og en email@adresse.dk."))

det virker, men ikke med LinkString2(rss("kommentar"))

feltet er et notat felt...

jeg har fået det til at fungerer, jeg havde ikke skrevet repsonse.wirte.....:(

Kan du lige hjælpe med en sidste ting, jeg vil gerne have mellemrum <BR> når der er mellemrum teksten PLEASE :)