Yeniden eskiye doğru sıralatmak

kid=Request.QueryString("kid") 
Set rs = Server.CreateObject("ADODB.Recordset") 
sor = "Select * from tablo WHERE kid=" & kid & " order by ID DESC" 
rs.Open sor,Sur,1,3

Eskiden Yeni doğru sıralatmak

kid=Request.QueryString("kid") 
Set rs = Server.CreateObject("ADODB.Recordset") 
sor = "Select * from tablo WHERE kid=" & kid & " order by ID ASC" 
rs.Open sor,Sur,1,3

yani
DESC = Yeniden eskiye
ASC = Eskiden yeniye