<% kelime = Request.Form("kelime") %>

YASAK KELİMELER
Kelime

<% if Request("menu") = "eklendi" then if kelime = "" then Response.write("boş bıraktınız") else Set rs = Server.CreateObject("adodb.recordset") Sql="Select * From karakter" rs.open sql,baglanti,1,3 rs.addnew rs("kelime") = kelime rs.update Response.Redirect("ekle.asp") end if end if %>
<% set rs = baglanti.execute("Select * From karakter") %> <% if rs.eof then %> VERİTABNINDA KAYIT YOK ! <% end if %>
<% while not rs.eof %> <% rs.movenext:wend %>

<%=rs("kelime")%>

Sil

<% if Request("menu") = "sil" then %><% id = Request.QueryString("id") baglanti.execute("DELETE FROM karakter WHERE id = " & id) Response.Redirect("ekle.asp") end if %>