ÖĞRETMENLERİMİZ

<% Set ogr = Server.CreateObject("ADODB.Recordset") sor = "Select * from ogt where OBransi not like 'PERSONEL' AND 'MEMUR' and Ono not like '1' Order BY ONo asc" ogr.Open sor,okul,1,3 %><% if ogr.recordcount = 0 then%>
Bilgilendirme

Kayıtlı Öğretmen Bulunamadı.

<%else %><%sayfalama=4 sayfa = Request.QueryString("sayfa") if sayfa = "" then sayfa = 1 end if %> <% ogr.pagesize = sayfalama ogr.absolutepage = sayfa sayfala = ogr.pagecount for i=1 to ogr.pagesize if ogr.eof then exit for %>

" width=77 border=0>

  Adı Soyadı :  <%=ogr.Fields("OAdi")%>
Branşı :  <%=ogr.Fields("OBransi")%>
Doğum Yeri / Tarihi :  <%=ogr.Fields("ODogum")%>
Maili :  <%=ogr.Fields("OMedeni")%>
Mezun Olduğu Okul :  <%=ogr.Fields("OMezun")%>

<% ogr.MOVENEXT %> <% next %>

SAYFALAR : <% Aralik = 2 intSayfaAltSiniri = sayfa - Aralik intSayfaUstSiniri = sayfa + Aralik intSolGrupSayisi = 1 + Aralik intSagAltSinir = sayfala - Aralik %> <% If (intSayfaUstSiniri >sayfala) Then intSayfaAltSiniri = sayfala - (2 * Aralik) intSayfaUstSiniri = sayfala End If %> <% If (intSayfaAltSiniri <= 0) Then intSayfaAltSiniri = 1 intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik) If intSayfaUstSiniri >= sayfala Then intSayfaUstSiniri = sayfala End If %> <% If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1 If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1 %> <% If sayfa >1 Then %> [««] [«]<% End If %> <% For i = 1 to intSolGrupSayisi If CInt(i) = (sayfa) Then Response.Write " " Else %> <% End If Response.Write i &" " Next %> <% If (intSayfaAltSiniri - intSolGrupSayisi >1 ) Then Response.Write ". . ." %> <% For i = intSayfaAltSiniri to intSayfaUstSiniri If CInt(i) = CInt(sayfa) Then Response.Write " " Else %> <% End If Response.Write i &" " Next %> <% If (intSagAltSinir - intSayfaUstSiniri >1) Then Response.Write ". . ." %> <% For i = intSagAltSinir to sayfala If CInt(i) = CInt(sayfa) Then Response.Write " " Else %> <% End If Response.Write i &" " Next %> <% If CInt(sayfa) <>CInt(sayfala) Then %> [»] [»»]<% End If %>        Toplam : <%=ogr.recordcount%> <%end if%>