Finike.Com.TR

<% 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 %>