| Navigation |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
<%vt="DRIVER={Microsoft Access Driver (*.mdb )}; DBQ=" & server.mappath("db/haber.mdb" )
set conn = Server.CreateObject("adodb.connection" )
set rs = Server.CreateObject("adodb.recordset" )%><br>
<%conn.open vt
rssql = "Select * from haberler where haber order by id DESC"
rs.open rssql, conn, 1, 3
If rs.eof or rs.bof then
Response.Write "<font face=verdana size=2 color=#ff3300><b><center><br>Kayıtlı haber yok.</br></center></b></font>"
Response.end
end if
sayfa = Request.QueryString("sayfa" )
If sayfa="" Then sayfa=1
rs.pagesize = 2 her sayfadaki veri sayısı
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%><br>
<%=rs("haber_adi" )%><br>
<%rs.movenext
Next%><br>
<br>
Toplam kayıt: <%=rs.recordcount%>
-
<% sayfa numaraları ve link
response.Write "Sayfa: "
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then bulunduğumuz sayfaya link yok
response.write g& " " %><% else
response.Write "<a href=?sayfa=" & g & ">" & g & "</a> "
end if
next%>
|
|
|
|
|
|
|
|
|
| |
Bugün 28 ziyaretçi (34 klik) buradaydı |
|
|
|
|
|
|
|
