 |
|
|
|
<% 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%>
<%
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 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
if not kontrol2.eof then
hata4=0
puan1=0
for sorsor=1 to kontrol1(""&sorular&"")
if kontrol2("kazanim")="" then
response.write(""&kontrol2("soruno")&". soru için Kazanım Girilmemiş
")
hata4=hata4+1
end if
if kontrol2("puan")="0" then
response.write(""&kontrol2("soruno")&". soru için Puan Girilmemiş
")
hata4=hata4+1
end if
if kontrol1(""&gruplar&"")>1 then
bgruphatasi=0
if kontrol2("bgrup")="" then
bgruphatasi=bgruphatasi+1
response.write(""&kontrol2("soruno")&". soru için B grup Karşılığı Girilmemiş
")
end if
else
bgruphatasi=bgruphatasi
end if
if kontrol1(""&gruplar&"")>2 then
cgruphatasi=0
if kontrol2("cgrup")="" then
cgruphatasi=cgruphatasi+1
response.write(""&kontrol2("soruno")&". soru için C grup Karşılığı Girilmemiş
")
end if
else
cgruphatasi=cgruphatasi
end if
if kontrol1(""&gruplar&"")>3 then
dgruphatasi=0
if kontrol2("dgrup")="" then
dgruphatasi=dgruphatasi+1
response.write(""&kontrol2("soruno")&". soru için D grup Karşılığı Girilmemiş
")
end if
else
dgruphatasi=dgruphatasi
end if
set kontrol3 = Server.CreateObject("ADODB.Recordset")
kontrol3.open "SELECT * FROM grupders where sinifders="&sinifim&" and sinavno="&sinavnumara&" and soruno="&sorsor&"",erdc,1,3
on error resume next
if kontrol3.eof then
puan2=0
else
puan2=kontrol3("puan")
end if
if kontrol3("puan")="" then
puan2=0
end if
puan1=puan1+puan2
kontrol3.close
kontrol2.movenext
next
kontrol2.close
end if
hata3=0
if bgruphatasi=0 and kontrol1(""&gruplar&"")>1 then
for iremcik=1 to kontrol1(""&sorular&"")
set kontrol4 = Server.CreateObject("ADODB.Recordset")
kontrol4.open "SELECT* FROM grupders where sinifders="&sinifim&" and sinavno="&sinavnumara&" and bgrup='"&iremcik&"'",erdc,1,3
if kontrol4.eof then
response.Write("B grubu "&iremcik&". sorunun karşılığı girilmemiş
")
hata3=hata3+1
end if
if kontrol4.recordcount>1 then
response.Write("B grubu "&iremcik&". sorunun karşılığı 1 den fazla girilmiş
")
hata3=hata3+1
end if
kontrol4.close
next
if puan1<>100 then
hata2=1
response.Write("Puan toplamları 100 olmalı")
end if
end if
if cgruphatasi=0 and kontrol1(""&gruplar&"")>2 then
for iremcik1=1 to kontrol1(""&sorular&"")
set kontrol41 = Server.CreateObject("ADODB.Recordset")
kontrol41.open "SELECT* FROM grupders where sinifders="&sinifim&" and sinavno="&sinavnumara&" and cgrup='"&iremcik1&"'",erdc,1,3
if kontrol41.eof then
response.Write("C grubu "&iremcik1&". sorunun karşılığı girilmemiş
")
hata3=hata3+1
end if
if kontrol41.recordcount>1 then
response.Write("C grubu "&iremcik1&". sorunun karşılığı 1 den fazla girilmiş
")
hata3=hata3+1
end if
kontrol41.close
next
end if
if dgruphatasi=0 and kontrol1(""&gruplar&"")>3 then
for iremcik2=1 to kontrol1(""&sorular&"")
set kontrol42 = Server.CreateObject("ADODB.Recordset")
kontrol42.open "SELECT* FROM grupders where sinifders="&sinifim&" and sinavno="&sinavnumara&" and dgrup='"&iremcik2&"'",erdc,1,3
if kontrol42.eof then
response.Write("D grubu "&iremcik2&". sorunun karşılığı girilmemiş
")
hata3=hata3+1
end if
if kontrol42.recordcount>1 then
response.Write("D grubu "&iremcik2&". sorunun karşılığı 1 den fazla girilmiş
")
hata3=hata3+1
end if
kontrol42.close
next
end if
toplamhata=0+hata+hata2+hata3+hata4+bgruphatasi+cgruphatasi+dgruphatasi
if toplamhata=0then
%>
<%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%>
<%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
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" then
toplampuan=toplampuan+cint(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
else
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("puangiris.asp?islem=5&sinif="&request.QueryString("sinif")&"&sinavno="&request.QueryString("sinavno")&"")
end if
%>