<% Response.Expires=0 %>
<%
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>
</head>

<body topmargin="0" leftmargin="0" link="#2E2E2E" vlink="#2E2E2E" alink="#2E2E2E">
<!-- #include file="ust.asp" -->
<% Response.buffer=true %>
<div align="center">
  <center>
  
  <%
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 kat=CreateObject("Adodb.Recordset")
Set bas=CreateObject("Adodb.Recordset")
Set konusay=CreateObject("Adodb.Recordset")
Set mesajsay=CreateObject("Adodb.Recordset")
%>

  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="779" id="AutoNumber1">
    <tr>
      <td width="100%"><br>
&nbsp;<div align="left">
        <table border="1" cellpadding="4" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber2" cellspacing="0" height="252">
          <tr>
            <td width="51%" colspan="2" height="16"><font size="2">&nbsp;</font><b><font face="Verdana" size="2" color="#800000">FORUMLAR</font></b></td>
            <td width="13%" align="center" height="16"><b>
            <font face="Verdana" size="1" color="#800000">KONULAR</font></b></td>
            <td width="12%" align="center" height="16"><b>
            <font face="Verdana" size="1" color="#800000">MESAJLAR</font></b></td>
            <td width="105%" align="center" height="16"><b>
            <font face="Verdana" size="1" color="#800000">SON EKLENEN KONU</font></b></td>
          </tr>
          <%
          kat.open "Select * from kategoriler",conn,3,3
          for j=1 to kat.recordcount
          %>
          <tr>
            <td width="181%" bgcolor="#F5F5F5" align="center" colspan="5" height="16" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
              <tr>
                <td width="5%">
                <p align="center">
                <img src="../../IMAGES/forum/f_baslik.gif" align="right" border="0"></td>
                <td width="95%">&nbsp;<span style="letter-spacing: 5"><b><font face="Tahoma" color="#FF8040" size="2"> 
                <%=kat("kategori")%></font></b></span></td>
              </tr>
            </table>
  
        </td>
          </tr>
<%
bas.open "Select * from basliklar where kat_id="&kat("id")&"",conn,3,3 
for i=1 to bas.recordcount
%>
          <tr>
            <td width="5%" bgcolor="#EEEEEE" align="center" height="16">
            <img alt="Konu" src="../../IMAGES/forum/f_adi.gif" Açık></td>
            <td width="46%" bgcolor="#FBFBFB" height="16"><b>
            <font face="Verdana" size="2" color="#585858">
            <% Response.Write "<a href=konular.asp?Id="&bas("id")&" style='text-decoration: none'>" & bas("baslik") & "</a>" %>
            </font></b></td>
            <td width="13%" align="center" bgcolor="#FBFBFB" height="16">
            <font face="Verdana" size="2"><% 
            konusay.open "Select * from konular where bas_id="&bas("id")&"",conn,3,3%>
            <%Response.Write konusay.recordcount 
            %></font></td>
            <td width="12%" align="center" bgcolor="#FBFBFB" height="16">
            <font face="Verdana" size="2"><% 
            mesajsay.open "Select * from konular,mesajlar where konular.bas_id="&bas("id")&" and konular.id=mesajlar.konu_id ",conn,3,3%>
            <%Response.Write mesajsay.recordcount 
            mesajsay.close%></font></td>
            <td width="105%" align="center" bgcolor="#FBFBFB" height="16">
            <font face="Verdana" size="1"><%
            if konusay.recordcount>0 then
            konusay.movelast %>
            <a style='text-decoration: none' href=mesajlar.asp?Id=<%=konusay("id")%>&b_id=<%=konusay("bas_id")%>>
            <%Response.Write left(konusay("konu"),25) &"..." & "</a>"
            else
            Response.Write "Hiç Konu Yok!.."
            end if
            konusay.close%></font></td>
          </tr>      
<%
bas.movenext
next
bas.close
kat.movenext
next
%>
       
            
            
          
          
          
          
         
          
          </table>
      </div>
      </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="101%" id="AutoNumber5">
        <tr>
          <td width="62%" 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">&nbsp;</td>
          <td width="4%" 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/forum/kural.GIF"></td>
          <td width="18%" 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">Forum Kuralları</font></td>
          <td width="3%" 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/forum/yardim.GIF"></td>
          <td width="15%" 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">Yardım</font></td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
  </center>

<BR>


<p align="center"><font face="Verdana" size="1">&nbsp;&nbsp;</font><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
%>