<%
Function temizle(data)
data = Replace (data ,"`","",1,-1,1)
data = Replace (data ,"=","",1,-1,1)
data = Replace (data ,"&","",1,-1,1)
data = Replace (data ,"%","",1,-1,1)
data = Replace (data ,"*","",1,-1,1)
data = Replace (data ,"'","",1,-1,1)
data = Replace (data ,"&nbsp;"," ",1,-1,1)
data = Replace (data ," ","&nbsp;",1,-1,1)
data = replace (data, ":)", "<img border=0 src=img/suratlar/s10.GIF>")
data = replace (data, ":(", "<img border=0 src=img/suratlar/s9.GIF>")
data = replace (data, ":D", "<img border=0 src=img/suratlar/s1.GIF>")
data = replace (data, ";)", "<img border=0 src=img/suratlar/s2.GIF>")
data = replace (data, ":@", "<img border=0 src=img/suratlar/s6.GIF>")
data = replace (data, ":s", "<img border=0 src=img/suratlar/s7.GIF>")

set yasak = conn.execute("select kelime,yerine from YasakKelime WHERE kelime LIKE '%" & kelime & "%'")
do while not yasak.eof
kelime=yasak("kelime")
yerine=yasak("yerine")
data = Replace (data ,""&kelime&"",""&yerine&"",1,-1,1)
yasak.movenext
loop

If InStr(1,data,"[Yasak]",1) then
sebep="Yasak kelime kullanmaktan.Site tarafından otomatik ban!"
set uye = conn.execute("update Uyeler set ban=1 , sebep='"&sebep&"' where kimlik="&session("id"))
response.redirect "default.asp"
response.end
end if

yasak.close
set yasak = nothing

temizle=data
End Function
%>