text till länk

<%
mDelimit = Chr(0)
Function parse(text)
dim strString
strString = (text)
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.Ignorecase = True

objRegExp.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strString = objRegExp.Replace(strString, "<a href=""mailto""$1"" class=""black"">$1</a>")
objRegExp.Pattern = "(http://&#0124;https://&#0124;ftp://&#0124;mailto:)(\S)(\S+)"
strString = objRegExp.Replace(strString, "<a href=""$1$2""$3"" class=""black"">$2$3</a>")
objRegExp.Pattern = "(www\.(\S)(\S+))"
strString = objRegExp.Replace(strString, "<a href=""http://$1"" class=""black"">$1</a>")

parse=strString

end function
%>
<%=parse(recset("kommentar"))%>

------------------
MVH

[Redigerat av Rinaldo den 02 feb 2002]

Microsoft VBScript compilation error '800a03ea'

Syntax error

guestbook.asp, line 224

Function parse(text)
^

Lägg koden för funktionen sist eller först i filen. T.ex. så går det inte att ha en function inuti en loop eller en if.

------------------
essentitia preter non sans multiplicandum

tack!