Replace to URL-funktion

Ja der kan findes en del her på eksperten hvis du søger efter klikbare links eller npget i den stil.

Der har været en konkurrence på www.netcoders.dk og vinder script er her:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1
Runner ups:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=860&tech_id=1


Jeg bruger har selv brugt denne som laver url adresser om til klikbare links:

Function LinkString(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>")

set objRegExpHTTP1 = Nothing

LinkString = strOutput
End Function

Mange tak for hjælpen!

Det var lige det jeg manglede...

\Dan

Lige et lille input til eagleeye:

Kan du gøre sådan at man kan skrive [brugernavn] og så laver den et link der hedder /Users/Search.asp?Username= ... og så det man har indtastet i [] ? :-)