<%
Set ObjCon = Server.CreateObject("ADODB.Connection")
ObjCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("djinngb.mdb")
Set ObjRs = Server.CreateObject ("ADODB.RecordSet")
StrSql = " Select * from kayit where id order by zaman desc;"
ObjRs.Open StrSql, ObjCon, 1, 3
page = Request.QueryString("pg")
if page="" then
page=1
end if
if ObjRs.eof or ObjRs.bof then
else
ObjRs.pagesize = 15
ObjRs.absolutepage = page
sayfa = ObjRs.pagecount
for i=1 to ObjRs.pagesize
if ObjRs.eof or ObjRs.bof then exit for
%>
<%=ObjRs("zaman") %>