problem med RegExp

Hej.

Jeg har et problem med følgende RegExp:

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, "<span title=""$1$2$3$4"" onclick=""window.open('$1$2$3$4');"" onmouseover=""this.style.color='#ff0000';"" onmouseout=""this.style.color='#0000ff';"" style=""color: #0000ff; cursor: pointer;"">$1$2$3$4</span>")
objRegExpHTTP1.Pattern = "(^|[^\/])(www)(.[\w]+)([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?"
strOutput = objRegExpHTTP1.Replace(strOutput, " $1<span title=""http://$2$3$4"" onclick=""window.open('http://$2$3$4');"" onmouseover=""this.style.color='#ff0000';"" onmouseout=""this.style.color='#0000ff';"" style=""color: #0000ff; cursor: pointer;"">$2$3$4</span>")
set objRegExpHTTP1 = Nothing
LinkString = strOutput
end Function

Når man sætter et link ind, så sætter den nogle gange et semikolon ind, som så gør at linket ikke virker mere.
Se her: http://www.sancti.dk/test/

Hvordan løser man den?

\Dan