<% NetsysID=request("NetsysID") if NetsysID="" then response.Redirect(request.servervariables("HTTP_REFERER")) response.End end if for each ss in Request("NetsysID") sql="select * from Netsys_Manage Where NetsysID ="&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() %>