
<%
if session("aktif_uyemiz") <> "" then
%>
<html>
<%
Dim dbyolu,disn,j
dbyolu = Server.MapPath("../db/vt.mdb")
disn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbyolu
Set conn=CreateObject("Adodb.Connection")
conn.open (disn)
Set ilan=CreateObject("Adodb.Recordset")
ilan.open "Select * from pano order by id",conn,3,3
%>
<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>by Burak UÇAKAN</title>
<base target="_self">
<STYLE TYPE="TEXT/CSS">
<!--
a {  text-decoration: none}
a:hover {  text-decoration: underline}
-->
</STYLE>
<script language="javascript"> 
function ilanver() 	{ 	open ("ilanpano/ilanver.asp","","height=350,width=480,scrollbars=no,resizable=no,status=no,menubar=no,toolbar=no,location=no") 	} 
</script>
<script  language="JavaScript">
function openWin(theURL,winName,features) {
  	window.open(theURL,winName,features);
}
// -->
</script>
</head>

<body leftmargin="0" topmargin="0">

<table border="0" cellpadding="0" cellspacing="0" style="border-style:dashed; border-width:1; border-collapse: collapse" bordercolor="#111111" width="770" id="AutoNumber2" bgcolor="#F9F9F9">
  <tr>
                <td width="809" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom-style: dashed; border-bottom-width: 1" bgcolor="#FFFFFF">
                <font face="Verdana" size="2">&nbsp;<img border="0" src="../IMAGES/OGR/ilanpano.jpg"></font></td>
              </tr>
  <tr>
    <td width="809"><br>
&nbsp;</td>
  </tr>
  <tr>
    <td width="809">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="755" id="AutoNumber3">
      <tr>
        <td width="18">&nbsp;</td>
        <td width="737">
        <font face="Verdana">
        <table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#DADADA" width="100%" id="AutoNumber4" height="13">
          <tr>
            <td width="24%" bgcolor="#F3F3F3" height="28">
            <p align="center"><b><font color="#800000" size="2">Gönderen</font></b></td>
            <td width="61%" bgcolor="#F3F3F3" height="28">
            <p align="center"><font color="#800000" size="2"><b>Mesaj</b></font></td>
            <td width="15%" bgcolor="#F3F3F3" height="28">
            <p align="center"><font color="#800000" size="2"><b>Tarih</b></font></td>
          </tr>
          
          
          
          </font>

       
        <font face="Arial">
          
          
          
          <% 
          id=request("Id")
           
           		ilan.movefirst
          		d=ilan("saat")
          		ilan.movelast
          	 
          if id>1 then 
		  for i=1 to (id-1)*8
		  ilan.moveprevious
		  next
		  end if
          
          for i=1 to 8 
          	if d=ilan("saat") then
          		i=8
          	end if  
          %>
          
          
          
          
          <tr>
            <td width="24%" bgcolor="#FFFFFF" height="18">
            <table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#F5F5F5" width="100%" id="AutoNumber5" cellpadding="2">
              <tr>
                <td width="100%"><font face="verdana" color="#800000" size="2">
                <a style='text-decoration: none' href=JavaScript:openWin('arabul.asp?sec=num&edit=<%=ilan("num")%>','profil','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=no,width=460,height=165')><% Response.Write ilan("num")%></a></font>&nbsp;</td>
              </tr>
 </font>
        
              <tr>
                <td width="100%"><font face="Verdana" size="2"><%Response.Write ilan("bolum")%>&nbsp;&nbsp;<% Response.Write ilan("sinif")%>.sınıf&nbsp;&nbsp;<%Response.Write ilan("ogretim")%>.öğretim </font></td>
              </tr>
              <tr>
                <td width="100%"><font face="Verdana" size="2"><%Response.Write ilan("adi")& " " &ilan("soyadi")%></font>&nbsp;</td>
              </tr>
            </table>
            </td>

        <font face="Arial">
            <td width="61%" bgcolor="#FFFFFF" height="18">
            <p align="center"><font face="Verdana" size="2">
          <% a=replace(ilan("mesaj"), vbCrLf, "<br>") 
          Response.Write a  %></font></td>
            <td width="15%" bgcolor="#FFFFFF" height="18">
            <table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#F5F5F5" width="100%" id="AutoNumber6" cellpadding="2" height="61">
              <tr>

                <td width="100%" align="center" height="33"><font face="Verdana" size="2"><% Response.Write ilan("tarih")%></font></td>
              </tr>
              <tr>
 
                <td width="100%" align="center" height="33"><font face="Verdana" size="2"><% Response.Write ilan("saat")%> </font></td>
              </tr>
            </table>
            </td>
          </tr>
          
          
          <% ilan.moveprevious 
          next %>
          
          
          
          <tr>
            <td width="100%" bgcolor="#FBFBFB" height="1" colspan="3">&nbsp;</td>
          </tr>
        </table>
<br>
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7">
          <tr>
            <td width="27%">
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="105%" id="AutoNumber8" height="23">
              <tr>
                <td width="3%" align="center" height="23">
                &nbsp;</td>
                <td width="4%" align="center" height="23">
                <img border="0" src="../IMAGES/OGR/ilanver.GIF" width="16" height="16"></td>
                
      
                <td width="57%" align="center" height="23">
                <p align="left">  <font face="Verdana" size="2">
                <a href="javascript:ilanver()">İlan ver</a></font></td>
                

                <td width="3%" height="23">
                <p align="center">
                <img border="0" src="../IMAGES/OGR/profil/oksol.gif" width="16" height="16"></td>
                <td width="11%" height="23"><font face="Verdana" size="2">
                <a href="javascript:history.back()" >
                Geri Dön</a></font></td>
                <td width="3%" align="center" height="23">

        <font face="Arial">
                <img border="0" src="../IMAGES/OGR/homepage.gif" width="14" height="14"></td>
                <td width="31%" height="23">

        <font face="Arial">
                <font face="Verdana" size="2">
                <a target="_top" href="DEFAULT.ASP">Ana Sayfa</a></font></td>
              </tr>
            </table>
            </td>
          </tr>
          </font></font>

       
          <tr>
            <td width="27%">
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber9">

              <tr>
                <td width="21%">&nbsp;</td>
                <td align="center" width="43%">
                
                <font face="Verdana" size="2">
                <% sr=ilan.recordcount/8 
                if i>1 then

sayi= (ilan.recordcount/8)
Deger = Round(sayi)

if Deger < sayi then 
deger=deger+1
else
deger=round(sayi)
end if
                for j=1 to deger
                Response.Write "<a href=ilanpano.asp?Id="&j&">" & j & "</a><font color=red> | </font>"
                next
                end if
                %>
                <br>
                <br>Toplam İlan: <% Response.Write ilan.recordcount%>
                </font></td>
                <td width="36%">&nbsp;</td>
              </tr>
            </table>
            </td>
          </tr>
        </table>
        


        <br>       
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<br>
<% if request("id")<>1 then %>
<!-- #include file="../alt.html" -->
<% end if %>

</body>

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