Gönderen: 29-Mayıs-2012 Saat 09:31 | Kayıtlı IP

Dim id,islem
islem = Request.QueryString("islem")
id = Request.QueryString("id")

   'İşlemi Belirleme ve İşleme Sayısal Değerler Oluşturma Bölümü
   if id = "" and islem= "" then
   'id yok, o halde kayıtların hepsini gönderelim...
   islem = 0 ' bu sıfır işimize mutlaka bir yerlerde yarar.. şimdilik kalsın.
   end if

   if islem="guncelle" then
   islem=2
   end if

   if islem="guncellestir" then
   islem=4
   %><!--#include file="inc_formbilgi.asp"--><%
   end if

   if islem="sil" then
   islem=3
   end if

   if islem="ekle" then
   islem=1%>
   <!--#include file="inc_formbilgi.asp"-->
   <%
   end if
%>

<%
Dim yonetimvt,yonetimSQL,yonetimkayit,sorukayitSQL,ks,sirano

set yonetimvt=Server.CreateObject ("ADODB.Connection")
yonetimvt.Open bag
Set yonetimkayit = Server.CreateObject("Adodb.Recordset")
     
  select case islem 'Yapılmak istenen iş ne acaba?
  
  case 0 'İşlem Yoksa soruların tümü listelensin ve seçim yapma şansı tanınsın.
   sorukayitSQL = "SELECT * FROM sorular"
   yonetimkayit.Open sorukayitSQL, yonetimvt, 1, 3
   ks = yonetimkayit.RecordCount 'veritabanındaki kayıtların sayısı
             sirano = 1   
    Response.Write "<b>SINAV SORULARI</b><hr>"
    Response.Write " <table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" bordercolor=""#666666"" bgcolor=""#F7F7F4"">"
     Do While Not yonetimkayit.eof
       Response.Write "<tr><td align=""center"" bgcolor=""#D7D7D4""width=""30""><b>" & sirano & "</b></td><td bgcolor=""#F6F6F6""><a href=""../sorugoster.asp?soruid="& yonetimkayit("id")&""" target=""_blank"" title=""Sorunun Sayfasını Görmek İçin Tıklayınız...""><b>"
    Response.Write yonetimkayit("ders") & " ("
    Response.Write yonetimkayit("derskodu") & ")</b> dersi <b>"
    Response.Write yonetimkayit("yil") & " - "
    Response.Write yonetimkayit("donem") & "</b> dönemi <b>"
    Response.Write yonetimkayit("tur") & "</b> sınav sorusu (<b>Öğretmen:</b> "
    Response.Write yonetimkayit("ogretmen") & " / <b>Bölüm:</b> "
    Response.Write yonetimkayit("bolum") & " )"
    Response.Write "</a></td><td bgcolor=""#D7D7D4"" align=""center"" width=""120""><b><a href=""sorular.asp?islem=sil&id=" &yonetimkayit("id")&""">SİL</a></b> ll "
    Response.Write " <b><a href=""sorular.asp?islem=guncelle&id=" & yonetimkayit("id")& """> GÜNCELLE</a></b></td></tr>"
     
   yonetimkayit.movenext
   sirano=sirano+1
   loop
        Response.Write "</table>"
    
  case 3 'Kayıt Silme Prosedürü
   sorukayitSQL = "SELECT * FROM sorular WHERE id="& id &""
    yonetimkayit.Open sorukayitSQL, yonetimvt, 1, 3
   yonetimkayit.Delete
   yonetimkayit.Update
   Response.Write "Kayıt Silme işlemi başarıyla tamamlandı...<br>"
   Response.Write geridon
   Response.Write" ll <a href=""sorular.asp"">Sorular Sayfası</a>"

  case 2 'Güncelleme Formunu doldurma ve çağırma işlemleri
   sorukayitSQL = "SELECT * FROM sorular WHERE id="& id &""
    yonetimkayit.Open sorukayitSQL, yonetimvt, 1, 3
    
    call guncelle() 'Kayıt güncelleme formunu çağırma
     Response.Write geridon

  case 4 'Güncelleme işlemlerini veritabanına işleme
   'Güncelleme İşlemlerini Veritabanında Gerçekleştirme
   sorukayitSQL = "SELECT * FROM sorular WHERE id="& gid &""
    yonetimkayit.Open sorukayitSQL, yonetimvt, 3, 3

    yonetimkayit("ders")=ders
    yonetimkayit("derskodu")=derskodu&nb sp;
    yonetimkayit("bolum")=bolum
    yonetimkayit("sayfaurl")=sayfaurl
    yonetimkayit("ogretmen")=ogretmen
    yonetimkayit("tur")=tur
    yonetimkayit("yil")=yil
    yonetimkayit("donem")=donem
    yonetimkayit.Update

   response.write "Güncelleştirme işlemi başarıyla tamamlandı...<br>"
   response.write geridon
   Response.Write" ll <a href=""sorular.asp"">Sorular Sayfası</a>"
  
  case 1
   sorukayitSQL = "SELECT * FROM sorular"
    yonetimkayit.Open sorukayitSQL, yonetimvt, 1, 3

    yonetimkayit.AddNew ' Yeni bir kayit ekle
    yonetimkayit("ders")=ders
    yonetimkayit("derskodu")=derskodu&nb sp;
    yonetimkayit("bolum")=bolum
    yonetimkayit("sayfaurl")=sayfaurl
    yonetimkayit("ogretmen")=ogretmen
    yonetimkayit("tur")=tur
    yonetimkayit("yil")=yil
    yonetimkayit("donem")=donem
    yonetimkayit.Update

   Response.Write "yeni kayıt ekleme işlemi başarıyla tamamlandı...<br>"
   Response.Write geridon
   Response.Write" ll <a href=""sorular.asp"">Sorular Sayfası</a>"

  end select

    'if yonetimkayit.eof then
      'Response.write "Lütfen yapmak istediğiniz işlemi belirtiniz..."
    if islem=0 then
      Response.Write "Kayıt Sayısı: <b>" & ks & "</b>" & "<br><a href=""default.asp"" target=""_top"">Yönetici Ana Sayfasına Dön</a>"
    end if
    
     %>
   
   <hr>

  <% call yenikayit() 'Yeni Kayıt Formunu Çağırma %>

<% 'İşlem Bitti İşleri
yonetimkayit.close
set yonetimkayit=Nothing

yonetimvt.close
set yonetimvt=Nothing
%>

</body>
</html>