<%
Function kod(strText)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\[m\](.*?)\[\/m\]"
strText = objRegExp.Replace(strText,"<a href=""sida.asp?medlem=$1"">$1</a>")
kod = strText
end function
Response.write kod(variabel_med_text)
%>