<%
Set Recs = Conn.Execute("Select Count(id) As toplam From tablo")
if Not Recs.Eof then
intRecords= "" & Recs("toplam") &""
else
intRecords= "0"
end if
Recs.Close
Set Recs = Nothing
intPage = Request.QueryString("sayfa")
If intPage = "" OR not IsNumeric(intPage) Then
intPage = Int(1)
Else
intPage = Int(intPage)
End If
intPageSize = 25 'Sayfada Gözükecek Kayıt sayısı
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = Int(intRecords/intPageSize)+1
Set Rec = Conn.Execute("SELECT * FROM tablo Order By baslik LIMIT " & intStart & ", " & intPageSize & "")
If Rec.Eof or Rec.Bof Then
Response.Write "<p align=""center"">Kayıt Bulunamadı.</p>"
Else
Do Until Rec.Eof
Response.Write rec("id")
Rec.Movenext
Loop
End If
Rec.Close
Set Rec = Nothing
%>