<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri_tabani.mdb")
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM mesajlar WHERE durum='Aktif' order by id desc"
rs.Open Sorgu,Baglanti,1,3
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
%>
<%
If rs.eof then
Response.Write "Su anda veri tabaninda aktif mesaj bulunmamaktadir..."
else
%>
<% rs.pagesize = 10 '1 Sayfada Gösterilecek Mesaj Sayısı
rs.absolutepage = shf
sayfa = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then exit for
%>
|
<%=rs("isim")%>
( <%=rs("tarih")%> - <%=rs("saat")%> ) |
| <%=rs("mesaj")%> |
<%rs.movenext%> <% next %>
|
Sayfa:
<%
for y=1 to sayfa
if shf=y then
response.write y
else
response.write " "&y&""
end if
next
%>
|
<%end if%>
|