sayfalamada hata

Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !

Forum Başlıklarına gitmek için tıklayınız

Sayfalamada hata

forumda sayfalama için sayfalama.asp adında bi sey yazdım entegre ettim foruma ama veritabaında kayıt bulunamadı dedi. ben sayfada 10 taneden fazla kayıt varsa altta sayfa numaraları çıksın ona göre ayarladım deneme yaptığım sayfada 13 tane vardı cvp ama veri tabanında kayıt bulunamadı dedi..

Kod Alanı:

<%
sayfa=request.querystring("sayfa")
%>
<%
SQL="Select * From answer"

Set Sonuc=Server.CreatObject("ADODB.Recordset")
Sonuc.Open SQL , Database,1

if Sonuc.Eof Or Sonuc.Bof Then
Response.Write " Veritabanımız içerisinde uygun kayıt bulunamadı. "

else

Kayit_Sayisi=10
Sonuc.PageSize=Kayit_Sayisi
Sonuc.CacheSize=Kayit_Sayisi
Toplam_Sayfa=Sonuc.PageCount

if len(Sayfa)=0 Then

Simdiki=1

else

simdiki=CINT(Sayfa)
End if

if simdiki > Toplam_Sayfa Then

simdiki=Toplam_Sayfa
End if

if simdiki < 1 Then
simdiki=1
End if

Sonuc.AbsolutePage=simdiki
Bulunan_Sonuc=Sonuc.RecordCount

Dongu_Say=0
Do While Scr < Kayit_Sayisi And Not Sonuc.Eof
Response.Write Sonuc("Sutun1")
Response.Write "<br>"

Dongu_Say = Dongu_Say + 1
Sonuc.MoveNext

Loop

Baglanti.Close
Set Baglanti=Nothing
Sonuc.Close
Set Sonuc=Nothing

FOR Link_Say = 1 TO Toplam_Sayfa
if Link_Say = simdiki then

Response.Write "<br" & Link_Say & "<b>"

else

Response.Write "<a href=Sayfalama.asp?Sayfa="&Link_Say&">"&Link_Say&"</a>"

end if

next

End if
%>

Hosting Sponsorumuz - Noktahost internet hizmetleri