Formdan gelen istenmeyen kelime ve kodlar

<%

mesaj= ""Ben bir aptalim.""
'Mesajimizi Aldik.Bunu Ister Formdan Isterseniz Veri Tabaninizdan Tanimlayabilirsiniz

kotukelimeler = ""salak,aptal,manyak""

'Yukarda Istenmeyen Kelimeleri Virgller Ile Ayirarak Belirttik

hata = split ( kotukelimeler, "","" )
For i = 0 To UBound ( hata )
mesaj = Replace ( mesaj, hata ( i ) , String ( Len ( hata ( i ) ) , ""*"" ) , 1,-1,1 )
Next

'Mesajimizdaki Istenmeyen Kelimelerin Yerine * lari Koyup Temizledik

response.Write mesaj

' Ve Tertemiz Mesajimizi Yazdirdik : )
%>

"