<% Public Function VirgulAt(Verimiz) VirgulAt = Replace(Verimiz,",",".") End Function 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("idsd")%> - <%=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 hata=0 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 kontrol1 = Server.CreateObject("ADODB.Recordset") kontrol1.open "SELECT* FROM sinifders where idsd="&sinifim&"",erdc,1,3 if request.QueryString("sinavno")<>"" then sinavnumara=request.QueryString("sinavno") else sinavnumara=request.Form("sinavno") end if gruplar="grup"&sinavnumara sorular="soru"&sinavnumara sorusayisi=kontrol1(""&sorular&"") grupsayisi=kontrol1(""&gruplar&"") sinifadi=kontrol1("sinifadi") set kontrol2 = Server.CreateObject("ADODB.Recordset") kontrol2.open "SELECT* FROM grupders where sinifders="&sinifim&" and sinavno="&sinavnumara&"",erdc,1,3 if kontrol2.eof then hata=1 response.Write("Bu sınav için Sınav Soru Bilgileri Girilmemiş ") end if set kontrol3 = Server.CreateObject("ADODB.Recordset") kontrol3.open "SELECT* FROM cevaplar where idsinifders="&sinifim&" and sinavno="&sinavnumara&"",erdc,1,3 if kontrol3.eof then hata=1 response.Write("Bu sınav için Cevap Anahtarı Girilmemiş ") end if set sinav_bul = Server.CreateObject("ADODB.Recordset") sinav_bul.open "SELECT* FROM sinavders where idsinifders="&sinifim&" and sinavno="&sinavnumara&"",erdc,1,3 if sinav_bul.eof then hata=1 response.Write("Bu Ders İçin Test Sınavı Tanımlanmmamış ") end if if hata=0 then %> <% set ogr_bul = Server.CreateObject("ADODB.Recordset") ogr_bul.open "SELECT* FROM ogrenciler where sinif='"&sinifadi&"' order by ogrnumara asc",erdc,1,3 if not ogr_bul.eof then%> <%if grupsayisi>1 then%> <%end if%> <%for srg=1 to sorusayisi%> <%next%> " /> <% ogr_sira=1 do while not ogr_bul.eof on error resume next set opuan_bul1 = Server.CreateObject("ADODB.Recordset") opuan_bul1.open "SELECT* FROM optik1 where kimlikno='"&ogr_bul("kimlikno")&"' and sinavkodu="&sinav_bul("sinavkodu")&" and testno="&sinav_bul("testno")&"",erdc1,1,3 if opuan_bul1.eof then opuan_bul1.close set opuan_bul1 = Server.CreateObject("ADODB.Recordset") opuan_bul1.open "SELECT* FROM optik1 where sinif='"&sinifadi&"' and ogrno="&ogr_bul("ogrnumara")&" and sinavkodu="&sinav_bul("sinavkodu")&" and testno="&sinav_bul("testno")&"",erdc1,1,3 end if if opuan_bul1("grup")="" or opuan_bul1("grup")=" " or opuan_bul1("grup")="*" then grubu=1 else grubu=opuan_bul1("grup") end if if opuan_bul1.eof or opuan_bul1("girmedi")="X" then girmedi=1 else girmedi=0 end if set c_bul1 = Server.CreateObject("ADODB.Recordset") c_bul1.open "SELECT* FROM cevaplar where idsinifders="&sinifim&" and grup="&grubu&" and sinavno="&sinav_bul("sinavno")&"",erdc,1,3 %> <%if grupsayisi>1 then%> <%end if%> <% if c_bul1("iptalayar")=1 then sorupuan=100/sorusayisi end if if c_bul1("iptalayar")=2 then sorupuan=100/(sorusayisi-c_bul1("iptalsayi")) end if for srg2=1 to sorusayisi if opuan_bul1("s"&srg2&"")=c_bul1("cevap"&srg2&"") then puandeger=round(sorupuan,2) end if if opuan_bul1("s"&srg2&"")<>c_bul1("cevap"&srg2&"") then puandeger=0 end if if opuan_bul1("s"&srg2&"")="X" then puandeger="" end if if c_bul1("iptalayar")=1 then if c_bul1("cevap"&srg2&"")="F" then puandeger=round(sorupuan,2) end if end if if opuan_bul1.eof then puandeger="" end if if girmedi=1 then puandeger="" end if %> <%next%> <% ogr_sira=ogr_sira+1 ogr_bul.movenext loop ogr_bul.close %> Sıra No No Adı Soyadı Girmedi Grup <%=srg%>. Soru <%=ogr_sira%>  <%=ogr_bul("ogrnumara")%>  <%=ogr_bul("ogradi")%> <%=ogr_bul("ogrsoyadi")%>" /> " /> checked="checked"<% end if%> /> <% if not opuan_bul1.eof and girmedi=0 then if opuan_bul1("grup")="1" then %> A Grubu <% end if if opuan_bul1("grup")="2" then %> B Grubu <% end if if opuan_bul1("grup")="3" then %> C Grubu <% end if if opuan_bul1("grup")="4" then %> D Grubu <% end if if opuan_bul1("grup")="" or opuan_bul1("grup")=" " or opuan_bul1("grup")="*" then %> A Grubu** <% end if end if %>               <%end if end if end if end if end if end if %>

<% if islem="44" then sinifders=request.QueryString("sinif") sinavnumarasi=request.QueryString("sinavno") sorusayisi=request.form("tsorusayisi") grupsayisi=request.form("tgrupsayisi") ogrencisayisi=request.form("togrenci") derskodu=request.form("derskodu") for kara=1 to ogrencisayisi on error resume next idogrenci=request.form("ogrid"&kara&"") gruptur=request.form("gruptur"&kara&"") if gruptur="" then gruptur=0 end if girmedi=request.form("girmedi"&kara&"") if girmedi<>"0" then girmedi=1 end if set puangir = Server.CreateObject("ADODB.Recordset") puangir.open "SELECT* FROM puanlar where idogrenci="&idogrenci&" and idders="&derskodu&" and sinavno="&sinavnumarasi&"",erdc,1,3 if puangir.eof then puangir.addnew end if puangir("idogrenci")=idogrenci puangir("sinifders")= sinifders puangir("idders")= derskodu puangir("sinavno")=sinavnumarasi puangir("grup")=gruptur puangir("girmedi")=girmedi for beyaz=1 to sorusayisi if gruptur="0" or gruptur="1" then if girmedi<>"0" then if request.form(""&kara&"_"&beyaz&"")="" then sorudeger="B" else sorudeger=request.form(""&kara&"_"&beyaz&"") end if else sorudeger="" end if puangir("soru"&beyaz&"")=sorudeger end if if gruptur="2" then set sorubul1 = Server.CreateObject("ADODB.Recordset") sorubul1.open "SELECT* FROM grupders where sinifders="&sinifders&" and sinavno="&sinavnumarasi&" and bgrup='"&beyaz&"'",erdc,1,3 if not sorubul1.eof then pembe=sorubul1("soruno") if girmedi<>"0" then if request.form(""&kara&"_"&beyaz&"")="" then sorudeger="B" else sorudeger=request.form(""&kara&"_"&beyaz&"") end if else sorudeger="" end if puangir("soru"&pembe&"")=sorudeger end if end if if gruptur="3" then set sorubul2 = Server.CreateObject("ADODB.Recordset") sorubul2.open "SELECT* FROM grupders where sinifders="&sinifders&" and sinavno="&sinavnumarasi&" and cgrup='"&beyaz&"'",erdc,1,3 if not sorubul2.eof then pembe=sorubul2("soruno") if girmedi<>"0" then if request.form(""&kara&"_"&beyaz&"")="" then sorudeger="B" else sorudeger=request.form(""&kara&"_"&beyaz&"") end if else sorudeger="" end if puangir("soru"&pembe&"")=sorudeger end if end if if gruptur="4" then set sorubul3 = Server.CreateObject("ADODB.Recordset") sorubul3.open "SELECT* FROM grupders where sinifders="&sinifders&" and sinavno="&sinavnumarasi&" and dgrup='"&beyaz&"'",erdc,1,3 if not sorubul3.eof then pembe=sorubul3("soruno") if girmedi<>"0" then if request.form(""&kara&"_"&beyaz&"")="" then sorudeger="B" else sorudeger=request.form(""&kara&"_"&beyaz&"") end if else sorudeger="" end if puangir("soru"&pembe&"")=sorudeger end if end if next puangir.update puangir.close Set puangir=Nothing next sinavnumara=request.QueryString("sinavno") set rapor1 = Server.CreateObject("ADODB.Recordset") rapor1.open "SELECT * FROM sinifders where idsd="&request.QueryString("sinif")&" ",erdc,1,3 if not rapor1.eof then set sinifsayi = Server.CreateObject("ADODB.Recordset") sinifsayi.open "SELECT * FROM ogrenciler where sinif='"&rapor1("sinifadi")&"' ",erdc,1,3 if not sinifsayi.eof then ogrencimevcut=sinifsayi.recordcount else ogrencimevcut=0 end if sinifsayi.close set sinifsayi=nothing girmeyenogr="0" girenogr="1" set sinavgiren = Server.CreateObject("ADODB.Recordset") sinavgiren.open "SELECT * FROM puanlar where sinifders="&request.QueryString("sinif")&" and sinavno="&sinavnumara&" and girmedi="&girenogr&" ",erdc,1,3 if not sinavgiren.eof then sinavagirenogrenci=sinavgiren.recordcount else sinavagirenogrenci=0 end if sinavgiren.close set sinavgiren1 = Server.CreateObject("ADODB.Recordset") sinavgiren1.open "SELECT * FROM puanlar where sinifders="&request.QueryString("sinif")&" and sinavno="&sinavnumara&" and girmedi="&girmeyenogr&" ",erdc,1,3 if not sinavgiren1.eof then sinavagirmeyenogrenci=sinavgiren1.recordcount else sinavagirmeyenogrenci=0 end if sinavgiren1.close girmeyenogr0="0" for siram=1 to rapor1("soru"&sinavnumara&"") set rapor3 = Server.CreateObject("ADODB.Recordset") rapor3.open "SELECT * FROM puanlar where sinifders="&request.QueryString("sinif")&" and sinavno="&sinavnumara&" and girmedi<>"&girmeyenogr0&"",erdc,1,3 bossayi=0 toplampuan=0 for boss=1 to rapor3.recordcount set rapor4 = Server.CreateObject("ADODB.Recordset") rapor4.open "SELECT * FROM puanlar where idpuan="&rapor3("idpuan")&"",erdc,1,3 if not rapor4.eof then if rapor4("soru"&siram&"")="B" then bossayi=bossayi+1 end if if rapor4("soru"&siram&"")<>"B" and rapor4("soru"&siram&"")<>"" then toplampuan=toplampuan+rapor4("soru"&siram&"") end if end if rapor3.movenext next set rapor2 = Server.CreateObject("ADODB.Recordset") rapor2.open "SELECT * FROM grupders where sinifders="&request.QueryString("sinif")&" and sinavno="&sinavnumara&" and soruno="&siram&" ",erdc,1,3 rapor3.close next set rapor5 = Server.CreateObject("ADODB.Recordset") rapor5.open "SELECT * FROM puanlar where sinifders="&request.QueryString("sinif")&" and sinavno="&sinavnumara&" and girmedi<>"&girmeyenogr0&"",erdc,1,3 gecer=0 gecmez=0 orta=0 iyi=0 pekiyi=0 gecensayi=0 do while not rapor5.eof ogrpuan=0 for siramx=1 to rapor1("soru"&sinavnumara&"") if rapor5("soru"&siramx&"")="B" then sorudeger=0 end if if rapor5("soru"&siramx&"")="" then sorudeger=0 end if if rapor5("soru"&siramx&"")<>"B" and rapor5("soru"&siramx&"")<>"" then sorudeger=rapor5("soru"&siramx&"") end if ogrpuan=ogrpuan+sorudeger next if ogrpuan<=49.99 then gecmez=gecmez+1 end if if ogrpuan>49.99 then gecensayi=gecensayi+1 end if if ogrpuan>49.99 and ogrpuan<=59.99 then gecer=gecer+1 end if if ogrpuan>59.99 and ogrpuan<=69.99 then orta=orta+1 end if if ogrpuan>69.99 and ogrpuan<=84.99 then iyi=iyi+1 end if if ogrpuan>84.99 and ogrpuan<=100 then pekiyi=pekiyi+1 end if rapor5.movenext loop rapor5.close end if bogrenci=0+gecer+orta+iyi+pekiyi set rapor8 = Server.CreateObject("ADODB.Recordset") rapor8.open "SELECT * FROM sinavsonuc where sinifders="&request.QueryString("sinif")&" and sinavno="&sinavnumara&" ",erdc,1,3 if rapor8.eof then rapor8.addnew end if rapor8("sinifders")=request.QueryString("sinif") rapor8("sinavno")=sinavnumara rapor8("gecmez")=gecmez rapor8("gecer")=gecer rapor8("orta")=orta rapor8("iyi")=iyi rapor8("pekiyi")=pekiyi rapor8("basarili")=bogrenci rapor8("basarisiz")=gecmez rapor8("giren")=sinavagirenogrenci rapor8("girmeyen")=sinavagirmeyenogrenci rapor8("mevcut")=ogrencimevcut rapor8.update rapor8.close response.Redirect("testdeger.asp?islem=5&sinif="&request.QueryString("sinif")&"&sinavno="&request.QueryString("sinavno")&"") end if %>