<% Set siteindex = Server.CreateObject("ADODB.Recordset") sor = "Select * from okul" siteindex.Open sor,baglanti,1,3 if siteindex.recordcount = 0 then else arka=siteindex("arka") banner=siteindex("banner") renk=siteindex("renk") end if %> images/arka.gif<%else%>administrator/upload/bannerr/<%=arka%><%end if%>" >
images/ban.gif<%else%>administrator/upload/bannerr/<%=banner%><%end if%>" height="184" width="900" border=2 style="border:#000000">
<%=title%>
» MENÜ
Anasayfa
Atatürk Köşesi
Okulumuz
Kadromuz
Personelimiz
Misyonumuz
Vizyonumuz
Fotoğraflar
Dosyalar
Başarılarımız
İletişim
» ANKET
<% Set maxanket =Server.CreateObject("ADODB.Recordset") strSQL="SELECT * from anket_b" maxanket.Open strSQL,Connect,1,3 if maxanket.recordcount<>0 then %>
<% if not maxanket.eof then %>
<%=maxanket("baslik")%>
<% End if maxanket.close Set maxanket = Nothing %>
<% Set an =Server.CreateObject("ADODB.Recordset") strSQL="SELECT * from anket" an.Open strSQL,Connect,1,3 vote = 0 Do While Not an.EOF vote = vote + an("oylar") an.MoveNext Loop an.close Set an = Nothing Set ans =Server.CreateObject("ADODB.Recordset") strSQL="SELECT * from anket" ans.Open strSQL,Connect,1,3 if ans.eof then response.write (anket_yok) End if do until ans.EOF strZahl=ans.Fields("oylar") If ans("oylar") = "0" Then oytopla = "0" Else oytopla = CInt((ans("oylar") /vote) * 100) End If %> <% ans.MoveNext loop ans.close Set ans = Nothing %>

" class="form"> <%=ans.Fields("secenek")%> (<%=oytopla%> %)

<%if NOT Request.Cookies("Kullandi")=IP then%>
Oy kullanmışsınız
<% else %>
<%end if%> <% Set ant =Server.CreateObject("ADODB.Recordset") strSQL="SELECT Sum(oylar) AS [Summe] FROM anket" ant.Open strSQL,Connect,1,3 %>
<%=ant.Fields("Summe")%> - OY
( Sonuçlar )
<% else%>
Kayıtlı Anket Bulunamadı
<%end if %>
» ZİYARETÇİ DEFTERİ
» ÖNEMLİ LİNKLER
M.E.B
MEB Duyurular
Elazığ MEB
Personel Genel Müd.
İlsis
Atama Rehberi
Başbakanlık
» HAVA DURUMU
» ORTA MENÜ

» EN SON EKLENENLER

» ATATÜRK'ten

.::: İl ve İlçe Milli Eğitim Müdürlükleri Web Adresleri :::.
» RESİM GALERİSİ
Fotoğraf Albümü
» DUYURULAR
<% Set ogr = Server.CreateObject("ADODB.Recordset") sor = "Select * from duyuru order by did desc " ogr.Open sor,db,1,3 %> <% if ogr.recordcount = 0 then%>
Kayıtlı Duyuru Bulunamadı
<%else %> <% git = Request.QueryString("git") if git="" then git=2 end if %><% for i=1 to ogr.pagesize if ogr.eof then exit for %>  " target="orta"><%=left(ogr.Fields("Dduyuru"),100)%> ...

<% ogr.MOVENEXT next end if %>
» ATATÜRK
» TAKVİM
» GÜZEL SÖZLER
<% Set ogr = Server.CreateObject("ADODB.Recordset") sor = "Select * from soz order by sid desc " ogr.Open sor,db,1,3 %> <% if ogr.recordcount = 0 then%>
Kayıtlı Söz Bulunamadı
<%else %>  <%=left(ogr.Fields("soz"),100)%> <%end if%>
» MEB'DEN HABER
            
Bu sayfa <%=title%> Müdürlüğü tarafından hazırlanmıştır. Her Hakkı Saklıdır. © 2007 - 2009
Tasarım ve Kodlama Abdullah ÇELİK