<%
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
%>

<%
Function temiz(gelenyazi)
strGelen = gelenyazi
strGelen = Replace(strGelen, Chr(10), "", 1, -1, 1)
strGelen = Replace(strGelen, Chr(13), "", 1, -1, 1)
arrKod = Split(strGelen, "<")
FOR EACH Kod IN arrKod
strGidecek = strGidecek & Mid(Kod, Instr(Kod, ">")+1, Len(Kod)-Instr(Kod, ">"))
NEXT
temiz=strGidecek
End Function
%>