<%
if session("aktif_uyemiz") <> "" then
%>
<html>
<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>SMYO FORUM</title>
<style fprolloverstyle>A:hover {color: #C0C0C0}
</style>

</head>

<body topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000">
<!-- #include file="ust.asp" -->
<% Response.buffer=true %>
<%d=request("Id")%>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="674" id="AutoNumber1" height="334">
    <tr>
                          <td width="674" height="1">
                      </td>
                        </tr>
    <tr>
            <td width="674" align="center" height="19">&nbsp;</td>
            </tr>
    <tr>
            <td width="674" align="center" height="38"><br>
&nbsp;</td>
            </tr>
    <tr>
                <td width="674" height="29">
                <table border="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber13" height="29">
                  <tr>
                <td width="6%" bgcolor="#FFFFFF" style="border-top-style: dashed; border-top-width: 1; border-bottom-style: dashed; border-bottom-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="25">
                <p align="center">
              <img border="0" src="../../IMAGES/forum/mesajgonder.gif"></td>
                <td width="94%" style="border-top-style: dashed; border-top-width: 1; border-bottom-style: dashed; border-bottom-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="25"><b>
                <font face="Verdana" color="#800000" size="2">ÖZEL MESAJ GÖNDER</font></b></td>
                  </tr>
                </table>
                </td>
              </tr>
    <tr>
      <td width="674" align="center" height="248" valign="top">

&nbsp;<table border="0" cellpadding="0" cellspacing="0" style="border-style:solid; border-width:1; border-collapse: collapse" bordercolor="#808080" width="100%" id="AutoNumber2" bgcolor="#F9F9F9" height="1">
  <tr>
    <td width="796" height="1">
    
    <p align="center"><b><font face="Verdana" size="2"><br>
    <br>
&nbsp;</font></b></p>
    <p align="center"><b><font face="Verdana" size="2"><br>
       <%
if request("kime")<>"" then
if request("konu")<>"" then
if request("mesaj")<>"" then
Dim forumdb,forumdsn
forumdb = Server.MapPath("../../db/forum.mdb")
forumdsn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & forumdb
Set conn=CreateObject("Adodb.Connection")
conn.open (forumdsn)
Set rst=CreateObject("Adodb.Recordset")
rst.open "Select * from ozelmsj",conn,3,3
rst.addnew
rst("num")=request("kime")
rst("gonderen")=session("aktif_uyemiz")
rst("konu")=request("konu")
rst("ozelmesaj")=request("mesaj")
rst("zaman")=Now
rst.update
Response.Write "Mesajınız başarıyla gönderildi..."
else
Response.Write "Lütfen mesajınızı giriniz..."
end if
else
Response.Write "Lütfen bir konu giriniz..."
end if
else
Response.Write "Lüfen Mesaj göndereceğiniz kişinin numarasını giriniz..."
end if
%>
    
    <br>
    <br>
    <br>
    <br>
    <br>
&nbsp;</font></b></td>
  </tr>
  </table>


      </td>
    </tr>
  </table>
  </center>
</div>  <center>


  <br>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="779" id="AutoNumber4">
    <tr>
      <td width="100%">
      <table border="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
        <tr>
          <td width="45%" 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">
          <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="78%" id="AutoNumber6">
            <tr>
              <td width="9%">
              <p align="center"></td>
              <td width="91%">&nbsp;</td>
            </tr>
          </table>
          </td>
          <td width="27%" 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">
          <p align="center">
              <img border="0" src="../../IMAGES/OGR/PROFIL/OKSOL.gif" align="right"></td>
          <td width="12%" 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;<a href="javascript:history.back()" style="text-decoration: none">Geri 
          Dön</a></font></td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
  </center>

&nbsp;</p>


<p align="center"><span lang="en">©</span> <font face="Verdana" size="2">ATATÜRK 
İLKÖĞRETİM 
Forum</font><font face="Times New Roman" size="7"><br>
<sup>…</sup></font></p>


<p align="center">&nbsp;</p>


<p align="center">&nbsp;</p>


</body>

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