<%
Set serdar = Server.CreateObject("ADODB.Connection")
serdar.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani dosyasi")
'*********************************************
Syf = Request.Querystring("Syf")
if Syf="" then Syf="1" end if
'**********************************************
Set rsbbs=Server.CreateObject("ADODB.RecordSet")
rsbbs.open "Select * from haber ORDER BY id desc",serdar,3,1
if rsbbs.RecordCount>0 then
rsbbs.SyfSize=10
rsbbs.AbsoluteSyf=Syf
end if
%>
<table border="1" width="555" id="table1" cellpadding="2" bordercolor="#FFFFFF" bgcolor="#C0C0C0">
<tr>
<td width="6%" bgcolor="#FFFFFF" background="m1.gif">
<p align="center">
<img border="0" src="ok_00.png" width="5" height="9"></td>
<td width="92%" background="m1.gif">
<font face="Tahoma" style="font-weight: 700" size="2"> </font><font color="#FFFFFF"><font face="Arial Narrow" style="font-weight: 700" size="2">Amasra
</font><span style="font-weight: 700">
<font face="Arial Narrow" size="2">Haber & Duyuruları</font></span></font></td>
</tr>
</table>
<table border="0" cellspacing="0" width="555" bgcolor="#000000" height="15">
<% rowCount=0 %>
<% while not rsbbs.EOF AND rowCount<rsbbs.SyfSize %>
<% rowCount=rowCount+1 %>
<tr>
<td width="100%" bgcolor="#F8F8F8">
<table width="100%" border="0" cellpadding="2" cellspacing="0" height="76" background="blank.gif">
<tr>
<td height="56">
<div align="center">
<table width="100%" border="0" cellpadding="2">
<tr >
<td width="10%" rowspan="2">
<font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<b>
<img src="haber/<%=rsbbs("resim")%>" width=80 height=80 border="1"></b></font></td>
<td width="90%" colspan="2" >
<p>
<b>
<font color="#FF3300" size="2" face="Courier New">
<img border="0" src="devami.jpg" width="12" height="10">
<a target="_blank" title="<% =left(rsbbs("baslik"),75) %> Haberin Devamı için Tıklayınız." href="haberdetay.asp?id=<%=rsbbs("id")%>&title=<%= rsbbs("baslik")%>">
<font color="#FF3300">
<%=left(rsbbs("baslik"),75)
%></font></a></font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
</font>
</b></p></td>
</tr>
<tr>
<td width="90%" height="16" colspan="2" valign="top" >
<font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%=left(rsbbs("kisahaber"),250)%>..</font></td>
</tr>
<tr>
<td width="10%">
<p align="left"><b>
<font color="#FF6600" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%=left(rsbbs("tarih"),250)%></font></b></td>
<td width="46%" height="29" align="left" >
<font color="#808080" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<img border="0" src="manset-ok.gif" width="8" height="9">
Bu Haber</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
</font>
<font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%=left(rsbbs("hit"),100)%></font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
</font>
<font color="#808080" size="1" face="Verdana, Arial, Helvetica, sans-serif">
kez okunmuştur.</font></td>
<td width="43%" height="29" align="right" >
<a target="_blank" title="<% =left(rsbbs("baslik"),75) %> Haberin Devamı için Tıklayınız." href="haberdetay.asp?id=<%=rsbbs("id")%>&title=<%= rsbbs("baslik")%>">
<img border="0" src="devam.jpg" width="160" height="30"></a></td>
</tr>
</table></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" background="anket_02.png" height="15"> </td>
</tr>
<% rsbbs.MoveNext %>
<% wend %>
</table></center>
</div>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="555">
<tr>
<td> <p align="left"> <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% if rsbbs.SyfCount>1 then %>
<%
ilkSayfam=Syf-10
if ilkSayfam="0" or ilkSayfam<"0" then ilkSayfam="1" end if
sonSayfam=Syf+10
if rsbbs.SyfCount<sonSayfam then sonSayfam=rsbbs.SyfCount else sonSayfam=sonSayfam end if
%>
<% if Syf-1<>"0" then %>
<td><a href="haberler.asp?Syf=<%=Syf-1%>"><< Geri</a></td>
<td width="6"></td>
<% end if %>
<%for i=ilkSayfam to sonSayfam %>
<%if i<>CINT(Syf) then%>
<a href="haberler.asp?Syf=<%=i%>"><td align="center"><%=i%></td></a>
<%else%>
<td align="center" bgcolor="#f3ede3"><b><%=i%></b></td>
<%end if%>
<%next%>
<% if not int(Syf)=int(rsbbs.SyfCount) then %>
<td width="6"></td>
<td><a href="haberler.asp?Syf=<%=Syf+1%>">İleri >></a></td>
<%end if%>
</font> </td>
</tr>
</table>
</div>