Links i en tekststreng

hvis du har adgang til regExp. så kan du bruge denne funktion:

<%
        Function LinkToString(strInput)
            Set objRegExpHTTP1 = New RegExp
            objRegExpHTTP1.Global = True
            objRegExpHTTP1.IgnoreCase = True
       
            objRegExpHTTP1.Pattern = "(http|ftp|https)(:\/\/[\w]+)(.[\w]+)([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?"
            strOutput = objRegExpHTTP1.Replace(strInput, "<a href=""$1$2$3$4"" target=""_blank"">$1$2$3$4</a>")

            objRegExpHTTP1.Pattern = "(^|[^\/])(www)(.[\w]+)([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?"
            strOutput = objRegExpHTTP1.Replace(strOutput, " $1<a href=""http://$2$3$4"" target=""_blank"">$2$3$4</a>")

            objRegExpHTTP1.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,3}\S*)"
            strOutput = objRegExpHTTP1.Replace(strOutput, "<a href=""mailto:$1"">$1</a>")

            set objRegExpHTTP1 = Nothing

            LinkToString = strOutput
        End Function

response.write LinkToString("bla bla bla bla bla bla bla bla bla bla bla. bla bla bla bla bla http://www.eksperten.dk bla bla bla bla bla bla bla")
%>

Jeg får den her fejl :(

Error Type:
Sun ONE ASP VBScript compilation (0x800A03EE)
Syntax error, unexpected "identifier", expecting ")"

hvilken linie ?

strOutput = objRegExpHTTP1.Replace(strInput, "<a href=""$1$2$3$4" target=""_blank"">$1$2$3$4</a>")

Problemet er vidst desværre fandt jeg ud af efter en søgning på exp. at det er fordi sunOne ikke understøtter regExp...

-ja det lyder jo som typisk b-one... :)
Men er der andre muligheder ?

ja, jeg leder lige...

Har et gammelt spg. hvor det er løst.

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

Har var noget...

Det er vinderen af en konkurrence som netcoders afhold.
Den arbejder på strings, derfor fungerer den også på B-one..

Hmmm... den virker med de angivne eksempler, men når jeg henter tekst fra min db, så sker der ikke rigtigt noget...

Hvordan ser det ud, der hvor du henter teksten ud fra db'en ?
og konverterer med funktionen angivet ovenfor ?

Så fik jeg tid igen... og det virker ;-)

Jamen så siger jeg tak for points ;-)