<%
if session("aktif_uyemiz") <> "" then
%>
<html>
<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>SMYO FORUM</title>
<style fprolloverstyle>A:hover {color: #C0C0C0}
</style>
  <%
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 msj=CreateObject("Adodb.Recordset")
msj.open "Select * from mesajlar",conn,3,3
Set kon=CreateObject("Adodb.Recordset")
kon.open "Select * from konular where id="&request("c_id")&" and bas_id="&request("b_id")&"",conn,3,3
%>

</head>

<body topmargin="0" leftmargin="0" link="#3A3A3A" vlink="#3A3A3A" alink="#3A3A3A">
<!-- #include file="ust.asp" -->
<% Response.buffer=true %> 
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="779" id="AutoNumber1">
    <tr>
      <td width="100%">
      <p align="center"><br>
      <br>
      <b><font face="Verdana" size="2">Hata !..<br>
      <br>
&nbsp;




<%
if request("mesaj") <> "" then

kon("cevap")=kon("cevap")+1
kon.update
msj.addnew
msj("konu_id")=request("c_id")
msj("gonderen")=session("aktif_uyemiz")
msj("mesaj")=request("mesaj")
msj("zaman")=Now
msj.update
Response.Write "Kaydedildi"
Response.Redirect "mesajlar.asp?Id="&request("c_id")&"&b_id="&request("b_id")&""
else
response.write "Mesajınız giriniz."
end if

%>





</font></b></p>
      <p align="center"><br>

      </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"><font face="verdana" color="black" size="1"><b>
              <a href="http://burak/theforum/yeni_konu.asp?fid=7&cid=1">
              <img src="../../IMAGES/OGR/PROFIL/OKSOL.gif" align="right" border="0"></a></b></font></td>
              <td width="91%">&nbsp;<font face="Verdana" size="2"><a style="text-decoration: none" href="javascript:history.back()">Geri 
              Dön</a></font></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/forum.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 style="text-decoration: none" title=":: Forum Sayfası ::" href="default.asp">Forum Sayfası</a></font></td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
  </center>

&nbsp;</p>


<p align="center"><span lang="en">©</span> <font face="Verdana" size="2">SMYO 
Forum</font><font face="Times New Roman" size="7"><br>
<sup>…</sup></font></p>


</body>

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