Ustalar Sayfalama Konusunda yardım ..

Sitemin Sayfalama kodu

<%
shf = Request.QueryString("shf")
if shf="" then 
shf=1
end if
%>
 <table border="1" width="555" id="table1" cellpadding="2" bordercolor="#FFFFFF" bgcolor="#C0C0C0">
  <tr>
   <td width="6%" bgcolor="#FFFFFF" background="m1.gif">
   <p align="center">
                <img border="0" src="ok_00.png" width="5" height="9"></td>
   <td width="92%" background="m1.gif">
   <font face="Tahoma" style="font-weight: 700" size="2">&nbsp;</font><font color="#FFFFFF"><font face="Arial Narrow" style="font-weight: 700" size="2">Amasra 
       </font><span style="font-weight: 700">
   <font face="Arial Narrow" size="2">Haber &amp; Duyuruları</font></span></font></td>
  </tr>
 </table>
 <table border="0" cellspacing="0" width="555" bgcolor="#000000" height="15">
      <% rsbbs.pagesize = 9 '1 sayfada görüntülenecek haber sayısı
rsbbs.absolutepage = shf
sayfa = rsbbs.pagecount
for i=1 to rsbbs.pagesize
if rsbbs.eof then exit for
%>
       <tr>
   <td width="100%" bgcolor="#F8F8F8">
   <table width="100%" border="0" cellpadding="2" cellspacing="0" height="76" background="blank.gif">
    <tr>
     <td height="56">
     <div align="center">
      <table width="100%" border="0" cellpadding="2">
       <tr >
        <td width="10%" rowspan="2">
        <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
        <b>
        <img src="haber/<%=rsbbs("resim")%>" width=80 height=80 border="1"></b></font></td>
        <td width="90%" colspan="2" >
        <p>
        <b>
        <font color="#FF3300" size="2" face="Courier New">
        <img border="0" src="devami.jpg" width="12" height="10">
        <a target="_blank" title="<% =left(rsbbs("baslik"),75) %> Haberin Devamı için Tıklayınız." href="haberdetay.asp?id=<%=rsbbs("id")%>&title=<%=rsbbs("baslik")%>">
        <font color="#FF3300">
      <%=left(rsbbs("baslik"),75)
%></font></a></font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
        </font> 
                          </b></p></td>
       </tr>
       <tr>
        <td width="90%" height="16" colspan="2" valign="top" >
        <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
                          <%=left(rsbbs("kisahaber"),250)%>..</font></td>
       </tr>
       <tr>
        <td width="10%">
        <p align="left"><b>
        <font color="#FF6600" size="1" face="Verdana, Arial, Helvetica, sans-serif">
                          <%=left(rsbbs("tarih"),250)%></font></b></td>
        <td width="46%" height="29" align="left" >
        <font color="#808080" size="1" face="Verdana, Arial, Helvetica, sans-serif">
                            <img border="0" src="manset-ok.gif" width="8" height="9">
                            Bu Haber</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
                          </font>
        <font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
                          <%=left(rsbbs("hit"),100)%></font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
                          </font>
        <font color="#808080" size="1" face="Verdana, Arial, Helvetica, sans-serif">
                            kez okunmuştur.</font></td>
        <td width="43%" height="29" align="right" >
        <a target="_blank" title="<% =left(rsbbs("baslik"),75) %> Haberin Devamı için Tıklayınız." href="haberdetay.asp?id=<%=rsbbs("id")%>&title=<%=rsbbs("baslik")%>">
        <img border="0" src="devam.jpg" width="160" height="30"></a></td>
       </tr>
      </table></div></td>
    </tr>
   </table></td>
  </tr>
  <tr>
   <td bgcolor="#FFFFFF" background="anket_02.png" height="15">&nbsp;</td>
  </tr>
      <%rsbbs.movenext%>
      <% next %>
    </table></center>
</div>
<div align="center"> 
  <center>
    <table border="0" cellpadding="0" cellspacing="0" width="555">
      <tr> 
        <td> <p align="left"> <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
  Sayfa : 
            <%
for y=1 to sayfa 
if shf=y then
response.write y
else
response.write "<b> <a target=_self href=""haberler.asp?shf="&y&""">"&y&"</a></b>"
end if
next
%>
            </font> </td>
      </tr>
    </table>
  </center>
</div>

Bu sayfalama kodunda sayfalar 1 2 3 4 5 6 7 gibi sonsuza kadar devam etmekde benim istediğim sayfalama 10. sayfaya kadar 1 den ona kadar olan sayfa numarası gozuksun 11. sayfadada 10 dan 20 ye gibi bu şekilde bu kodu düzenlemem için ne gibi eklemeler yapmak gereklidir

Teşekkürler şimdiden kolay gelsinnn.

<%
	'*********************************************
Syf	= Request.Querystring("Syf")
		
if Syf="" then Syf="1" end if
	
	'**********************************************
%>	

<%
	Set RS=Server.CreateObject("ADODB.RecordSet")
		RS.open "SELECT * FROM Tablo order by ID DESC",Connection,3,1
														
	if RS.RecordCount>0 then
	RS.SyfSize=10
	RS.AbsoluteSyf=Syf
	end if
%>
													
<% rowCount=0 %>
<% while not RS.EOF AND rowCount<RS.SyfSize %>
<% rowCount=rowCount+1 %>


İçerik gelecek

													
<% RS.MoveNext %>
<% wend %>
													
<% if RS.SyfCount>1 then %>
													
<%
	ilkSayfam=Syf-10
	if ilkSayfam="0" or ilkSayfam<"0" then ilkSayfam="1" end if
	sonSayfam=Syf+10
														
	if RS.SyfCount<sonSayfam then sonSayfam=RS.SyfCount else sonSayfam=sonSayfam end if
%>
Sayfalama

<% if Syf-1<>"0" then %>
<td><a  href="?ID=<%=ID%>&Syf=<%=Syf-1%>"><< Geri</a></td>
<td width="6"></td>
<% end if %>
																		
<%for i=ilkSayfam to sonSayfam %>
	<%if i<>CINT(Syf) then%>
	<a href="?ID=<%=ID%>&Syf=<%=i%>"><td  align="center"><%=i%></td></a>
	<%else%>
	<td align="center" bgcolor="#f3ede3"><b><%=i%></b></td>
	<%end if%>
<%next%>
																		
<% if not int(Syf)=int(RS.SyfCount) then %>
<td width="6"></td>
<td><a  href="?ID=<%=ID%>&Syf=<%=Syf+1%>">İleri >></a></td>
<%end if%>

screamser
screamser yardımın ıcın tesekkurler fakat uygulamaya çalıştım bir türlü oturmadı kodlar yerine hata ile karşılaştım zahmet olmazsa benım kodlara uyarlayabılırmısın verdıgın kodları tşkler.

<%
Set serdar = Server.CreateObject("ADODB.Connection")
serdar.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani dosyasi")

'*********************************************
Syf = Request.Querystring("Syf")

if Syf="" then Syf="1" end if

'**********************************************

Set rsbbs=Server.CreateObject("ADODB.RecordSet")
rsbbs.open "Select * from haber ORDER BY id desc",serdar,3,1

if rsbbs.RecordCount>0 then
rsbbs.SyfSize=10
rsbbs.AbsoluteSyf=Syf
end if

%>
<table border="1" width="555" id="table1" cellpadding="2" bordercolor="#FFFFFF" bgcolor="#C0C0C0">
<tr>
<td width="6%" bgcolor="#FFFFFF" background="m1.gif">
<p align="center">
<img border="0" src="ok_00.png" width="5" height="9"></td>
<td width="92%" background="m1.gif">
<font face="Tahoma" style="font-weight: 700" size="2">&nbsp;</font><font color="#FFFFFF"><font face="Arial Narrow" style="font-weight: 700" size="2">Amasra
</font><span style="font-weight: 700">
<font face="Arial Narrow" size="2">Haber &amp; Duyuruları</font></span></font></td>
</tr>
</table>
<table border="0" cellspacing="0" width="555" bgcolor="#000000" height="15">
<% rowCount=0 %>
<% while not rsbbs.EOF AND rowCount<rsbbs.SyfSize %>
<% rowCount=rowCount+1 %>

<tr>
<td width="100%" bgcolor="#F8F8F8">
<table width="100%" border="0" cellpadding="2" cellspacing="0" height="76" background="blank.gif">
<tr>
<td height="56">
<div align="center">
<table width="100%" border="0" cellpadding="2">
<tr >
<td width="10%" rowspan="2">
<font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<b>
<img src="haber/<%=rsbbs("resim")%>" width=80 height=80 border="1"></b></font></td>
<td width="90%" colspan="2" >
<p>
<b>
<font color="#FF3300" size="2" face="Courier New">
<img border="0" src="devami.jpg" width="12" height="10">
<a target="_blank" title="<% =left(rsbbs("baslik"),75) %> Haberin Devamı için Tıklayınız." href="haberdetay.asp?id=<%=rsbbs("id")%>&title=<%= rsbbs("baslik")%>">
<font color="#FF3300">
<%=left(rsbbs("baslik"),75)
%></font></a></font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
</font>
</b></p></td>
</tr>
<tr>
<td width="90%" height="16" colspan="2" valign="top" >
<font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%=left(rsbbs("kisahaber"),250)%>..</font></td>
</tr>
<tr>
<td width="10%">
<p align="left"><b>
<font color="#FF6600" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%=left(rsbbs("tarih"),250)%></font></b></td>
<td width="46%" height="29" align="left" >
<font color="#808080" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<img border="0" src="manset-ok.gif" width="8" height="9">
Bu Haber</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
</font>
<font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%=left(rsbbs("hit"),100)%></font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
</font>
<font color="#808080" size="1" face="Verdana, Arial, Helvetica, sans-serif">
kez okunmuştur.</font></td>
<td width="43%" height="29" align="right" >
<a target="_blank" title="<% =left(rsbbs("baslik"),75) %> Haberin Devamı için Tıklayınız." href="haberdetay.asp?id=<%=rsbbs("id")%>&title=<%= rsbbs("baslik")%>">
<img border="0" src="devam.jpg" width="160" height="30"></a></td>
</tr>
</table></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" background="anket_02.png" height="15">&nbsp;</td>
</tr>
<% rsbbs.MoveNext %>
<% wend %>


</table></center>
</div>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="555">
<tr>
<td> <p align="left"> <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% if rsbbs.SyfCount>1 then %>

<%
ilkSayfam=Syf-10
if ilkSayfam="0" or ilkSayfam<"0" then ilkSayfam="1" end if
sonSayfam=Syf+10

if rsbbs.SyfCount<sonSayfam then sonSayfam=rsbbs.SyfCount else sonSayfam=sonSayfam end if
%>
<% if Syf-1<>"0" then %>
<td><a href="haberler.asp?Syf=<%=Syf-1%>"><< Geri</a></td>
<td width="6"></td>
<% end if %>

<%for i=ilkSayfam to sonSayfam %>
<%if i<>CINT(Syf) then%>
<a href="haberler.asp?Syf=<%=i%>"><td align="center"><%=i%></td></a>
<%else%>
<td align="center" bgcolor="#f3ede3"><b><%=i%></b></td>
<%end if%>
<%next%>

<% if not int(Syf)=int(rsbbs.SyfCount) then %>
<td width="6"></td>
<td><a href="haberler.asp?Syf=<%=Syf+1%>">İleri >></a></td>
<%end if%>

</font> </td>
</tr>
</table>
</div>

olmadı usta senıde yoruyorum ama kusura bakma aldıgım hata demınde aynı idi


Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'rsbbs.SyfSize' /sonhaber.asp, line 75

SyfSize olanları PageSize olarak değiştir.

kodu duzenledım bu sayfa ayrı bır sayfadan db yolu cekıyor ıkı set var rsbbs haber seti rsbbss yorum seti sayfamda kullandıgım sekılde usttekı kod ayrı bır sayfa sonhaber.asp bu kodu include formatı ıle haberler.asp de kullanıyorum

Tmm kardeş Syf lerde sorun yapıyomus tum Syf leri Page yaptım sorun duzeldi bir şey daha ogrenmıs olduk tşkler emeklerin için ellerine sağlık kolay gelsin

sonuç olarak işini gördümü va mı takıldığın yer burada.