Merhaba arkadaşlar aşağıda bulunan sayfama sayfalama yapabilecek birisini arıyorum. Bir sürü kod buldum bir türlü sayfalama yapamadım. Eğer alttaki sayfama sayfalama uydurabilirsek diğer sayfalara ben eklerim kodu.

<!-- #include file=header.inc !-->
<% If Session("AdminOk") = True Then %>
<%

	 Set ConnData = Server.CreateOBject("ADODB.Connection")
	 Set RSData = Server.CreateObject("ADODB.RecordSet")
	 Yol = Server.MapPath("data/ariza.mdb")
	 ConnData.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Yol)
	 If Request.QueryString("sDurum") = "1" Then
		SQLStr = "Select * From arizatakip ORDER BY durum"
		vSort = "3"
	 Else 
		if Request.QueryString("sFisNo") = "1" Then
			SQLStr = "Select * From arizatakip ORDER BY FisNo"
			vSort = "2"
		Else 
			If Request.QueryString("sGTarih") = "1" Then
				SQLStr = "Select * From arizatakip ORDER BY GelisTarihi"
				vSort= "4"
			Else 
				SQLStr = "Select * From arizatakip ORDER BY ArizaNo"
				vSort = "1"
			End If
		End If
	 End If
	
		
	 RSData.Open SQLStr, ConnData, 3

%>
<style type="text/css">
<!--
.style1 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
<% if Request.QueryString("Ok") = 1 Then Response.Write "<center><font color=red><b>Ürün Ba&thorn;ar&yacute;yla Güncellemi&thorn;tir</b></font></center>" %>
<% if Request.QueryString("Sil") = 1 Then Response.Write "<center><font color=red><b>Ürün Ba&thorn;ar&yacute;yla silindi</b></font></center>" %>
<table border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="2"><img src="../images/logo.gif" width="215" height="72"></td>
  </tr>
  <tr>
    <td height="10" colspan="2" bgcolor="#000000">&nbsp;</td>
  </tr>
  <tr>
    <td width="107" height="379" align="center" valign="top" bgcolor="#DAD3FE">
  <!-- #include file=menu.asp !-->
    </td>
    <td valign="top">
    <TABLE border=0 cellPadding=1 cellSpacing=2  align=center bgcolor=#ffffff class="nice">
      <TR class="style1 nice" bgcolor=#DAD3FE>
        <TD width=30 height=20 align=center><b><a href=archive.asp>No<%if vSort = "1"  Then Response.Write "<img src=../images/arrow.gif border=0>"%></b></TD>
        <TD height="20" align=center class=linkbold><b>SeriNo</b></TD>
        <TD width=50 height="20" align=center><b><a href=archive.asp?sFisno=1>Fi&thorn;No<%if vSort = "2" Then Response.Write "<img src=../images/arrow.gif border=0>"%></a></b></TD>
        <TD width=120 height="20" align=center class=linkbold><b>Ürün Ad&yacute;</b></TD>
        <TD width=80 height="20" align=center><a href=archive.asp?sGTarih=1>Teslim Tarihi<%if vSort = "4" Then Response.Write "<img src=../images/arrow.gif border=0>"%></a></TD>
        <TD width=250 height="20" align=center class=linkbold> <b>Aç&yacute;klama</b></TD>
        <TD width=80 height="20" align=center class=linkbold> <b>Firma</b></TD>
        <TD width=80 height="20" align=center class=linkbold> <b>Teslim Alan</b></TD>
        <TD width=80 height="20" align=center class=linkbold> <b>Ücret</b></TD>
      </tr>
 <%		
	While not RsData.EOF
	      if RsData("Teslimat") = True Then
 %>
      <TR <% a = a + 1 
      
			if RsData("Durum") = False Then
				Response.Write "bgcolor=#FEDBDB"
		  	 Else
              if a  mod 2 Then Response.Write "bgcolor=#f7f7f7" else Response.Write "bgcolor=#ffffff" End If
              
        End if
  
         %>>
        <TD align=center height=18 class=nice><font color=red><b><%=RsData("ArizaNo")%></b></font></TD>
        <TD align=center class=nice><%=RsData("SeriNo")%></TD>
        <TD align=center class=nice><b><a href=viewrecord.asp?FisNo=<%=RsData("FisNo")%>><%=RsData("FisNo")%></a></b></TD>
        <td class=nice>&nbsp;<%=RsData("UrunAdi")%>&nbsp;-&nbsp;<%=RsData("Marka")%>
        <TD align=center class=nice><%=RsData("TeslimTarihi")%></TD>
        <TD class=nice>&nbsp;<%=RsData("Aciklama")%></TD>
        <TD class=nice>&nbsp;<%=RsData("FirmaAdi")%></TD>        
        <TD class=nice>&nbsp;<%=RsData("TeslimAlan")%></TD>
        <TD class=nice>&nbsp;<%=RsData("Ucret")%> TL</TD>  
      </TR>
      <% end if
      RsData.MoveNext%>
      <% 
Wend
	Set RSdata = Nothing
	Set ConnData = Nothing
 Else 
	Response.Redirect "default.asp?Error=1"
End if %>
<tr><td colspan=11 bgcolor=DAD3FE height=20></td></tr>
    </TABLE>
</td>
  </tr>
  <tr>
    <td height="10" colspan="2" bgcolor="#000000">&nbsp;</td>
  </tr>
</table>
</body>
</html>