<% dim objrs,sqlstr sqlstr ="select * from house order by id desc" set objrs = server.CreateObject("adodb.recordset") objrs.open sqlstr,conn,3,2 %>