<%set snv_bul = Server.CreateObject("ADODB.Recordset") snv_bul.open "SELECT* FROM sinavlar order by idsinav asc",erdc,1,3 %>

Sınav Kodu Sınav Seçiniz <% for ig=1 to snv_bul.recordcount%> "><%=snv_bul("sinavkodu")%>-<%=snv_bul("sinavtarih")%>-<%=snv_bul("sinavsaat")%> <%snv_bul.movenext next snv_bul.close %> Sınıf Seçiniz <% set snf_bul = Server.CreateObject("ADODB.Recordset") snf_bul.open "SELECT * FROM siniflar order by sinif asc",erdc,1,3 for igx=1 to snf_bul.recordcount %> "><%=snf_bul("sinif")%> <%snf_bul.movenext next snf_bul.close %> Test Sırası 1. Test 2. Test <% sira=1 sinav=request.form("sinav") if sinav="" then sinav=request.QueryString("sinav") end if sinif=request.form("sinif") if sinif="" then sinif=request.QueryString("sinif") end if testno=request.form("testno") if testno="" then testno=request.QueryString("testno") end if if islem="1" and sinav<>"" and sinif<>"" and testno<>"0" then set ders_bul = Server.CreateObject("ADODB.Recordset") ders_bul.open "SELECT* FROM sinavders where sinavkodu="&sinav&" and idsinif="&sinif&" and testno="&testno&" ",erdc,1,3 if ders_bul.eof then response.write("Bu Sınıf İçin Sınav Ataması Yapılmamış") end if if not ders_bul.eof then set snf_bul2 = Server.CreateObject("ADODB.Recordset") snf_bul2.open "SELECT* FROM siniflar where idsinif="&sinif&" ",erdc,1,3 %> <% set ogr_bul = Server.CreateObject("ADODB.Recordset") ogr_bul.open "SELECT* FROM ogrenciler where sinif='"&snf_bul2("sinif")&"'",erdc,1,3 if not ogr_bul.eof then ogrsira=1 for rt=1 to ogr_bul.recordcount set opuan_bul1 = Server.CreateObject("ADODB.Recordset") opuan_bul1.open "SELECT* FROM optik1 where sinavkodu="&sinav&" and kimlikno='"&ogr_bul("kimlikno")&"' and testno="&testno&" or sinavkodu="&sinav&" and sinif='"&ogr_bul("sinif")&"' and ogrno="&ogr_bul("ogrnumara")&" and testno="&testno&"",erdc1,1,3 if opuan_bul1.eof then %> <% aktif=1 set ders_bul2 = Server.CreateObject("ADODB.Recordset") ders_bul2.open "SELECT* FROM sinavders where sinavkodu="&sinav&" and idsinif="&sinif&" and testno="&testno&" ",erdc,1,3 %> <%sinavsira=1 sinavi="sinav"&ders_bul2("sinavno")&"" set test1 = Server.CreateObject("ADODB.Recordset") test1.open "SELECT* FROM sinifders where idsinif="&ders_bul2("idsinif")&" and idders="&ders_bul2("idders")&" and "&sinavi&"="&aktif&" ",erdc,1,3 if not test1.eof then %> <% sinavsira=sinavsira+1 end if ders_bul2.close ogrsira=ogrsira+1 end if opuan_bul1.close ogr_bul.movenext next ogr_bul.close %> <% snf_bul2.close end if ders_bul.close end if %> <%=ogrsira%> <%=ogr_bul("ogradi")%> <%=ogr_bul("ogrsoyadi")%>" /> <%=ogr_bul("ogrnumara")%> <%=ogr_bul("sinif")%> <%=ogr_bul("kimlikno")%> " /> <%for ty=1 to test1("soru"&ders_bul2("sinavno")&"")%> <%next%> <%for tz=1 to test1("soru"&ders_bul2("sinavno")&"")%> <%next%> _<%=ders_bul2("testno")%>" id="grup_<%=ogrsira%>_<%=ders_bul2("sinavno")%>_<%=ders_bul2("testno")%>"> __ A B C D <%=ty%> _<%=ders_bul2("testno")%>_<%=tz%>" id="soru_<%=ogrsira%>_<%=ders_bul2("sinavno")%>_<%=ders_bul2("testno")%>_<%=tz%>" type="text" size="2" maxlength="1" /> _<%=ders_bul2("testno")%>" id="girmedi_<%=ogrsira%>_<%=ders_bul2("sinavno")%>_<%=ders_bul2("testno")%>" value="1"/> <%if ogrsira-1>=1 then%><%end if%> <%end if%> <% if islem=2 then sinavkodu=request.Form("sinavkodu") sinifi=request.Form("sinifi") ogrsayi=request.Form("ogrsayisi") testno=request.Form("testno") for ogr=1 to ogrsayi ogrenci=request.Form("ogrenci"&ogr&"") set ogr_bul = Server.CreateObject("ADODB.Recordset") ogr_bul.open "SELECT* FROM ogrenciler where idogrenci="&ogrenci&"",erdc,1,3 if not ogr_bul.eof then kimlikno=ogr_bul("kimlikno") numara=ogr_bul("ogrnumara") sinif=ogr_bul("sinif") adi=""&ogr_bul("ogradi")&" "&ogr_bul("ogrsoyadi")&"" idsinders=request.Form("sinavders"&ogr&"_"&testno&"") if idsinders<>"" then set sinav_bul = Server.CreateObject("ADODB.Recordset") sinav_bul.open "SELECT* FROM sinavders where idsinders="&idsinders&"",erdc,1,3 testno=sinav_bul("testno") sinavno=sinav_bul("sinavno") sorusayi="soru"&sinavno&"" grup=request.form("grup_"&ogr&"_"&sinavno&"_"&testno&"") girmedi=request.form("girmedi_"&ogr&"_"&sinavno&"_"&testno&"") if girmedi="" then girmedi="" end if if girmedi="1" then girmedi="X" end if if grup>0 then set soru_bul = Server.CreateObject("ADODB.Recordset") soru_bul.open "SELECT* FROM sinifders where idsd="&sinav_bul("idsinifders")&"",erdc,1,3 set puan_bul = Server.CreateObject("ADODB.Recordset") puan_bul.open "SELECT* FROM optik1 where sinavkodu="&sinavkodu&" and kimlikno='"&kimlikno&"' and testno="&testno&" or sinavkodu="&sinavkodu&" and sinif='"&sinif&"' and ogrno="&numara&" and testno="&testno&"",erdc1,1,3 if puan_bul.eof then puan_bul.addnew end if puan_bul("sinavkodu")=sinavkodu puan_bul("testno")=testno puan_bul("kimlikno")=kimlikno puan_bul("ogrno")=numara puan_bul("adi")=adi puan_bul("sinif")=sinif puan_bul("grup")=grup puan_bul("girmedi")=girmedi for sr=1 to soru_bul(""&sorusayi&"") cevap=request.form("soru_"&ogr&"_"&sinavno&"_"&testno&"_"&sr&"") if cevap="1" then cevap="A" end if if cevap="2" then cevap="B" end if if cevap="3" then cevap="C" end if if cevap="4" then cevap="D" end if if cevap="5" then cevap="E" end if puan_bul("s"&sr&"")=""&cevap&"" next puan_bul.update puan_bul.close end if end if end if next response.Redirect("optikgiris2.asp?islem=1&sinav="&sinavkodu&"&sinif="&sinifi&"&testno="&testno&"") end if %>

<%erdc.close erdc1.close smh.close %>