<%
dim conn,rst,querystr,a,b,c,d
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath ("/deneme/db/v_t/z_t/_xz/_rsq/test.mdb")
querystr = "SELECT * FROM haber order by id desc "
set rst = conn.execute(querystr)
redim e(10)
redim d(10)
redim b(10)
redim c(10)
redim idm(10)
i=10
do while (not rst.eof)
idm(i)=rst.fields("id")
b(i)=rst.fields("manset")
if len(b(i)) > 252 then b(i)=mid(b(i),1,252)
c(i)=rst.fields("img")
d(i)=rst.fields("tik")
e(i)=rst.fields("baslik") & " " & rst.fields("date")
i=i-1
if i<0 then i=0
rst.movenext
loop
%>
