<%
Function HtmlEncodeYazi(text)
Set objReg = New RegExp
objReg.Global = True
objReg.IgnoreCase = True
objReg.Pattern = "<[^>]+>"
YeniText = objReg.Replace(text,"")
Set objReg = Nothing
HtmlEncodeYazi = YeniText
End Function
%>