asp求助

新闻管理中 新闻类的删除 当新闻列表中有该类时 该类设为不可删除 新闻列表中无该类时方可删除
怎么实现啊

set rs = conn.execute（"select * from 新闻 where 类别ID = 要删除的类别ID"）
if rs.eof then
set rs1 = conn.execute（"delete from 新闻类别 where ID = 要删除的类别ID"）
else
response.write "当前类别中有新闻不能删除"
end if