Lave www og e-mail om til klikbare links!
Hej!Jeg har fundet nedenstående funktion som skulle kunne lave www adresser og e-mail adresser om til klikbare links. Problemet er dog at jeg ikke ved hvordan jeg får det sat ind på min side???
Håber der er nogle som kan hjælpe?
Således udskriver jeg mine mails:
gaester.Fields.Item("Kemail")
....:funktionen:: .............
Function LinkString2(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
LinkString2 = strOutput
End Function