<% set k_bul = Server.CreateObject("ADODB.Recordset") k_bul.open "SELECT* FROM sinifders where idogretmen="&session("idram")&" order by sinifadi asc",erdc,1,3 if not k_bul.eof then%> Sınav No Sınıf Seçiniz <% do while not k_bul.eof%> "><%=k_bul("sinifadi")%>-<%=k_bul("dersadi")%> <% k_bul.movenext loop k_bul.close set k_bul = Nothing%> Sınav Numarası Seçiniz 1. sınav 2. sınav 3. sınav 4. sınav 5. sınav 6. sınav <% if islem="5" then if erc(request.QueryString("sinif"))="" then sinifim=request.form("sinif") else sinifim=request.QueryString("sinif") end if if request.Form("sinavno")<>"" then numaram=request.Form("sinavno") end if if request.Querystring("sinavno")<>"" then numaram=request.Querystring("sinavno") end if if sinifim<>"" and numaram<>"0" then if isnumeric(sinifim) Then set sinav_bul = Server.CreateObject("ADODB.Recordset") sinav_bul.open "SELECT* FROM sinifders where idsd="&sinifim&" ",erdc,1,3 if not sinav_bul.eof then sinavnumarasi="sinav"&numaram girisyok=0 set sinavno_bul = Server.CreateObject("ADODB.Recordset") sinavno_bul.open "SELECT* FROM sinifders where idsd="&sinifim&" and "&sinavnumarasi&"<>"&girisyok&" ",erdc,1,3 if not sinavno_bul.eof then sorusayisix=sinavno_bul("soru"&numaram&"") grupsayisix=sinavno_bul("grup"&numaram&"") else sorusayisix=0 grupsayisix=0 end if bilgivar=1 set kopyala = Server.CreateObject("ADODB.Recordset") kopyala.open "SELECT* FROM sinifders where idsd<>"&sinifim&"and idders="&sinav_bul("idders")&" and sinav"&numaram&"="&bilgivar&"",erdc,1,3 %> <% if kopyala.eof then kopyahata=1 %> Kopayalanacak Ders Bilgisi Bulunamadı <%end if if not kopyala.eof then do while not kopyala.eof %> "><%=kopyala("sinifadi")%>-<%=kopyala("dersadi")%> <% kopyala.movenext loop kopyala.close %><%end if%>  <%=sinav_bul("sinifadi")%>-<%=sinav_bul("dersadi")%>-<%=numaram%>. Sınav Soru Sayısı Grup sayısı <% if sorusayisix<>"0" then%> <% if grupsayisix>"1" then%> <% end if%> <% if grupsayisix>"2" then%> <% end if%> <% if grupsayisix>"3" then%> <% end if%> <% for sorum=1 to sorusayisix set incele = Server.CreateObject("ADODB.Recordset") incele.open "SELECT* FROM grupders where sinifders="&sinifim&" and sinavno="&numaram&" and soruno="&sorum&" ",erdc,1,3 on error resume next if incele("puan")=0 then puani="" else puani=incele("puan") end if%> <% if grupsayisix>"1" then%> <% end if%> <% if grupsayisix>"2" then%> <% end if%> <% if grupsayisix>"3" then%> <% end if%> <% incele.close set incele=Nothing next%> Soru No Kazanım Puan B C D  <%=sorum%> "/> "/> "/> "/>           <% end if end if %> <%end if%> <%end if end if else %> Ders Ekleyiniz <%end if %>

<% if islem="1" then sinavnumarasi1="sinav"&request.Querystring("sinavno") grupsayisi1="grup"&request.Querystring("sinavno") sorusayisi1="soru"&request.Querystring("sinavno") set sinavno_bul1 = Server.CreateObject("ADODB.Recordset") sinavno_bul1.open "SELECT* FROM sinifders where idsd="&erc(request.QueryString("sinif"))&" ",erdc,1,3 if not sinavno_bul1.eof then sinavno_bul1(""&sinavnumarasi1&"")=1 sinavno_bul1(""&grupsayisi1&"")=request.Form("grup_sayisi") sinavno_bul1(""&sorusayisi1&"")=request.Form("soru_sayisi") sinavno_bul1.update sinavno_bul1.close end if set grup_bul1 = Server.CreateObject("ADODB.Recordset") grup_bul1.open "SELECT* FROM grupders where sinifders="&erc(request.QueryString("sinif"))&" and sinavno="&request.Querystring("sinavno")&" and soruno>"&request.Form("soru_sayisi")&" ",erdc,1,3 if not grup_bul1.eof then for im=1 to grup_bul1.recordcount set grup_sil1 = Server.CreateObject("ADODB.Recordset") grup_sil1.open "SELECT* FROM grupders where idgrupders="&grup_bul1("idgrupders")&"",erdc,1,3 grup_sil1.delete grup_sil1.update grup_sil1.close grup_bul1.movenext next end if grup_bul1.close response.Redirect("derssinavayar.asp?islem=5&sinif="&request.Querystring("sinif")&"&sinavno="&request.Querystring("sinavno")&"") end if if islem="33" then sorusayisi2=request.form("soru_sayisi1") grupsayisi2=request.Form("grup_sayisi1") derskodu=request.QueryString("sinif") sinavno=request.QueryString("sinavno") for emre=1 to sorusayisi2 if request.form("puan"&emre&"")="" then puanim=0 else puanim=request.form("puan"&emre&"") end if ssayi=request.form("ssayi"&emre&"") kazanim=request.form("kazanim"&emre&"") puan=puanim bgrup=request.form("bgrup"&emre&"") cgrup=request.form("cgrup"&emre&"") dgrup=request.form("dgrup"&emre&"") set soru_kaydet = Server.CreateObject("ADODB.Recordset") soru_kaydet.open "SELECT* FROM grupders where sinifders="&derskodu&" and sinavno="&sinavno&" and soruno="&ssayi&"",erdc,1,3 if soru_kaydet.eof then soru_kaydet.addnew end if soru_kaydet("sinifders")=derskodu soru_kaydet("sinavno")=sinavno soru_kaydet("soruno")=ssayi soru_kaydet("kazanim")=kazanim soru_kaydet("puan")=puan soru_kaydet("bgrup")=bgrup soru_kaydet("cgrup")=cgrup soru_kaydet("dgrup")=dgrup soru_kaydet.update soru_kaydet.close next response.Redirect("derssinavayar.asp?islem=5&sinif="&request.QueryString("sinif")&"&sinavno="&request.QueryString("sinavno")&"") end if if islem="77" then if request.form("kopya1")="0" then response.Redirect("derssinavayar.asp?islem=5&sinif="&request.QueryString("sinif")&"&sinavno="&request.QueryString("sinavno")&"") end if set sinav_kopya = Server.CreateObject("ADODB.Recordset") sinav_kopya.open "SELECT* FROM sinifders where idsd="&request.form("kopya1")&" ",erdc,1,3 if not sinav_kopya.eof then sorusayisi=sinav_kopya("soru"&request.QueryString("sinavno")&"") for skopya=1 to sinav_kopya("soru"&request.QueryString("sinavno")&"") set sinav_kopya1 = Server.CreateObject("ADODB.Recordset") sinav_kopya1.open "SELECT* FROM grupders where sinifders="&sinav_kopya("idsd")&" and sinavno="&request.QueryString("sinavno")&" and soruno="&skopya&" ",erdc,1,3 if not sinav_kopya1.eof then set sinav_kopya2 = Server.CreateObject("ADODB.Recordset") sinav_kopya2.open "SELECT* FROM grupders where sinifders="&request.QueryString("sinif")&" and sinavno="&request.QueryString("sinavno")&" and soruno="&skopya&" ",erdc,1,3 if sinav_kopya2.eof then sinav_kopya2.addnew end if sinav_kopya2("sinifders")=request.QueryString("sinif") sinav_kopya2("sinavno")=request.QueryString("sinavno") sinav_kopya2("soruno")=skopya sinav_kopya2("kazanim")=sinav_kopya1("kazanim") sinav_kopya2("puan")=sinav_kopya1("puan") sinav_kopya2("bgrup")=sinav_kopya1("bgrup") sinav_kopya2("cgrup")=sinav_kopya1("cgrup") sinav_kopya2("dgrup")=sinav_kopya1("dgrup") sinav_kopya2.update sinav_kopya2.close sinav_kopya1.close end if next end if set sinav_kopya3 = Server.CreateObject("ADODB.Recordset") sinav_kopya3.open "SELECT* FROM sinifders where idsd="&request.QueryString("sinif")&" ",erdc,1,3 if not sinav_kopya3.eof then sinav_kopya3("sinav"&request.QueryString("sinavno")&"")=1 sinav_kopya3("grup"&request.QueryString("sinavno")&"")=sinav_kopya("grup"&request.QueryString("sinavno")&"") sinav_kopya3("soru"&request.QueryString("sinavno")&"")=sinav_kopya("soru"&request.QueryString("sinavno")&"") sinav_kopya3.update end if sinav_kopya3.close set grup_bul1 = Server.CreateObject("ADODB.Recordset") grup_bul1.open "SELECT* FROM grupders where sinifders="&erc(request.QueryString("sinif"))&" and sinavno="&request.Querystring("sinavno")&" and soruno>"&sorusayisi&" ",erdc,1,3 if not grup_bul1.eof then for im=1 to grup_bul1.recordcount set grup_sil1 = Server.CreateObject("ADODB.Recordset") grup_sil1.open "SELECT* FROM grupders where idgrupders="&grup_bul1("idgrupders")&"",erdc,1,3 grup_sil1.delete grup_sil1.update grup_sil1.close grup_bul1.movenext next end if grup_bul1.close sinav_kopya.close response.Redirect("derssinavayar.asp?islem=5&sinif="&request.QueryString("sinif")&"&sinavno="&request.QueryString("sinavno")&"") end if %>