%
set cn=server.createobject("ADODB.Connection")
yol="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("data/elevator")
cn.open(yol)
set temp = server.createobject("adodb.recordset")
temp.open "select * from haberler order by id DESC",cn,1
if temp.recordcount>5 then son=5 else son=temp.recordcount
%>