<%
dbfolder=""&db&"/dbadi.mdb"
%>
        <%
Set data=Server.CreateObject("ADODB.Connection")
data.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath(""& dbfolder &"")
%>
 <%
i=1
set rs = data.execute("select * from download order by id desc")
do while i>0 and not rs.eof
%>