<%
if Len(Session("id"))= 0 then
Response.redirect "default.asp"
end if
%>
<!--#include file ="baglanti.asp"-->
<%
if request("islem") = "icerikSil" then
 sid = Request.QueryString("sid")
set veri = server.CreateObject("ADODB.connection")
veri.Open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.MapPath(Ayar_DbYol)
sql = "delete * from EkIcerik where sId="
sql = sql & sid
set db=veri.Execute(sql)
Response.Redirect "ekicerik.asp"
end if

if request("islem") = "yaziSil" then
 sid = Request.QueryString("id")
set veri = server.CreateObject("ADODB.connection")
veri.Open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.MapPath(Ayar_DbYol)
sql = "delete * from Yazilar where id="
sql = sql & sid
set db=veri.Execute(sql)
Response.Redirect "yazilar.asp"
end if

if request("islem") = "yaziOnayla" then
set uid = Request.QueryString("id")
set veri = server.CreateObject("ADODB.connection")
veri.Open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.MapPath(Ayar_DbYol)
sql = "Update Yazilar Set onay=1 where id="
sql = sql & uid
set db=veri.Execute(sql)
Response.Redirect "yazilar.asp"
end if

if request("islem") = "yaziEngelle" then
set uid = Request.QueryString("id")
set veri = server.CreateObject("ADODB.connection")
veri.Open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.MapPath(Ayar_DbYol)
sql = "Update Yazilar Set onay=0 where id="
sql = sql & uid
set db=veri.Execute(sql)
Response.Redirect "yazilar.asp"
end if

if request("islem") = "etkinlikSil" then
 sid = Request.QueryString("sid")
set veri = server.CreateObject("ADODB.connection")
veri.Open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.MapPath(Ayar_DbYol)
sql = "delete * from Ajanda where id="
sql = sql & sid
set db=veri.Execute(sql)
Response.Redirect "etkinlik.asp"
end if

if request("islem") = "ayarkaydet" then

okuladi= Request.Form("okuladi")
sitebasligi= Request.Form("sitebasligi")
ustresim= Request.Form("ustresim")
rehberlikmaili= Request.Form("rehberlikmaili")


set veri = server.CreateObject("ADODB.connection")
veri.Open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.MapPath(Ayar_DbYol)

Set connkaydet = Server.CreateObject("ADODB.RecordSet")
sql_kaydet = "Select * from Ayarlar"
connkaydet.open sql_kaydet,veri,1,3

connkaydet("Ayar_OkulAdi") = okuladi
connkaydet("Ayar_Baslik") = sitebasligi
connkaydet("Ayar_UstResim") = ustresim
connkaydet("RehberlikMaili") = rehberlikmaili

connkaydet.update
connkaydet.close
set connkaydet = Nothing

Response.Redirect "ayarlar.asp"
end if


if request("islem") = "katEkle" then
set veri = server.CreateObject("ADODB.connection")
veri.Open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.MapPath(Ayar_DbYol)

Set connkaydet = Server.CreateObject("ADODB.RecordSet")
sql_kaydet = "Select * from UrunKategorileri"
connkaydet.open sql_kaydet,veri,1,3
connkaydet.addnew

connkaydet("Adi") = Request.Form("adi")
connkaydet("resim") = Request.Form("resim")

connkaydet.update
connkaydet.close
set connkaydet = Nothing

response.Redirect("kategoriler.asp")
end if

if request("islem") = "katSil" then
 sid = Request.QueryString("id")
set veri = server.CreateObject("ADODB.connection")
veri.Open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.MapPath(Ayar_DbYol)
sql = "delete * from UrunKategorileri where katid="
sql = sql & sid
set db=veri.Execute(sql)
Response.Redirect "kategoriler.asp"
end if

if request("islem") = "sifredegistir" then

user= Request.Form("user")
pass= Request.Form("pass")

set veri = server.CreateObject("ADODB.connection")
veri.Open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.MapPath(Ayar_DbYol)

Set connkaydet = Server.CreateObject("ADODB.RecordSet")
sql_kaydet = "Select * from Admin"
connkaydet.open sql_kaydet,veri,1,3

connkaydet("name") = user
connkaydet("password") = pass

connkaydet.update
connkaydet.close
set connkaydet = Nothing

Response.Redirect "yonetici.asp"
end if
%>