% sql = "select * from NB_Content where ColumnID = 1 order by IsTop desc,id" Set rs = Conn.Execute(sql) if not rs.eof then ID = rs("ID") end if rs.close %>