<% 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 sinavnumarasi="sinav"&numaram girisyok=0 set sinav_bul = Server.CreateObject("ADODB.Recordset") sinav_bul.open "SELECT* FROM sinifders where idsd="&sinifim&" and "&sinavnumarasi&"<>"&girisyok&" ",erdc,1,3 if not sinav_bul.eof then if sinav_bul("soru"&numaram&"")=0 then sorusayisix=0 else sorusayisix=sinav_bul("soru"&numaram&"") end if if sinav_bul("grup"&numaram&"")=0 then grupsayisix=0 else grupsayisix=sinav_bul("grup"&numaram&"") end if bilgivar=1 set kopyala = Server.CreateObject("ADODB.Recordset") kopyala.open "SELECT* FROM cevaplar where idsinifders<>"&sinifim&"and idders="&sinav_bul("idders")&" and sinavno="&numaram&" and grup="&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 set dersi1 = Server.CreateObject("ADODB.Recordset") dersi1.open "SELECT* FROM dersler where idders="&kopyala("idders")&"",erdc,1,3 set sinifi1 = Server.CreateObject("ADODB.Recordset") sinifi1.open "SELECT* FROM siniflar where idsinif="&kopyala("idsinif")&"",erdc,1,3 %> "><%=sinifi1("sinif")%>-<%=dersi1("dersadi")%> <% dersi1.close set dersi1=Nothing sinifi1.close set sinifi1=Nothing 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 grup1="1" grup2="2" grup3="3" grup4="4" %> <% if grupsayisix>"1" then%> <% end if%> <% if grupsayisix>"2" then%> <% end if%> <% if grupsayisix>"3" then%> <% end if%> <% for sorum=1 to sorusayisix set incele1 = Server.CreateObject("ADODB.Recordset") incele1.open "SELECT* FROM cevaplar where idsinifders="&sinifim&" and sinavno="&numaram&" and grup="&grup1&" ",erdc,1,3 if not incele1.eof then iptali=incele1("iptalayar") else iptali=1 end if if grupsayisix>"1" then set incele2 = Server.CreateObject("ADODB.Recordset") incele2.open "SELECT* FROM cevaplar where idsinifders="&sinifim&" and sinavno="&numaram&" and grup="&grup2&" ",erdc,1,3 end if if grupsayisix>"2" then set incele3 = Server.CreateObject("ADODB.Recordset") incele3.open "SELECT* FROM cevaplar where idsinifders="&sinifim&" and sinavno="&numaram&" and grup="&grup3&" ",erdc,1,3 end if if grupsayisix>"3" then set incele4 = Server.CreateObject("ADODB.Recordset") incele4.open "SELECT* FROM cevaplar where idsinifders="&sinifim&" and sinavno="&numaram&" and grup="&grup4&" ",erdc,1,3 end if on error resume next %> <% if grupsayisix>"1" then%> <% end if%> <% if grupsayisix>"2" then%> <% end if%> <% if grupsayisix>"3" then%> <% end if%> <% if grupsayisix>"3" then incele4.close set incele4=Nothing end if if grupsayisix>"2" then incele3.close set incele3=Nothing end if if grupsayisix>"1" then incele2.close set incele2=Nothing end if incele1.close set incele1=Nothing next%> Soru No A Grubu Cevaplar B Grubu Cevaplar C Grubu Cevaplar D Grubu Cevaplar  <%=sorum%> " onkeypress="return fn_validateNumeric2(this)" onblur="this.value=this.value.toUpperCase();" style="text-transform:uppercase"/> "onkeypress="return fn_validateNumeric2(this)" onblur="this.value=this.value.toUpperCase();" style="text-transform:uppercase"/> "onkeypress="return fn_validateNumeric2(this)" onblur="this.value=this.value.toUpperCase();" style="text-transform:uppercase"/> " onkeypress="return fn_validateNumeric2(this)" onblur="this.value=this.value.toUpperCase();" style="text-transform:uppercase"/> <%if iptali=1 then%> İptal Sorulara Tam Puan Ver İptal Soruların Puanlarını Diğer Sorulara Dağıt <%end if%> <%if iptali=2 then%> İptal Soruların Puanlarını Diğer Sorulara Dağıt İptal Sorulara Tam Puan Ver <%end if%>           <% end if end if %> <%end if%> <%end if end if else %> Ders Ekleyiniz <%end if %>

<% if islem="33" then sorusayisi2=request.form("soru_sayisi1") grupsayisi2=request.Form("grup_sayisi1") derskodu=request.QueryString("sinif") sinavno=request.QueryString("sinavno") iptalayar=request.Form("iptalayar") set dr_bul = Server.CreateObject("ADODB.Recordset") dr_bul.open "SELECT* FROM sinifders where idsd="&derskodu&"",erdc,1,3 for eylem=1 to grupsayisi2 iptalsayi=0 for emre=1 to sorusayisi2 cevap=request.form("cevap"&eylem&"_"&emre&"") if cevap="F" then iptalsayi=iptalsayi+1 end if set soru_kaydet = Server.CreateObject("ADODB.Recordset") soru_kaydet.open "SELECT* FROM cevaplar where idsinifders="&derskodu&" and sinavno="&sinavno&" and grup="&eylem&"",erdc,1,3 if soru_kaydet.eof then soru_kaydet.addnew end if soru_kaydet("idsinifders")=derskodu soru_kaydet("grup")=eylem soru_kaydet("idders")=dr_bul("idders") soru_kaydet("idsinif")=dr_bul("idsinif") soru_kaydet("sinavno")=sinavno soru_kaydet("iptalsayi")=iptalsayi soru_kaydet("iptalayar")=iptalayar soru_kaydet("cevap"&emre&"")=cevap soru_kaydet.update soru_kaydet.close next next response.Redirect("testsinavayar.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("testsinavayar.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.QueryString("sinif")&" ",erdc,1,3 if not sinav_kopya.eof then set tekrar = Server.CreateObject("ADODB.Recordset") tekrar.open "SELECT* FROM cevaplar where idcevap="&request.form("kopya1")&" ",erdc,1,3 set tekrar1 = Server.CreateObject("ADODB.Recordset") tekrar1.open "SELECT* FROM cevaplar where idsinifders="&tekrar("idsinifders")&" and idders="&tekrar("idders")&" and sinavno="&tekrar("sinavno")&" ",erdc,1,3 for skopya=1 to tekrar1.recordcount set sinav_kopya2 = Server.CreateObject("ADODB.Recordset") sinav_kopya2.open "SELECT* FROM cevaplar where idsinifders="&sinav_kopya("idsd")&" and sinavno="&request.QueryString("sinavno")&" and grup="&tekrar1("grup")&" ",erdc,1,3 if sinav_kopya2.eof then sinav_kopya2.addnew end if sinav_kopya2("idsinifders")=sinav_kopya("idsd") sinav_kopya2("grup")=tekrar1("grup") sinav_kopya2("idders")=sinav_kopya("idders") sinav_kopya2("idsinif")=sinav_kopya("idsinif") sinav_kopya2("sinavno")=request.QueryString("sinavno") sinav_kopya2("iptalsayi")=tekrar("iptalsayi") sinav_kopya2("iptalayar")=tekrar("iptalayar") for ix=1 to 60 sinav_kopya2("cevap"&ix&"")=tekrar1("cevap"&ix&"") next sinav_kopya2.update sinav_kopya2.close tekrar1.movenext next end if tekrar1.close tekrar.close sinav_kopya.close response.Redirect("testsinavayar.asp?islem=5&sinif="&request.QueryString("sinif")&"&sinavno="&request.QueryString("sinavno")&"") end if %>