<%
if session("aktif_uyemiz") <> "" then
%>
<html>
<%Dim db_yolu,dsn
db_yolu = Server.MapPath("../../db/vt.mdb")
dsn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db_yolu
Set conn=CreateObject("Adodb.Connection")
conn.open (dsn)
Set rst=CreateObject("Adodb.Recordset")
rst.open "SELECT * FROM  devam where num='" & session("aktif_uyemiz") & "'",conn,3,3
%>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>ÇERKEZKÖY ATATÜRK İLKÖĞRETİM OKULU</title>
<base target="_self">
</head>

<body leftmargin="0" topmargin="0">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="716" id="AutoNumber2" height="32">
  <tr>
                <td width="716" style="border-left-width: 1; border-right-width: 1; border-top-style: dashed; border-top-width: 1; border-bottom-style: dashed; border-bottom-width: 1" height="1">
                <font face="Verdana" size="2">&nbsp;</font><b><font face="Verdana" size="2">ÖĞRENCİ 
                DEVAMSIZLIK BİLGİLERİ</font></b></td>
              </tr>
      </table>
    <p>&nbsp;</p>
    <p>&nbsp;</td>
  </tr>
  <tr>
    <td width="716" height="19">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
      <tr>
        <td width="4%">&nbsp;</td>
        <td width="78%">
        <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="675" id="AutoNumber4" height="29">
          <tr>
            <td width="137" bgcolor="#F3F3F3" height="19">
            <p align="center"><b><font face="Verdana" size="2" color="#800000">&nbsp; 
            Öğrenci Numarası</font></b></td>
            <td width="176" bgcolor="#F3F3F3" height="19">
            <p align="center"><b><font face="Verdana" size="2" color="#800000">
            Devam Etmediği Günler</font></b></td>
            <td width="148" bgcolor="#F3F3F3" align="center" height="19">
            <p align="center"><b><font face="Verdana" size="2" color="#800000">
            Toplam Devamsızlık</font></b></td
          </tr>
          <% for i=1 to rst.recordcount %>
		  <tr>
            <td width="137" bgcolor="#F9F9F9" height="19"><font face="Verdana" size="2">&nbsp;<%Response.Write rst("num")%></font></td>
            <td width="176" align="center" bgcolor="#F9F9F9" height="19">
            <font face="Verdana" size="2"><%Response.Write rst("devamgun")%></font></td>
            <td width="148" align="center" bgcolor="#F9F9F9" height="19">
            <font face="Verdana" size="2"><%Response.Write rst("toplamdevam")%></font></td>
          </tr>
		  <% rst.movenext
     		  next %>
          <tr>
            <td width="695" height="2" bgcolor="#C0C0C0" colspan="3"></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>

<br>

</body>

</html>
<%
else
Response.Write "Bu sayfa öğrencilere özel sayfadır. Eğer öğrenciyseniz ana sayfadan giriş yapınız."
end if
%>