<%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 %> <% sira=1 sinav=request.form("sinav") if sinav="" then sinav=request.QueryString("sinav") end if if islem="1" and sinav<>"" then set snv_bul = Server.CreateObject("ADODB.Recordset") snv_bul.open "SELECT* FROM sinavlar where sinavkodu="&sinav&" ",erdc,1,3 karsilik=snv_bul("karsilik") set snf_bul = Server.CreateObject("ADODB.Recordset") snf_bul.open "SELECT DISTINCT idsinif FROM sinavders where sinavkodu="&sinav&" order by idsinif asc",erdc,1,3 if snf_bul.eof then response.Write("Sınıf Sınav Ataması Yapılmamış") end if %> <% if not snf_bul.eof then do while not snf_bul.eof set snf_bul2 = Server.CreateObject("ADODB.Recordset") snf_bul2.open "SELECT* FROM siniflar where idsinif="&snf_bul("idsinif")&"",erdc,1,3 if not snf_bul2.eof then 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 for rt=1 to ogr_bul.recordcount devami="" set opuan_bul1 = Server.CreateObject("ADODB.Recordset") opuan_bul1.open "SELECT count(idform) as kayitsayisi FROM optik1 where sinavkodu="&sinav&" and kimlikno='"&ogr_bul("kimlikno")&"' or sinavkodu="&sinav&" and sinif='"&ogr_bul("sinif")&"' and ogrno="&ogr_bul("ogrnumara")&"",erdc1,1,3 if opuan_bul1("kayitsayisi")>"2" then set opuan_bul2 = Server.CreateObject("ADODB.Recordset") opuan_bul2.open "SELECT* FROM optik1 where sinavkodu="&sinav&" and kimlikno='"&ogr_bul("kimlikno")&"' or sinavkodu="&sinav&" and sinif='"&ogr_bul("sinif")&"' and ogrno="&ogr_bul("ogrnumara")&"",erdc1,1,3 do while not opuan_bul2.eof %> <% sira=sira+1 opuan_bul2.movenext loop opuan_bul2.close sira=sira+1 end if opuan_bul1.close ogr_bul.movenext next ogr_bul.close end if end if sira=sira snf_bul.movenext loop snf_bul.close end if end if %> Sıra Adı Numara Sınıf Kimlikno okulturu Grubu Testno sil <%=sira%>-&sinav=<%=sinav%>"><%=opuan_bul2("sinavkodu")%>" /> " maxlength="20" /> " size="10" /> " size="10" /> " size="15" /> " size="5" /> " size="5" /> " size="5" /> <% if islem=2 then sinav=request.Querystring("sinav") sayi=request.Form("sayi") for ik=1 to sayi on error resume next idform=request.form("idform"&ik&"") adi=request.form("adi"&ik&"") ogrno=request.form("ogrno"&ik&"") sinif=request.form("sinif"&ik&"") kimlikno=request.form("kimlikno"&ik&"") okulturu=request.form("okulturu"&ik&"") grup=request.form("grup"&ik&"") testno=request.form("testno"&ik&"") sil=request.form("sil"&ik&"") if sil="" then sil=0 end if set gnc = Server.CreateObject("ADODB.Recordset") gnc.open "SELECT* FROM optik1 where idform="&idform&"",erdc1,1,3 gnc("adi")=adi gnc("ogrno")=ogrno gnc("sinif")=sinif gnc("kimlikno")=kimlikno gnc("okulturu")=okulturu gnc("grup")=grup gnc("testno")=testno gnc.update gnc.close set gnc= Nothing if sil=1 then set sil = Server.CreateObject("ADODB.Recordset") sil.open "SELECT* FROM optik1 where idform="&idform&"",erdc1,1,3 sil.delete sil.update sil.close set sil= Nothing end if next response.Redirect("ciftkayit.asp?islem=1&sinav="&sinav&"") end if if islem=3 then sinav=request.querystring("sinav") idform=request.querystring("kayit") set sil = Server.CreateObject("ADODB.Recordset") sil.open "SELECT* FROM optik1 where idform="&idform&"",erdc1,1,3 sil.delete sil.update sil.close set sil= Nothing response.Redirect("ciftkayit.asp?islem=1&sinav="&sinav&"") end if %>

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