<% ID=request("ID") if ID="" then response.Redirect(request.servervariables("HTTP_REFERER")) response.End end if for each ss in request("ID") sql="select * from Netsys_Message_Cn Where ID ="&ss set rs=createobject("adodb.recordset") rs.open sql,conn,3,3 if not rs.eof then rs.delete rs.update else rs.close set rs=nothing end if next Response.Write"" Response.End() %>