下面是我的代码，当我删除一条记录后就不能再删除记录，说当前记录已经被删除，要怎么修改
<%
dim check
check=request("check")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open(MM_gbook_STRING)
set rsn=server.CreateObject ("ADODB.Recordset")
rsn.open "Select * from news where n_id in ("&check&")",cn,2,3
rsn.delete
rsn.close
%>