<%
function veri(bahacan)
bahacan=replace(bahacan, " " , " " )
veri=bahacan
end function
Set Haber = Server.CreateObject("ADODB.Recordset")
sor = "Select * from duyuru Order BY did desc"
Haber.Open sor,db,1,3%>
<%
if Haber.recordcount = 0 then%>
<%else
%><%sayfalama=1
sayfa = Request.QueryString("sayfa")
if sayfa = "" then
sayfa = 1
end if
%>
<%
Haber.pagesize = sayfalama
Haber.absolutepage = sayfa
sayfala = Haber.pagecount
for i=1 to Haber.pagesize
if Haber.eof then exit for
%>
EKLEYEN :
<%=Haber("Dekleyen")%>
TARIH :
<%=Haber("Dtarih")%>
<%Haber.movenext%>
<% next
%>
SAYFALAR :
<%
Aralik = 2
intSayfaAltSiniri = sayfa - Aralik
intSayfaUstSiniri = sayfa + Aralik
intSolGrupSayisi = 1 + Aralik
intSagAltSinir = sayfala - Aralik
%>
<%
If (intSayfaUstSiniri >sayfala) Then
intSayfaAltSiniri = sayfala - (2 * Aralik)
intSayfaUstSiniri = sayfala
End If
%>
<%
If (intSayfaAltSiniri <= 0) Then
intSayfaAltSiniri = 1
intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik)
If intSayfaUstSiniri >= sayfala Then intSayfaUstSiniri = sayfala
End If
%>
<%
If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1
If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1
%>
<%
If sayfa >1 Then %>
[««][«]<%
End If
%>
<%
For i = 1 to intSolGrupSayisi
If CInt(i) = (sayfa) Then
Response.Write " "
Else %>
<%
End If
Response.Write i &" "
Next
%>
<%
If (intSayfaAltSiniri - intSolGrupSayisi >1 ) Then Response.Write ". . ."
%>
<%
For i = intSayfaAltSiniri to intSayfaUstSiniri
If CInt(i) = CInt(sayfa) Then
Response.Write " "
Else %>
<%
End If
Response.Write i &" "
Next
%>
<%
If (intSagAltSinir - intSayfaUstSiniri >1) Then Response.Write ". . ."
%>
<%
For i = intSagAltSinir to sayfala
If CInt(i) = CInt(sayfa) Then
Response.Write " "
Else %>
<%
End If
Response.Write i &" "
Next
%>
<%
If CInt(sayfa) <>CInt(sayfala) Then %>
[»][»»]<%
End If
%>
Toplam : <%=Haber.recordcount%> <%end if%>