MySQL için benim kullandığım sayfalama kodunun basitleştirilmiş hali aşağıda.
çalışan halini
http://www.eniyisecenek.com/sayfa.asp?sayfa=1 adresinden kontrol edebilirsiniz.
<%
Function VeriSay(SQL)
set objRs1 = objConn.Execute(SQL)
if objRs1(0) = "0" Then
VeriSay = 0
else
VeriSay = objRs1(0)
end if
objRs1.Close
Set objRs1 = Nothing
End Function
iSayfa = Request.QueryString("sayfa")
iKayitSayi = 20
if Not Isnumeric(iSayfa) OR iSayfa = "" Then
iSayfa = 1
iBaslangic = 0
else
iBaslangic = (iSayfa-1)*iKayitSayi
end if
strSQL = "SELECT * FROM tblTabloAdi ORDER BY fldFieldID DESC limit "& iBaslangic &", "& iKayitSayi
set objRs = objConn.Execute(strSQL)
%>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<% if Not objRs.EOF Then
i = iBaslangic
Do While Not objRs.EOF %>
<tr>
<td width="4%" valign="top"><div align="center"><% =i+1 %></div></td>
<td width="96%" valign="top"><% =objRs("fldFieldAdi") %></td>
</tr>
<% objRs.MoveNext
i = i+1
Loop
%>
<% iToplamSayi=VeriSay("SELECT COUNT(*) FROM tblTabloAdi") %>
<tr>
<td colspan="2"><div align="center">
<%
for i = 1 To int(Replace(iToplamSayi,".",",")/iKayitSayi)+1
if i = int(iSayfa) Then
%>
<strong><% =i %></strong>
<% else %>
<a href="sayfa.asp?sayfa=<% =i %>"><% =i %></a>
<% end if
next %>
</div></td>
</tr>
<%
end if %>
</table>Umarım işinizi görür