if Trim(Request.Form("CheckDelete"))<>"" then
     conn.execute("delete from News where ID
in("&cstr(trim(request.form("CheckDelete")))&")")
     end if

if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call deleteannounce(id)
next
else
call deleteannounce(clng(idlist))
end if
end if