Sorun HayroLa Nickli Arkadaşımız Tarafından. Çözülmüştür. Kendisine Teşekkür ederim yardımlarından dolayı,
Kodlar;
<!--#include file="MysqLBaglanti.asp"-->
<%
'Sayfa içersinde kaç adet kayıt göstersin
'kaçtanesinden sonra sayfalasın aşağıda 10 adet olarak görünüyor siz isterseniz değiştirebilirsiniz.
KayitSayisi = 10
If Request.QueryString("s") <> "" Then
Sayfa = CInt(Request.QueryString("s"))
Else
Sayfa = 1
End If
%>
<%
Set nesne = db.Execute("SELECT * FROM tablonuz ORDER BY bilgiid DESC LIMIT " & (KayitSayisi*Sayfa)-(KayitSayisi) & "," & KayitSayisi)
%>
<%
Set SQLTop = db.Execute("SELECT COUNT(bilgiid) FROM tablonuz order by bilgiid desc")
TopKayit = SQLTop(0)
%>
<%
i=1
Do While Not nesne.EOF
%>
<%=nesne("bilgiadi")%><br>
<%
i=i+1
nesne.movenext
loop
%><%
If CInt(TopKayit) > CInt(KayitSayisi) Then
SayfaSayisi = CInt(TopKayit) / CInt(KayitSayisi)
If InStr(1,SayfaSayisi,",",1) > 0 Then SayfaSayisi = CInt(Left(SayfaSayisi,InStr(1,SayfaSayisi,",",1))) + 1
If SayfaSayisi > 1 Then
For i=1 To SayfaSayisi
Response.Write "<a href=""?s=" & i & """ style=""color:#0000FF"">" & i & "</a> "
Next
End If
End If
%>
Çok Teşekkürler Arkadaşlar.. Konuya bu kadar geç yansıttığım için özür dilerim sınavlarım vardı.
Umarım yukardaki bilgiler işinize yarar.