<%if erc(request.querystring("menum1"))<>""then set m_bul = Server.CreateObject("ADODB.Recordset") m_bul.open "SELECT* FROM menu1 where idmenu="&request.QueryString("menum1")&"",erdc,1,3 %> "><%=m_bul("menu_adi")%><%if m_bul("modul")="1" then%>-Yönetim<%end if%><%if m_bul("modul")="2" then%>-Öğretmen<%end if%> <%end if%> Menu Seçiniz <% set m_bul2 = Server.CreateObject("ADODB.Recordset") m_bul2.open "SELECT* FROM menu1 order by modul asc",erdc,1,3 do while not m_bul2.eof %> "><%=m_bul2("menu_adi")%><%if m_bul2("modul")="1" then%>-Yönetim<%end if%><%if m_bul2("modul")="2" then%>-Öğretmen<%end if%> <%m_bul2.movenext loop m_bul2.close %> <%if erc(request.querystring("menum1"))<>""then if erc(request.querystring("menum2"))=""then set m_bul4 = Server.CreateObject("ADODB.Recordset") m_bul4.open "SELECT* FROM menu1 where idmenu="&request.QueryString("menum1")&"",erdc,1,3 %> "> <%=m_bul4("menu_adi")%><%if m_bul4("modul")="1" then%>-Yönetim<%end if%><%if m_bul4("modul")="2" then%>-Öğretmen<%end if%> Menu Başlık Menu Link Sıra Sıra Seçiniz 1 2 3 4 5 6 7 8 9 10   <% m_bul4.close end if set m_bul4=Nothing if erc(request.querystring("menum2"))<>"" then if isnumeric(erc(request.querystring("menum2"))) then set m_bul5 = Server.CreateObject("ADODB.Recordset") m_bul5.open "SELECT* FROM menu2 where idmenu2="&request.QueryString("menum2")&"",erdc,1,3 %> "> Menu Başlık " /> Menu Link " /> Sıra " selected="selected"><%=m_bul5("sira")%> Sıra Seçiniz 1 2 3 4 5 6 7 8 9 10 Üst Menü <%if erc(request.querystring("menum1"))<>""then set m_bul6 = Server.CreateObject("ADODB.Recordset") m_bul6.open "SELECT* FROM menu1 where idmenu="&request.QueryString("menum1")&"",erdc,1,3 %> "><%=m_bul6("menu_adi")%><%if m_bul6("modul")="1" then%>-Yönetim<%end if%><%if m_bul6("modul")="2" then%>-Öğretmen<%end if%> <% m_bul6.close end if%>   <% set m_bul7 = Server.CreateObject("ADODB.Recordset") m_bul7.open "SELECT* FROM menu1 order by modul asc",erdc,1,3 do while not m_bul7.eof %> "><%=m_bul7("menu_adi")%><%if m_bul7("modul")="1" then%>-Yönetim<%end if%><%if m_bul7("modul")="2" then%>-Öğretmen<%end if%> <%m_bul7.movenext loop m_bul7.close %>   <% m_bul5.close set m_bul5=Nothing end if end if set m_bul3 = Server.CreateObject("ADODB.Recordset") m_bul3.open "SELECT* FROM menu2 where idmenu="&request.QueryString("menum1")&" order by menu_adi2 asc",erdc,1,3 if not m_bul3.eof then %> <%msira=1 do while not m_bul3.eof%> <%m_bul3.movenext loop %> Sıra Menu Adı Menu Link Duzenle Sil <%=msira%>  <%=m_bul3("menu_adi2")%>  <%=m_bul3("menu_link2")%> &menum2=<%=m_bul3("idmenu2")%>"> );"> <% end if m_bul3.close Set m_bul3=Nothing end if%>

<% if islem="1" then menu_adi=request.form("menu_adi2") menu_link=request.form("menu_link2") modul=request.querystring("menum1") modul_sira=request.form("modul_sira2") if menu_adi<>"" and menu_link<>"" and modul<>"" then set f_ekle = Server.CreateObject("ADODB.Recordset") f_ekle.open "SELECT* FROM menu2 ",erdc,1,3 f_ekle.addnew f_ekle("menu_adi2")=menu_adi f_ekle("menu_link2")=menu_link f_ekle("idmenu")=modul f_ekle("sira")=modul_sira f_ekle.update response.Redirect("menu2.asp?menum1="&modul&"") else response.Redirect("menu2.asp") f_ekle.close set f_ekle=Nothing end if end if if islem="3" then menu_adi=request.form("menu_adi2") menu_link=request.form("menu_link2") modul=request.form("ustmenu") modul_sira=request.form("modul_sira2") if menu_adi<>"" and request.QueryString("menum2")<>"" then set f_gunc = Server.CreateObject("ADODB.Recordset") f_gunc.open "SELECT* FROM menu2 where idmenu2="&request.QueryString("menum2")&"",erdc,1,3 if not f_gunc.eof then f_gunc("menu_adi2")=menu_adi f_gunc("menu_link2")=menu_link f_gunc("sira")=modul_sira f_gunc("idmenu")=modul f_gunc.update response.Redirect("menu2.asp?menum1="&modul&"&menu2="&request.QueryString("menum2")&"") else response.Redirect("menu2.asp?menum1="&modul&"") f_gunc.close set f_gunc=Nothing end if end if end if if islem="4" then if request.QueryString("menum2")<>"" then set f_sil = Server.CreateObject("ADODB.Recordset") f_sil.open "SELECT* FROM menu2 where idmenu2="&request.QueryString("menum2")&"",erdc,1,3 ustmenuno=f_sil("idmenu") if not f_sil.eof then f_sil.delete f_sil.update response.Redirect("menu2.asp?menum1="&ustmenuno&"") else response.Redirect("menu2.asp") f_sil.close set f_sil=Nothing end if end if end if %>