<html>

    <%Dim forumdb,forumdsn
forumdb = Server.MapPath("../db/vt.mdb")
forumdsn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & forumdb
Set conn=CreateObject("Adodb.Connection")
conn.open (forumdsn)%>
<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>PROFİL</title>
<STYLE TYPE="TEXT/CSS">
<!--
a {  text-decoration: none}
a:hover { color: #808080 } { text-decoration: underline}
-->
{  }
{  }
{  }
{  }
{  }
{  }
{  }
{  }
{  }
{  }
</STYLE>

<SCRIPT LANGUAGE="JavaScript">
function Yazdir() {
if (window.print) {
kabul = confirm('Yazıcıya göndermek istiyor musunuz?');
if (kabul) window.print(); 
   }
}
</script>
</head>

<body leftmargin="0" topmargin="0" link="#800000" vlink="#800000" alink="#800000">

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="779" id="AutoNumber2" height="110">
    <tr>
      <td width="100%" style="border-left-width: 1; border-right-width: 1;border-bottom-width: 1" height="19" >&nbsp;
      </td>
    </tr>
    

    <%
d=request("sec")
Set rst=CreateObject("Adodb.Recordset")
rst.open "Select num, rg, adi, soyadi, bolum, sinif, ogretim, dogum, yer, mail, aktif from uyelik where " & d & " LIKE '" & request("edit") & "%'order by num",conn,3,3
%>
    
    
    
    
    <% if rst.recordcount > 0 then
    for i=1 to rst.recordcount 
    %>
    
    
    <tr><td height="71">
    
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="107%" id="AutoNumber3" height="1">
  <tr>
    <td width="5%" height="1"></td>
    <td width="16%" height="1">
    <table border="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="84">
      <tr>
        <td width="100%" align="center" height="46" style="border-left-width: 1; border-right-style: dashed; border-right-width: 1; border-top-width: 1; border-bottom-width: 1">

                <% if rst("rg")="E" then
                Response.Write "<img border=1 src=../images/ogr/uyeler/" & rst("num") & ".jpg>" 
                else
                Response.Write "<font face=Verdana size=2>" & "İzin Yok" & "</font>"
                end If
                %></td>
      </tr>
      </table>
    </td>
    <td width="2%" height="1"></td>
    <td width="37%" height="1">
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="311" id="AutoNumber1" height="10">
    <tr>
              
              <td width="311" height="19" bgcolor="#FFFFFF">
                <font face="Verdana" size="1">&nbsp;<font color="#800000">Numara 
                :</font><b> </b>
                </font>&nbsp;<font face="Verdana" size="1"><% Response.Write rst("num")%></font></td>
              
            </tr>
    <tr>
              
              <td width="311" height="19" bgcolor="#FFFFFF">
                <font face="Verdana" size="1">&nbsp;<font color="#800000">İsim :</font> 
                <%Response.Write rst("adi")%></font>
                <font face="Verdana" size="1"><%Response.Write rst("soyadi")%></font></td>
              

              </tr>
    <tr>
              
              <td height="19" bgcolor="#FFFFFF" width="311">
                <font face="Verdana" size="1">&nbsp;<font color="#800000">Sınıf :</font> 
                <%Response.Write rst("bolum")%> &nbsp;</font></td>
              
            </tr>
    <tr>
              
              <td width="311" height="19" bgcolor="#FFFFFF">
                <font face="Verdana" size="1">&nbsp;<font color="#800000">Doğum 
                Tarihi :</font> <%Response.Write rst("dogum")%></font>
              </td>
              
            </tr>
    <tr>
              
              <td width="311" height="19" bgcolor="#FFFFFF">
                <font face="Verdana" size="1">&nbsp;<font color="#800000">Yaşadığı 
                Yer :</font> <%Response.Write rst("yer")%></font>
              </td>
              
            </tr>
    <tr>
              
              <td width="311" height="1" bgcolor="#FFFFFF">
                <font face="Verdana" size="1">&nbsp;<font color="#800000">Mail :</font>
                <a href="mailto:<%Response.Write rst("mail")%>"><font color="#000000"><%Response.Write rst("mail")%></font></a></font><u>
                </u>
              </td>
              
            </tr>



  </table>
    </td>
    <td width="22%" height="1">
    <table border="0" cellpadding="3" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
      <tr>
        <td width="100%"><font face="Verdana" size="1">&nbsp;<font color="#800000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                </font></font></td>
      </tr>
      <tr>
        <td width="100%">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7">
          <tr>
            <td width="23%">&nbsp;</td>
            <td width="77%">&nbsp;</td>
          </tr>
          <tr>
            <td width="23%" align="center">
            <% if session("aktif_uyemiz")<>rst("num") then %>
            <p align="center">
            <img src="../IMAGES/forum/mesajgonder.gif" border="0"></td>
            <td width="77%"><font face="Verdana" color="#800000" size="2">
            <a style="text-decoration: none" href="forum\yenimesaj.asp?kime=<%=rst("num")%>">Özel Mesaj Gönder
            </a> </font>
            <a style="text-decoration: none" href="forum\yenimesaj.asp?kime=<%=rst("num")%>">
            <% end if %> </a>
            </td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
    <td width="45%" height="1"></td>
  </tr>
<tr><td>&nbsp;</td></tr>
</table>


    </td></tr>

    <% rst.movenext
    next
    End If
    %>
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    <tr>
      <td height="20"><br>

<p>&nbsp;</td></tr>
    <tr>
      <td style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom-style: dashed; border-bottom-width: 1" height="20">
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
        <tr>
          <td width="33%"><span lang="en"><font face="Times New Roman">«</font></span>
          <font face="Verdana" size="1">
          <a style="text-decoration: none" href="sub.asp?git=arama">Arama Sayfası</a></font></td>
          <td width="33%">
          <p align="center"><font face="Verdana" size="1">...<font color="#800000"> 
          <%Response.Write rst.recordcount%></font> Kayıt bulundu ...</font></td>
          <td width="34%">
          <p align="right"><font face="Verdana" size="1"># 
          <a style="text-decoration: none" href="javascript:Yazdir()">Yazdır</a></font></td>
        </tr>
      </table>
      </td></tr>
  </table>
  </center>
</div>
  </body>

</html>