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