<%
Function ozeldurum(strFR)

strFR= replace(strFR, "[link=", "<a target=_blank href=")
strFR= replace(strFR, "[/link]", "</a>")
strFR= replace(strFR, "]", ">")
ozeldurum = strFR

End Function

response.write(ozeldurum("[link=http://www.google.com]Google[/link]"))
%>