Hazır Script – Hazır Kod

Enter algilamak…..

codeDivStart()

<%Function filtrem(gelenveri)

gelenveri = Replace(gelenveri,"<" ,"<" )

gelenveri = Replace(gelenveri,">" ,">" )

gelenveri = Replace(gelenveri,Chr(13),"<br>" )

filtrem = gelenveri

End Function

%>

<%=filtrem(oku("mesaj" )) %>