<% set k_bul = Server.CreateObject("ADODB.Recordset") k_bul.open "SELECT* FROM siniflar order by sinif asc",erdc,1,3 if not k_bul.eof then%> Sınıf Seçiniz <% do while not k_bul.eof%> "><%=k_bul("sinif")%> <% k_bul.movenext loop k_bul.close set k_bul = Nothing%> <% if erc(request.QueryString("sinif"))<>"" then if isnumeric(erc(request.QueryString("sinif"))) Then %> " /> <%set ders_bul = Server.CreateObject("ADODB.Recordset") ders_bul.open "SELECT* FROM dersler order by dersadi asc",erdc,1,3 if not ders_bul.eof then %> <% sira=1 do while not ders_bul.eof set ders_kont = Server.CreateObject("ADODB.Recordset") ders_kont.open "SELECT* FROM sinifders where idsinif="&erc(request.QueryString("sinif"))&" and idders="&ders_bul("idders")&"",erdc,1,3 %> <% sira=sira+1 ders_bul.movenext loop ders_bul.close %> Sıra Ders Adı Seç  <%=sira%>  <%=ders_bul("dersadi")%>" />  checked="checked" <%end if%>/> <%end if%> <% set a_kogr = Server.CreateObject("ADODB.Recordset") a_kogr.open "SELECT* FROM sinifders where idsinif="&erc(request.QueryString("sinif"))&" order by dersadi asc",erdc,1,3 if not a_kogr.eof then %> <% a_sira=1 do while not a_kogr.eof %> <% a_sira=a_sira+1 a_kogr.movenext loop a_kogr.close %> Sıra Ders Adı Ders Öğretmeni  <%=a_sira%>  <%=a_kogr("dersadi")%>  <%=a_kogr("ogretmenadi")%> <%end if%> <%end if end if else %> Ders Ekleyiniz <%end if %>

<% if islem="1" then sinif=request.form("sinif_kodu") set sinifla = Server.CreateObject("ADODB.Recordset") sinifla.open "SELECT* FROM siniflar where idsinif="&sinif&"",erdc,1,3 sinifim=sinifla("sinif") duzeyim=sinifla("duzey") sinifla.close derssayi=request.form("ders_sayi") for basla=1 to derssayi derskodu=request.form("ders_kodu"&basla&"") secim=request.form("secim"&basla&"") set dersle = Server.CreateObject("ADODB.Recordset") dersle.open "SELECT* FROM dersler where idders="&derskodu&"",erdc,1,3 dersim=dersle("dersadi") dersle.close if secim="1" then set k_ekle = Server.CreateObject("ADODB.Recordset") k_ekle.open "SELECT* FROM sinifders where idsinif="&sinif&" and idders="&derskodu&"",erdc,1,3 if k_ekle.eof then k_ekle.addnew k_ekle("idsinif")=sinif k_ekle("idders")=derskodu k_ekle("sinifadi")=sinifim k_ekle("dersadi")=dersim k_ekle("duzey")=duzeyim k_ekle.update end if k_ekle.close set k_ekle=Nothing end if if secim<>"1" then set k_sil = Server.CreateObject("ADODB.Recordset") k_sil.open "SELECT* FROM sinifders where idsinif="&sinif&" and idders="&derskodu&"",erdc,1,3 if not k_sil.eof then k_sil.delete k_sil.update end if k_sil.close set k_sil=Nothing end if next response.Redirect("sinifders.asp?sinif="&sinif&"") end if %>