<%
rs.open "Select count(id) as toplam from tablo;",baglanti,1,3 : top = rs("toplam") : rs.close()
sayi = 30 ' Sayfada Gösterilecek Kayıt Sayısı
s = Request.QueryString("s")
if s = "" then s = 1 else s = cint(trim(s))
basla = (s-1)*sayi

rs.open "tablo order by id limit "&basla&","&sayi&";",baglanti,1,3 : do while not rs.eof
	
	Response.Write rs("icerik")

rs.movenext : loop : rs.close()

Response.Write "Sayfa : "
for i = 1 to cint(top)/sayi+1
	if i = s then
		Response.Write "["&i&"] - "
	else
		Response.Write "<a href=?s="&i&">"&i&"</a> -" 
	end if
next %>