<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 * from duyurular Where id=" & request("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>DUYURULAR</title>
<base target="_self">

<SCRIPT LANGUAGE="JavaScript">
function Yazdir() {
if (window.print) {
kabul = confirm('Yazıcıya göndermek istiyor musunuz?');
if (kabul) window.print(); 
   }
}
</script>
<style fprolloverstyle>A:hover {color: #515151}
</style>
</head>

<body leftmargin="0" topmargin="0" link="#000000" vlink="#000000" alink="#515151">

<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">
      <tr>
        <td width="2%">&nbsp;</td>
        <td width="80%">
        <form method="POST" action="goster.asp">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="213">
          <tr>
            <td width="100%" height="175">
            <table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5" height="175">
              <tr>
                <td width="200%" height="18" valign="top">
                
                <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7">
                  <tr>
                    <td width="200%" colspan="2"><b>
                    <font face="Verdana" size="2" color="#800000">&nbsp;»<span lang="tr"> <% Response.Write rst("konu")%></span></font></b></td>
                  </tr>
                  <tr>
                    <td width="12%">&nbsp;</td>
                    <td width="188%">&nbsp;</td>
                  </tr>
                  <tr>
                    <td width="12%">&nbsp;</td>
                    <td width="188%"><font face="verdana" size="2">
                    <% =replace(rst("icerik"), vbCrLf, "<br>") %>
					</font></td>
                  </tr>
                </table>
                
                </td>
              </tr>
              </table>
            </td>
          </tr>
          <tr>
            <td width="100%" height="19">&nbsp;</td>
          </tr>
          <tr>
            <td width="100%" height="19"> 
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="106%" id="AutoNumber6">
              <tr>
<!-- #include file="../alt.asp" -->
              </tr>
            </table>
            </td>
          </tr>
        </table>
        </form>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>



<p><br>
&nbsp;</p>



</body>

</html>