Asp Sayfalama sorunu, acil yardım...

Merhaba asp sever arkadaşlar. Genelde yardımlarınız için burda konu açıyorum. Ancak bu işi kavramaya çalışıyorum.

Sorunum listelediğim birşey 5 kişiden sonra altta <1 2 3 4 5 6> diye sayfalanmasını istiyorum. Ancak bu bana vereceğiniz sayfalamada
<12345678910>
<11 12 13 14 15>

gibi mesela belli sayıdan sonra sayfa sayıları alt satıra geçsin isterim.

Ben size, listeleme yaptığım asp kodunu vereceğim yardım ederseniz çok sevinirim.

<%

Set ObjCon_ilet = Server.CreateObject("ADODB.Connection")
ObjCon_ilet.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../veri/veri.mdb")

%>

<%
Set ObjRs=Server.CreateObject("adodb.recordset")
strSQL="Select * From musteri id order by id desc"
ObjRs.Open StrSql, ObjCon_ilet, 1, 3
%>


 <div align="center">
   <center>
   
<table width="713" border="0">
  <tr>
    <td width="20">&nbsp;</td>
    <td width="201"><div align="center"><font color="#333333" size="2" face="Tahoma">Adı Soyadı </font></div></td>
    <td width="223"><div align="center"><font color="#333333" size="2" face="Tahoma">Firma Bilgileri </font></div></td>
    <td width="177"><div align="center"><font color="#333333" size="2" face="Tahoma">Email Adresi </font></div></td>
    <td width="42"><div align="center"><font color="#333333" size="2" face="Tahoma">Detay</font></div></td>
    <td width="24"><div align="center"><font color="#333333" size="2" face="Tahoma">Sil</font></div></td>
    </tr>

  <div align="center">
<tr>
  <td>  
  <font face="Tahoma" size="2" color="#FFFFFF">

<%if ObjRs.eof Then
Response.write "Mesaj Bulunamadı"
Response.End
end if
%>

<% Do while not ObjRs.eof%> 

  <tr>
    <td width="20" style="border: 1px dotted #C0C0C0"><div align="center"><img src="img/uye.gif" /></div></td>
    <td width="201" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma">&nbsp;<%=ObjRs("adi")%>&nbsp;<%=ObjRs("soyadi")%></font></div></td>
    <td width="223" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma">&nbsp;<%=ObjRs("firma")%></font></div></td>
    <td width="177" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma">&nbsp;<%=ObjRs("email")%></font></div></td>
    <td width="42" style="border: 1px dotted #C0C0C0"><div align="center">
      <p align="center"><font size="2" face="Tahoma"><a href="musteri_detay.asp?id=<%=ObjRs("id")%>"><img border="0" src="img/detay.gif" /></a></font></p>
    </div></td>
    <td width="24" style="border: 1px dotted #C0C0C0"><div align="center">
      <p align="center"><font size="2" face="Tahoma"><a href="musteri_sil.asp?id=<%=ObjRs("id")%>"><img border="0" src="img/sil.gif" /></a></font></p>
    </div></td>
    </tr>


<%
ObjRs.movenext
Loop
ObjRs.close
Set ObjRs=Nothing
%>

</div>                      
<tr>
  <td>  </td>
<tr>
  <td>  </tr>

</table>



<br />
<a href="banka_ekle.asp"></a><br />
<div align="right"><br />
</div>
<div align="right"></div>
<div align="center"><br />
</div>

Çok buldum sayfalama ne dendiyse yaptım ancak. Herzaman sorun çıkardı. Hata verdi kafayı üşütçem artık. En büyük problemim bu

Herkeze teşekür ederim. Saygılarla...

Arkadaşlar yardım eden yokmu

Konu güncellll..

sorgu="select * from hebe order by hebeee"
rs.open sorgu,ct,3,3
if not rs.eof or not rs.bof then
Rs.PageSize = 10
If Request.QueryString("page") <> "" Then
Sayfa = CInt(Request.QueryString("page"))
Else
Sayfa = 1
End If
arkasay=0
Rs.AbsolutePage = Sayfa
hebe=0
Do While Not Rs.EOF And hebe<Rs.PageSize
' burada dönen veriyi işle
hebe=hebe+1
rs.movenext
loop
if not Sayfa=1 then
response.write "<a href=""hebe.asp?page=" & CInt(Sayfa-1) & """>&laquo;&nbsp;Önceki</a>&nbsp;&nbsp;&nbsp;"
end if
altsatir=0
If Rs.PageCount > 0 Then
altsatir=altsatir+1
For s=1 To Rs.PageCount
if s=Sayfa then
Response.Write "<a href=""hebe.asp?page=" & s & """><font color=""#000000""><b>" & s & "</b></font></a>"
if not s=Rs.Pagecount then
response.write "&nbsp;&nbsp;"
end if
else
Response.Write "<a href=""hebe.asp?page=" & s & """>" & s & "</a>"
if not s=Rs.Pagecount then
response.write "&nbsp;&nbsp;"
end if
end if
if altsatir=5 then ' burada kaçıncı sayfa yazısından sonra alt satıra geçecek 5
response.write "<br>"
altsatir=0
end if
Next
End If
if not Sayfa=rs.PageCount then
response.write "&nbsp;&nbsp;&nbsp;<a href=""hebe.asp?page=" & CInt(Sayfa+1) & """>Sonraki&nbsp;&raquo;</a>"
end if
else
Response.write "Kayıt bulunamadı."
end if
rs.close

Kardeş çok teşekür ederim ama ben bunu yapamadım. Olmadı. Nesne gereklii diyip duruyo. Nereye eklemeliyim biraz daha bilgi veririsen sevinirim

Çünkü üste verdiğim örnekte nereye include edicem onu. Ne yaapcağımı bilmiyorum.

Aarkadaşlar konu halen güncel ne yapsam başaramadım

Konu güncel arkadaşlar halen bir gelişme yok günlerce arıyorum ama olmuyor.

sizin ilk verdiğiniz örnekte çalışmakta sadece yapmanız gereken veritabanı ve tablo adlarını düzeltmekte iki örnekte sorunsuz çalışıyor.

siz sunu yapın isterseniz; hangi veri tabanından neleri sayfalatacaksanız onu yazın

mesela ahmet klasorunde mehmet veritabınındaki ayse tablosunun içerisinde yer alan

id kim sen ben o su sutunlarını sayfalatmak istiyorum derseniz yapmanız gerekeni direk almış olursunuz. Ancak buda biraz armut piş ağzıma düş gibi olur ama neyse. dediğim verileri yollarsanız hazırlayayım bir sayfa

Hocam ben sizin dediğinizden birşey anlamadım. Ben sadece ilk mesajımda verdiğim örneğin altına sayfa1 sayfa 2 sayfa 3 sayfa 4 .. googledeki gibi alta sayfalatmak istiyorum okadar.

Üsteki örneğe göre uyarlarsanız kesin işi kaparım. Sadece ne yapacağımı bilmiyorum.

İlginiz için teşekür ederim...