<% password = "adminokan" If request("parola") = password or session("parola") = password then If request("lukather") = "KayitSil" then Call KayitSil Else Call Administrator session("parola") = password End If Else Call passForm End If %> <% SUB passForm %>

 

 

 

 

                                                                       Yrd. Doç. Dr. Abdulkadir GÜLLÜ

 

Veritabanindan kayit silmek icin Administrator sifresine sahip olmaniz gerekmektedir.            ANA SAYFA

Admin Sifresini Giriniz :  
  
<% END SUB %> <% SUB Administrator %> ...:::Veritabanim Admin Bölümü::::.. <% Set alan = Server.CreateObject("ADODB.Connection") alan.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mesaj1357.mdb")) SQLce = "SELECT * FROM defter order by tarih desc" set mesajlar = alan.Execute(SQLce) %>
<% do while not mesajlar.eof %> <% mesajlar.movenext loop %>
<%=mesajlar("yorum")%>
<% mesajlar.close set mesajlar = Nothing alan.close set alan = Nothing %>

 

<% END SUB %> <% SUB KayitSil %> <% Set alan = CreateObject("ADODB.Connection") alan.Open("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mesaj1357.mdb") ) Set Grup1 = server. CreateObject("ADODB.Recordset") Set Grup2 = server. CreateObject("ADODB.Recordset") SQL1 = "select * FROM defter" Grup1.Open SQL1, alan, 0, 1 do while not Grup1.eof id= Grup1("id") id=cstr(id) if request.form(id) = "sil" then SQL2 = "DELETE FROM defter WHERE id = " & id Grup2.Open SQL2, alan, 0, 1 end if Grup1.MoveNext loop Grup1.Close set Grup1 = Nothing set Grup2 = Nothing alan.close set alan = Nothing response.redirect (Request.ServerVariables("HTTP_REFERER")) %> <% END SUB %>