<% if request.QueryString("islem")="2" then if request.querystring("menu")<>"" then if isnumeric(request.QueryString("menu")) then set fgor = Server.CreateObject("ADODB.Recordset") fgor.open "SELECT* FROM menu1 where idmenu="&request.QueryString("menu")&" ",erdc,1,3 if not fgor.eof then %> "> Menu Başlık " /> Bağlantı Adresi "/> Modül <%if fgor("modul")="1" then%> ">Yönetici <%end if%> <%if fgor("modul")="2" then%> ">Öğretmen <%end if%>   Yönetici Öğretmen Sira "><%=fgor("modul_sira")%>   1 2 3 4 5 6 7 8 9 10         <%end if fgor.close set fgor=nothing end if end if end if %> <% if request.QueryString("menu")="" then%> Menu Başlık : Bağlantı Adresi: Modül Modül Seçiniz Yönetici Öğretmen Sıra Sıra Seçiniz 1 2 3 4 5 6 7 8 9 10 <%end if%> <% set fogr = Server.CreateObject("ADODB.Recordset") fogr.open "SELECT* FROM menu1 order by modul asc",erdc,1,3 if not fogr.eof then %> <% sira=1 do while not fogr.eof %> <% sira=sira+1 fogr.movenext loop fogr.close %> Sıra Menu Adı Bağlantı adresi Modül Sıra Düzenle Sil  <%=sira%>  <%=fogr("menu_adi")%> <%=fogr("menu_link")%> <% if fogr("modul")="1" then%>Yönetim<%end if%><% if fogr("modul")="2" then%>Öğretmen<%end if%> <%=fogr("modul_sira")%> "> );"> <%end if%>

<% if islem="1" then menu_adi=request.form("menu_adi") menu_link=request.form("menu_link") modul=request.form("modul") modul_sira=request.form("modul_sira") if menu_adi<>"" and menu_link<>"" and modul<>"0" then set f_ekle = Server.CreateObject("ADODB.Recordset") f_ekle.open "SELECT* FROM menu1 ",erdc,1,3 f_ekle.addnew f_ekle("menu_adi")=menu_adi f_ekle("menu_link")=menu_link f_ekle("modul")=modul f_ekle("modul_sira")=modul_sira f_ekle.update response.Redirect("menu1.asp") else response.Redirect("menu1.asp") f_ekle.close set f_ekle=Nothing end if end if if islem="3" then menu_adi=request.form("menu_adi") menu_link=request.form("menu_link") modul=request.form("modul") modul_sira=request.form("modul_sira") if menu_adi<>"" and request.QueryString("menu")<>"" then set f_gunc = Server.CreateObject("ADODB.Recordset") f_gunc.open "SELECT* FROM menu1 where idmenu="&request.QueryString("menu")&"",erdc,1,3 if not f_gunc.eof then f_gunc("menu_adi")=menu_adi f_gunc("menu_link")=menu_link f_gunc("modul")=modul f_gunc("modul_sira")=modul_sira f_gunc.update response.Redirect("menu1.asp") else response.Redirect("menu1.asp") f_gunc.close set f_gunc=Nothing end if end if end if if islem="4" then if request.QueryString("menu")<>"" then set f_sil = Server.CreateObject("ADODB.Recordset") f_sil.open "SELECT* FROM menu1 where idmenu="&request.QueryString("menu")&"",erdc,1,3 if not f_sil.eof then f_sil.delete f_sil.update response.Redirect("menu1.asp") else response.Redirect("menu1.asp") f_sil.close set f_sil=Nothing end if end if end if %>