<% Public Function VirgulAt(Verimiz) VirgulAt = Replace(Verimiz,",",".") End Function 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%> Sınav No Sınıf Seçiniz <% do while not k_bul.eof%> "><%=k_bul("sinifadi")%>-<%=k_bul("dersadi")%> <% k_bul.movenext loop k_bul.close set k_bul = Nothing%> Sınav Numarası Seçiniz 1. sınav 2. sınav 3. sınav 4. sınav 5. sınav 6. sınav <%end if if islem="5" then hata=0 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 set kontrol3 = Server.CreateObject("ADODB.Recordset") kontrol3.open "SELECT* FROM cevaplar where idsinifders="&sinifim&" and sinavno="&sinavnumara&"",erdc,1,3 if kontrol3.eof then hata=1 response.Write("Bu sınav için Cevap Anahtarı Girilmemiş ") end if set sinav_bul = Server.CreateObject("ADODB.Recordset") sinav_bul.open "SELECT* FROM sinavders where idsinifders="&sinifim&" and sinavno="&sinavnumara&"",erdc,1,3 if sinav_bul.eof then hata=1 response.Write("Bu Ders İçin Test Sınavı Tanımlanmmamış ") end if set puan_bul = Server.CreateObject("ADODB.Recordset") puan_bul.open "SELECT* FROM puanlar where sinifders="&sinifim&" and sinavno="&sinavnumara&"",erdc,1,3 if puan_bul.eof then hata=1 response.Write("Bu Ders İçin Test Değerlendirilmemiş Test Degerlendir Menüsünden Liste Gelince en altta bulunan kaydet butonuna basınız.") end if if hata=0 then %> Çetele E Okul Aktarım Liste   E okul otomatik Aktarım için buradan programı indiriniz. E okul Aktarım Liste linkinden excel listeyi indiriniz. İndirdiğiniz Excel Listesini Dosya Farklı Kaydet Excel 97-2003 Çalışma Kitabı (.xls) olarak kaydediniz.Listenin ilk öğrencisini ve son öğrencisini e okulda açılan not giriş listesinden kontrol ediniz. Programın arayüzünden e okul giriş yaparak not girişi yapacağınız sınıf ve dersi seçiniz. Hangi sınavın notunu gireceğinizi seçip listeleme yapınız.1 numaralı Gözat alandan Farklı Kaydettiğiniz excel dosyasının yolunu gösteriniz. 2 numaralı Oku düğmesine tıklayınız. Başlangıç Hücresine D2 yazarak DOLDur düğmesine tıklayınız. Kaydetmeyi unutmayınız. <%end if end if end if end if %>