rs.pagesize =15 ' sayfada toplam kaç kayıt olacak
bol =3 ' Yan yana kac tane olacak
ayarlarını değiştirerek sayfanı hazırlayabilirsin...
<%
set rs = server.createobject("ADODB.Recordset")
SQL = "Select * from tablom"
rs.open SQL,vt,1,3
%>
<%
if rs.recordcount= 0 then
Response.write ("Kayıt Bulunamadı.")
Else
shf = Request.QueryString("shf")
If shf="" Then
shf=1
End If
%>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF">
<tr>
<%
rs.pagesize =15 ' sayfada toplam kaç kayıt olacak
rs.absolutepage = shf
sayfa = rs.pagecount
For t=1 To rs.pagesize
If rs.Eof Then exit For
bol =3 ' Yan yana kac tane olacak
yuzde = CInt(100/bol)
i = i + 1
If not t mod bol = 0 Then
%>
<td valign="top">
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td width="27%" height="92"><%=rs("adi")%></td>
</tr>
<tr>
<td height="42" valign="top"></td>
</tr>
</table>
</td>
<% ElseIf t mod bol = 0 Then %>
<td valign="top">
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td width="27%" height="92"><%=rs("adi")%></td>
</tr>
<tr>
<td height="42" valign="top"></td>
</tr>
</table>
</td>
</tr>
<tr>
<% End If
rs.Movenext
%>
<%next%>
</tr>
</table>
Sayfalar :
<%
for y=1 to sayfa
if CINT(TRIM(shf))=CINT(TRIM(y)) then
response.write "" & y & ""
else
response.write "sayfala.asp?shf=" & y & "> " & y & " </a>"
end if
Next
end if
rs.close
%>