|
|
<%
sinif=request.form("sinif")
if sinif="" then
sinif=request.QueryString("sinif")
end if
numara=request.form("numara")
if numara="" then
numara=request.QueryString("numara")
end if
if islem="1" and sinif<>"" and numara<>"" then
set ogr_bul = Server.CreateObject("ADODB.Recordset")
ogr_bul.open "SELECT* FROM ogrenciler where sinif='"&sinif&"' and ogrnumara="&numara&"",erdc,1,3
if not ogr_bul.eof then
set opuan_bul1 = Server.CreateObject("ADODB.Recordset")
opuan_bul1.open "SELECT* FROM optik1 where kimlikno='"&ogr_bul("kimlikno")&"' or sinif='"&ogr_bul("sinif")&"' and ogrno="&ogr_bul("ogrnumara")&" ",erdc1,1,3
if not opuan_bul1.eof then
%>
<%end if
end if
end if
if islem=2 then
sinifa=request.Form("sinif")
numara=request.Form("numara")
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&"")
girmedi=request.form("girmedi"&ik&"")
if girmedi="" then
girmedi=""
end if
if girmedi="1" then
girmedi="X"
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("girmedi")=girmedi
gnc.update
gnc.close
set gnc= Nothing
next
response.Redirect("grupdegis.asp?islem=1&sinif="&sinifa&"&numara="&numara&"")
end if
if islem=3 then
sinif=request.querystring("sinif")
numara=request.querystring("numara")
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("grupdegis.asp?islem=1&sinif="&sinif&"&numara="&numara&"")
end if
%>
| |
|
