arkadaşlar ben ikişerli sıralayıp her 20 kayıtta bir sayfalama yapmak istiyorum ama bir türlü beceremedim. üstünde uğraştığım kod şöyle;

<%
Set WM = Server.CreateObject("ADODB.Recordset")
sor = "Select * from dizi order by tarih desc"
WM.Open sor,Sur,1,3
toplamdizi=WM.recordcount 

shf = Request.QueryString("shf")
if shf="" then 
shf=1
end if

WM.pagesize = 10
WM.absolutepage = shf
sayfa = WM.pagecount
for i=1 to WM.pagesize
if WM.eof then exit for

KacarliSira = 2
KacTane = WM.pagesize
%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<% for j=1 to KacTane %>

<td>

<div align="center">

<table width="380" border="0" cellspacing="0" cellpadding="0" >

<tr>
<td valign="top"><table width="100%" border="0" cellspacing="5" cellpadding="0">

<tr>
<td width="96%" valign="top"><span class="style9"><strong>Dizi Adı :</strong> <a href="izle.asp?adi=<%=cevir(WM("dizi"))%>"><%=WM("dizi")%></a></span>
</td>
</tr>

<tr>
<td valign="top"><span class="style9"><strong>Sezon &amp; Bölüm : </strong><%=WM("sezon")%>. Sezon &amp; <%=WM("bolum")%>. Bölüm</span></td>
</tr>

</table>

</td>

</tr>

</table>

</div></td>
<%
If j mod KacarliSira =0 Then
Response.Write "</tr><tr>"
End If
WM.Movenext 
Next
%>

</tr>

</table>

<div align="center">Sayfa : 
  <%
for y=1 to sayfa 
if shf=y then
response.write y
else
response.write "<b> <a href=""tarih.asp?shf="&y&""">"&y&"</a></b>"
end if
next
%>
</div>