
<%
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 num,adi,soyadi,bolum,sinif,ogretim,mail from uyelik where num='" & session("aktif_uyemiz") & "'",conn,3,3
Set rst2=CreateObject("Adodb.Recordset")
rst2.open "Select num,adi,soyadi,bolum,sinif,ogretim,mesaj,tarih,saat from pano",conn,3,3
rst2.addnew
rst2("num")=rst("num")
rst2("adi")=rst("adi")
rst2("soyadi")=rst("soyadi")
rst2("bolum")=rst("bolum")
rst2("sinif")=rst("sinif")
rst2("ogretim")=rst("ogretim")
rst2("mesaj")=request("mesaj")
rst2("tarih")=date
rst2("saat")=time
rst2.update


%>
<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>İLAN VER</title>
<base target="_self">
<STYLE TYPE="TEXT/CSS">
<!--
a {  text-decoration: none}
a:hover {  text-decoration: underline}
-->
</STYLE>
</head>

<body leftmargin="10" topmargin="0" link="#000000" vlink="#727272" bgcolor="#F0F0F0">
<br>
<table border="0" cellpadding="0" cellspacing="0" style="border-style:dashed; border-width:1; border-collapse: collapse" bordercolor="#111111" width="1" id="AutoNumber2" bgcolor="#F9F9F9">
  <tr>
    <td width="796">

      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="456" id="AutoNumber11">
        <tr>
        <td width="454">

        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber12">
          <tr>
            <td width="100%">
            <p align="center"><br>
&nbsp;</p>
            <p align="center"><font face="Verdana" size="2">İlanınız panoya 
            eklenmiştir !..</font></p>
            <p align="center">&nbsp;</td>
          </tr>
        </table>

        <font face="Arial">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7">
          <tr>
            <td width="27%">
            &nbsp;</td>
          </tr>

       
          </table>
        

        </td>
        </tr>
      </table>
 
    </td>
  </tr>
  </table>

<p>&nbsp;</p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="58%" id="AutoNumber13">
  <tr>
    <td width="100%">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="480" id="AutoNumber14">
      <tr>

        <font face="Arial">
                

                <td width="62%" align="center" height="23">

        &nbsp;</td>
                <td width="6%" align="center" height="23">

        <font face="Arial">
                <img border="0" src="../../IMAGES/OGR/profil/close.gif" width="16" height="16"></td>

       
        
                

                <td width="35%" height="23">

        <a href="javascript:window.close()"><font face="Verdana" size="2">Pencereyi Kapat</font></a></td>
                </font>

       
        
                

                </tr>
    </table>
    </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
%>