|
|
<%
set halkpel_haber = Server.CreateObject("Adodb.Recordset")
sorgu = "Select * from defter WHERE aktif= 0 "
halkpel_haber.open sorgu,bag,1,3
If halkpel_haber.eof or halkpel_haber.bof then
Response.Write "
Şu Anda Kayıtlı Mesaj Yok."
Response.end
end if
tane = halkpel_haber.recordcount
sayfa = Request.QueryString("sayfa")
if sayfa="" then
sayfa=1
end if %>
<% halkpel_haber.pagesize = 10
halkpel_haber.absolutepage = sayfa
sayfax = halkpel_haber.pagecount
for i=1 to halkpel_haber.pagesize
if halkpel_haber.eof then exit for
%>
|
Sayfa : <%
for adet=1 to sayfax
if sayfa=adet then
response.write adet
else
response.write " "&adet&""
end if
next
%>
Toplam <%=tane%>
mesaj
|
|
|
