Sınav Kodu <% sinav=request.form("sinav") if sinav="" then sinav=request.QueryString("sinav") end if if islem="1" and sinav<>"" then set opuan_bul1 = Server.CreateObject("ADODB.Recordset") opuan_bul1.open "SELECT* FROM optik1 where sinavkodu="&sinav&"",erdc1,1,3 if not opuan_bul1.eof then %> <% sira=1 do while not opuan_bul1.eof set ogr_bul = Server.CreateObject("ADODB.Recordset") ogr_bul.open "SELECT* FROM ogrenciler where kimlikno='"&opuan_bul1("kimlikno")&"' or sinif='"&opuan_bul1("sinif")&"' and ogrnumara="&opuan_bul1("ogrno")&" ",erdc,1,3 if ogr_bul.eof then %> <% sira=sira+1 end if opuan_bul1.movenext loop opuan_bul1.close %> Sıra Adı Numara Sınıf Kimlikno Okulturu Grup Testno <%=sira%>-&sinav=<%=sinav%>"><%=opuan_bul1("idform")%>" /> " maxlength="20" /> " /> " /> " /> " /> " /> " /> <%end if end if if islem=2 then sinav=request.Form("sinav") sayi=request.Form("sayi") for ik=1 to sayi 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&"") 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 next response.Redirect("optik1.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("optik1.asp?islem=1&sinav="&sinav&"") end if %>