Bilmiyorum kodu değiştirdiniz mi ama yukarıdaki kodda şöyle bir hata var.

<%
Set Objonce = Server.CreateObject("ADODB.Connection")
Objonce.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&db&"/db.mdb")
%>
<%
Set Objonce = Server.CreateObject("adodb.RecordSet")
sql="SELECT id,script_adi From download WHERE id < "&id&" order by id desc"
Objonce.open sql, data, 1, 3

Bağlantı nesnesi Objonce ismiyle oluşturulmuş ama kayıt seti data ismindeki bağlantıyı çağırmış.