<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("yakis/db/articles.mdb")
%>
<%
Set cy = Server.CreateObject("ADODB.Recordset")
sor = "Select * from haber order by id desc"
cy.Open sor,Sur,1,3
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
%>
<%
If cy.eof then
Response.Write "
Kayıtlı yazı yok...
"
Response.End
End If
%>
<% cy.pagesize = 5
cy.absolutepage = shf
sayfa = cy.pagecount
for i=1 to cy.pagesize
if cy.eof then exit for
%>
<%cy.movenext%>
<% next %>
<%=cy("baslik")%>
<%=cy("haber")%>
Sayfa :
<%
for y=1 to sayfa
if shf=y then
response.write y
else
response.write ""&y&""
end if
next
%>