<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 id, konu from duyurular",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>
</head>

<body topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#585858">
<% Response.Expires=0 %>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="550" id="AutoNumber2">
  <tr>
                <td width="87%" 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;<img border="0" src="../../IMAGES/ortak/duyurular.jpg"></font></td>
              </tr>
  <tr>
    <td width="100%">&nbsp;</td>
  </tr>
  <tr>
    <td width="100%">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
      <% for i=1 to rst.recordcount
		  Response.Write "<tr><td>&nbsp;&nbsp;&nbsp;&nbsp;</td><td><font face=Verdana size=2><span lang=en>" & "»" & "</span>&nbsp;<a href=goster.asp?Id="&rst("id")&">"
		  Response.Write rst("konu")
		  Response.Write "</a></font></td></tr>" 
 		 rst.movenext
 		 next  %>
 		    
    </table> 
    </td>
  </tr>
</table>



</body>

</html>