<% 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 sinifders where idsinif="&erc(request.QueryString("sinif"))&" 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")%>" />   <% aktif=1 set ogr_bul = Server.CreateObject("ADODB.Recordset") ogr_bul.open "SELECT* FROM ogretmenler where aktif="&aktif&" order by adi asc",erdc,1,3 %> <% if not ders_kont.eof then if ders_kont("ogretmenadi")<>"" then set ogr_kont = Server.CreateObject("ADODB.Recordset") ogr_kont.open "SELECT* FROM ogretmenler where idogretmen="&ders_kont("idogretmen")&" and aktif="&aktif&" order by adi asc",erdc,1,3 if not ogr_kont.eof then %> " selected="selected"><%=ogr_kont("adi")%> <%=ogr_kont("soyadi")%> <%end if end if end if%> Ders Ogretmeni Seçiniz <% do while not ogr_bul.eof%> "><%=ogr_bul("adi")%> <%=ogr_bul("soyadi")%> <%ogr_bul.movenext loop ogr_bul.close %> <%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") derssayi=request.form("ders_sayi") for basla=1 to derssayi derskodu=request.form("ders_kodu"&basla&"") secim=request.form("secim"&basla&"") if secim<>"0" then set dersle = Server.CreateObject("ADODB.Recordset") dersle.open "SELECT* FROM ogretmenler where idogretmen="&secim&"",erdc,1,3 dersim1=dersle("adi") dersim2=dersle("soyadi") dersim3=dersim1 &" "& dersim2 dersle.close set k_ekle = Server.CreateObject("ADODB.Recordset") k_ekle.open "SELECT* FROM sinifders where idsinif="&sinif&" and idders="&derskodu&"",erdc,1,3 if not k_ekle.eof then k_ekle("idogretmen")=secim k_ekle("ogretmenadi")=dersim3 k_ekle.update end if k_ekle.close set k_ekle=Nothing end if if secim="0" 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 sifirla=0 sifirla1="" k_sil("idogretmen")=sifirla k_sil("ogretmenadi")=sifirla1 k_sil.update end if k_sil.close set k_sil=Nothing end if next response.Redirect("dersogretmen.asp?sinif="&sinif&"") end if %>