<%
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 anket ",conn,3,3
set rst2=createobject("Adodb.Recordset")
rst2.open "select * from anketsec",conn,3,3
toplam=0
drc1=0
drc2=0
drc3=0
drc4=0
toplam=rst("v1")+rst("v2")+rst("v3")+rst("v4")
drc1=int((rst("v1")*100)/toplam)
drc2=int((rst("v2")*100)/toplam)
drc3=int((rst("v3")*100)/toplam)
drc4=int((rst("v4")*100)/toplam)
%>
<head>
<meta http-equiv="Content-Language" content="tr">
<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>ANKET SONUÇLARI</title>
</head>

<body topmargin="0" leftmargin="0" bgcolor="#F9F9F9" link="#800000" vlink="#800000" alink="#800000">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="370" id="AutoNumber1" height="281">
  <tr>
    <td width="370" height="281">
         
      <div align="center">
        <center>
     
      <table border="0" width="333" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0" bgcolor="#F3F3F3">
      <tr>
      <td width="327" style="border: 1px dashed #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
      <table align=center border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
        <tr>
          <td  width="100%">
          <table border="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" width="94%" id="AutoNumber5" height="69">
            <tr>
              <td width="49%" height="1" ></td>
            </tr>
            <tr>
              <td width="49%" align="center" height="56">
              <p align="left">
                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                  <img border="0" src="../../IMAGES/OGR/anket/anket.jpg"></td>
            </tr>
            <tr>
              <td width="49%" height="1" >
              <p align="center"></td>
            </tr>
          </table>
          </td>
        
        </tr>
        <tr>
          <td width="100%">
          <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber9">
            <tr>
              <td width="100%"><b>
                  <font face="Verdana" size="1" color="#800000"><span lang="en">
              »</span> </font>
            
 <font face="Verdana" color="#800000" style="font-size: 9pt"><% Response.Write rst("soru") %>
              <br>
&nbsp;</font></b></td>
            </tr>
            <tr>
              <td width="100%">
              <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber10">
            
                <tr>
                <td width="38%" bgcolor="#F3F3F3" 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">
                <font face="Verdana" size="2">&nbsp;<% Response.Write rst2("sec")%></font></td>
                <td width="48%" bgcolor="#F3F3F3" 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" valign="bottom">
                <font face="Verdana" size="2">&nbsp;</font><img border="0" src="../../IMAGES/OGR/anket/drc.jpg" height="13" width=<%Response.Write drc1+30%>></td>
                <td width="102%" bgcolor="#F3F3F3" 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">
                <font face="Verdana" size="1"><%Response.Write "% " & drc1 & " |"%></font></td>
                <td width="110%" bgcolor="#F3F3F3" 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">
                <font face="Verdana" size="1">&nbsp;<%Response.Write rst("v1")%></font></td>

                  <td width="50%">&nbsp;</td>
                </tr>
                <% rst2.movenext 
                   %>
                <tr>
                <td width="38%" bgcolor="#F8F8F8" 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">
                <font face="Verdana" size="2">&nbsp;3. Olur</font></td>
                <td width="48%" bgcolor="#F8F8F8" 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" valign="bottom">
                <font face="Verdana" size="2">&nbsp;</font><img border="0" src="../../IMAGES/OGR/anket/drc.jpg" height="13" width=<%Response.Write drc2+30%>></td>
                <td width="102%" bgcolor="#F8F8F8" 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">
                <font face="Verdana" size="1"><%Response.Write "% " & drc2 & " |"%></font></td>
                <td width="110%" bgcolor="#F8F8F8" 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">
                <font face="Verdana" size="1">&nbsp;<%Response.Write rst("v2")%></font></td>

                  <td width="50%">&nbsp;</td>
                </tr>
                 <% rst2.movenext 
                   %>
                <tr>
                <td width="38%" bgcolor="#F3F3F3" 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">
                <font face="Verdana" size="2">&nbsp;Elenir</font></td>
                <td width="48%" bgcolor="#F3F3F3" 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" valign="bottom">
                <font face="Verdana" size="2">&nbsp;<img border="0" src="../../IMAGES/OGR/anket/drc.jpg" height="13" width=<%Response.Write drc3+30%>></font></td>
                <td width="102%" bgcolor="#F3F3F3" 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">
                <font face="Verdana" size="1"><%Response.Write "% " & drc3 & " |"%></font></td>
                <td width="110%" bgcolor="#F8F8F8" 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">
                <font face="Verdana" size="1">&nbsp;<%Response.Write rst("v3")%></font></td>

                  <td width="50%">&nbsp;</td>
                </tr>
                 <% rst2.movenext 
                   %>
                <tr>
                <td width="38%" bgcolor="#F8F8F8" 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">
                <font face="Verdana" size="2">&nbsp;Final Oynar</font></td>
                <td width="48%" bgcolor="#F8F8F8" 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" valign="bottom">
                <font face="Verdana" size="2">&nbsp;<img border="0" src="../../IMAGES/OGR/anket/drc.jpg" height="13" width=<%Response.Write drc4+30%>></font></td>
                <td width="102%" bgcolor="#F8F8F8" 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">
                <font face="Verdana" size="1"><%Response.Write "% " & drc4 & " |"%></font></td>
                <td width="110%" bgcolor="#F8F8F8" 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">
                <font face="Verdana" size="1">&nbsp;<%Response.Write rst("v4")%></font></td>

                  <td width="50%">&nbsp;</td>
                </tr>
            
              </table>
              </td>
            </tr>
            <tr>
              <td width="100%">&nbsp;</td>
            </tr>
          </table>
          <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber6">
            <tr>
              <td width="10%" align="center"><font face="Verdana" size="1">
              Toplam Oy: <%Response.Write toplam%></font></td>
            </tr>
            <tr>
              <td width="400%">
              <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber8" height="36">
                <tr>
                  <td width="94%" align="center" height="10">
                  </td>
                  <td width="6%" height="10">
              <a href="javascript:window.close()">
              <img border="0" src="../../IMAGES/OGR/profil/close.gif"></a></td>
                </tr>
              </table>
              </td>
            </tr>
          </table>
          </td>
        </tr>
      </table>
	  </td>
	  </tr>
      </table>
      
        </center>
      </div>
      
    
    </td>
  </tr>
</table>

</body>

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