<% Response.Buffer = True %> <% Set Baglanti = Server.CreateObject("ADODB.Connection") Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri_tabani.mdb") id = Request("id") Set Kayit = Server.CreateObject("ADODB.RecordSet") Sql_Komutu = "delete from haber where id="&id&"" Kayit.open Sql_Komutu, Baglanti, 1, 3 Response.Redirect "default.asp?islem=giris" %>