<% table=request("table") no=Request("no") passwd=trim(request("passwd")) Set dbcon = Server.CreateObject("ADODB.Connection") DbCon.Open("DSN=ch71;UID=sa;PWD=pages30") sql="select onum=passwd from "&table&" where no="&no Set rs=dbcon.execute(sql) if trim(rs("onum"))<>passwd then %> <%else sql="DELETE FROM "&TABLE&" WHERE NO="&NO dbcon.Execute(sql) Response.Redirect "list.asp?table="&table end if %>