<%
KayitSayisi = 5
If Request.QueryString("say") <> "" Then
Sayfa = CInt(Request.QueryString("say"))
Else
Sayfa = 1
End If
strSQL = "SELECT * FROM blog where kat="& id &" order by id asc LIMIT " & (KayitSayisi*Sayfa)-(KayitSayisi) & "," & KayitSayisi&""
Set listele = baglanti.Execute(strSQL)
Set SQLTop = baglanti.Execute("SELECT COUNT(id) FROM blog where kat="& id &" ")
TopKayit = SQLTop(0)
i=1
Set kategori = baglanti.execute("select * from kategori where kat="& id &" ")
kategori = kategori("kategori")
if listele.eof then
response.write "Henüz bu kategoriye program eklenmemiş."
end if
Do While Not listele.Eof
adi = listele("baslik")
%>
<a href="/oku/<%=listele("id")%>-<%=cevir(adi)%>"><h1><%=adi%></h1></a>
<%=temiz(left(listele("icerik"),275))%> <br />
<%
i=i+1
listele.MoveNext
Loop
If CInt(TopKayit) > CInt(KayitSayisi) Then
SayfaSayisi = CInt(TopKayit) / CInt(KayitSayisi)
Response.Write "Toplam "&Cint(SayfaSayisi)&" sayfa var "&Cint(Sayfa)&". sayfadasınız."
If NOT Sayfa = "1" then
Response.Write "<a href=?say=1> «</a>"
Response.Write "<a href=?say=" & Sayfa-1 & "> <</a>"
End If
If Sayfa-1 > 99 then
Response.Write "<a href=?say=" & Sayfa-100 & "> " & Sayfa-100 & "</a>"
End If
If Sayfa-1 > 49 then
Response.Write "<a href=?say=" & Sayfa-50 & "> " & Sayfa-50 & "</a>"
End If
If Sayfa-1 > 9 then
Response.Write "<a href=?say=" & Sayfa-10 & "> " & Sayfa-10 & "</a>"
End If
If InStr(1,SayfaSayisi,",",1) > 0 Then SayfaSayisi = CInt(Left(SayfaSayisi,InStr(1,SayfaSayisi,",",1))) + 1
If cint(Sayfa) = 2 then
GeriKac = 1
ElseIf cint(Sayfa) = 3 then
GeriKac = 2
ElseIf cint(Sayfa) = 4 then
GeriKac = 3
Else
GeriKac = 4
End If
If cint(Sayfa) = 1 and Cint(SayfaSayisi) = 4 then
IleriKac = 3
ElseIf cint(Sayfa) = 1 and Cint(SayfaSayisi) = 3 then
IleriKac = 2
ElseIf cint(Sayfa) = 1 and Cint(SayfaSayisi) = 2 then
IleriKac = 1
Else
IleriKac = 4
End If
If Cint(SayfaSayisi)-Sayfa = 1 then
IleriKac2 = 1
ElseIf Cint(SayfaSayisi)-Sayfa = 2 then
IleriKac2 = 2
ElseIf Cint(SayfaSayisi)-Sayfa = 3 then
IleriKac2 = 3
ElseIf Cint(SayfaSayisi)-Sayfa = 0 then
IleriKac2 = 0
Else
IleriKac2 = 4
End If
If cint(Sayfa) = 1 then
for y=1 to IleriKac
if y=cint(Sayfa) then
response.write "<b>"&y&"</b>"
else
response.write "<a href=""?say="&y&"""> "&y&"</a>"
end if
next
ElseIf cint(Sayfa) = SayfaSayisi then
for y=Sayfa-GeriKac to SayfaSayisi
if y=cint(Sayfa) then
response.write "<b> "&y&"</b>"
else
response.write "<a href=""?say="&y&"""> "&y&"</a>"
end if
next
Else
for y=Sayfa-GeriKac to Sayfa+IleriKac2
if y=cint(Sayfa) then
response.write "<b>"&y&"</b>"
else
response.write "<a href=""?say="&y&"""> "&y&"</a>"
end if
next
End If
If Cint(SayfaSayisi)-Sayfa > 9 then
Response.Write "<a href=?say=" & Sayfa+10 & "> " & Sayfa+10 & "</a>"
End If
If Cint(SayfaSayisi)-Sayfa > 49 then
Response.Write "<a href=?say=" & Sayfa+50 & "> " & Sayfa+50 & "</a>"
End If
If Cint(SayfaSayisi)-Sayfa > 99 then
Response.Write "<a href=?say=" & Sayfa+100 & "> " & Sayfa+100 & "</a>"
End If
If Cint(SayfaSayisi)-Sayfa > 0 then
Response.Write "<a href=?say=" & Sayfa+1 & "> ></a>"
End If
End If
%>Arkadaşlar bu şekilde kategorilerdeki kayıtları sayfalıyorum ama diğer sayfaya geçmiyor, tıklıyorum yine ilk sayfa geliyoru, sorun nerde bakabilirmisiniz.