<% set k_bul = Server.CreateObject("ADODB.Recordset") k_bul.open "SELECT* FROM sinavlar order by idsinav asc",erdc,1,3 if not k_bul.eof then%> Sınıf Seçiniz <% do while not k_bul.eof%> "><%=k_bul("sinavtarih")%>-<%=k_bul("sinavsaat")%> <% k_bul.movenext loop k_bul.close set k_bul = Nothing%> Ders Seçiniz <% set d_bul = Server.CreateObject("ADODB.Recordset") d_bul.open "SELECT* FROM dersler order by dersadi asc",erdc,1,3 do while not d_bul.eof%> "><%=d_bul("dersadi")%> <% d_bul.movenext loop d_bul.close set d_bul = Nothing%> Test Sırası 1. Test 2. Test Sınav Numarası Seçiniz 1. Sınav 2. Sınav 3. Sınav <% sinav=request.form("sinav") ders=request.form("ders") sinavno=request.form("sinavno") testno=request.form("testno") if sinav="" then sinav=request.querystring("sinav") end if if ders="" then ders=request.querystring("ders") end if if sinavno="" then sinavno=request.querystring("sinavno") end if if testno="" then testno=request.querystring("testno") end if if erc(sinav)<>"" and erc(ders)<>"" and erc(sinavno)<>"" and erc(testno)<>"" then if erc(sinav)>0 and erc(ders)>0 and erc(sinavno)>0 and erc(testno)>0 Then %> <% set s_kogr = Server.CreateObject("ADODB.Recordset") s_kogr.open "SELECT* FROM sinavlar where sinavkodu="&sinav&"",erdc,1,3 if not s_kogr.eof then set ders_bul = Server.CreateObject("ADODB.Recordset") ders_bul.open "SELECT* FROM sinifders where idders="&ders&"",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 siniflar where idsinif="&ders_bul("idsinif")&"",erdc,1,3 set sinif_kont = Server.CreateObject("ADODB.Recordset") sinif_kont.open "SELECT* FROM sinavders where idsinifders="&ders_bul("idsd")&" and sinavno="&sinavno&" and sinavkodu="&sinav&" and testno="&testno&"",erdc,1,3 %> <% sira=sira+1 ders_bul.movenext loop ders_bul.close %> <%=s_kogr("sinavtarih")%>-<%=s_kogr("sinavsaat")%>-<%=ders_bul("dersadi")%>-<%=sinavno%>. Sınav-<%=testno%>. Test Sıra Ders Adı Seç  <%=sira%>   " /> <%=ders_bul("sinifadi")%>" />  checked="checked" <%end if%>/> <%end if%> <% set a_kogr = Server.CreateObject("ADODB.Recordset") a_kogr.open "SELECT* FROM sinavders where sinavkodu="&erc(sinav)&" and sinavno="&sinavno&" and testno="&testno&" order by idsinifders asc",erdc,1,3 if not a_kogr.eof then %> <% a_sira=1 do while not a_kogr.eof on error resume next set b_kogr = Server.CreateObject("ADODB.Recordset") b_kogr.open "SELECT* FROM sinifders where idsd="&a_kogr("idsinifders")&"",erdc,1,3 %> <% b_kogr.close a_sira=a_sira+1 a_kogr.movenext loop a_kogr.close %> Sıra Sınıf Ders  <%=a_sira%>  <%=b_kogr("sinifadi")%>  <%=b_kogr("dersadi")%> <%end if end if s_kogr.close%> <%end if end if else %> Ders Ekleyiniz <% end if %>

<% if islem="1" then derssayi=request.form("ders_sayi") sinavkodu=request.form("sinavkodu") derskodu=request.form("derskodu") sinavno=request.form("sinavno") testno=request.form("testno") for basla=1 to derssayi sinifkodu=request.form("sinif_kodu"&basla&"") secim=request.form("secim"&basla&"") sinifders=request.form("sinifders"&basla&"") if secim="1" then set k_ekle = Server.CreateObject("ADODB.Recordset") k_ekle.open "SELECT* FROM sinavders where idsinifders="&sinifders&" and sinavno="&sinavno&" ",erdc,1,3 if k_ekle.eof then k_ekle.addnew k_ekle("sinavkodu")=sinavkodu k_ekle("testno")=testno k_ekle("idsinifders")=sinifders k_ekle("idders")=derskodu k_ekle("idsinif")=sinifkodu k_ekle("sinavno")=sinavno 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 sinavders where idsinifders="&sinifders&" and sinavno="&sinavno&" and sinavkodu="&sinavkodu&" and testno="&testno&"",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("sinavders.asp?sinav="&sinavkodu&"&ders="&derskodu&"&sinavno="&sinavno&"&testno="&testno&"") end if %>