Set TarihListele = Server.CreateObject(ADODB.RecordSet)
sql="Select * From tabloadi Where yil=2010 ORDER BY yil DESC"
TarihListele.Open sql,Baglanti,1,3

If Not TarihListele.Eof Then
Do While Not TarihListele.Eof

Response.Write TarihListele("baslik")

TarihListele.MoveNext : Loop
End If
TarihListele.Close : Set TarihListele = Nothing