<%@ Language=VBScript %>

<% Dim i, n, ma, sql con.Open strDSN n = Request.Form("del_lh").Count if n > 0 then dim affect, msg msg = "Đă xóa thông tin !!!" for i=1 to n ma = Request.Form("del_lh").Item(i) sql = "delete * from contact where id=" & ma & "" con.Execute sql, affect if affect=0 then msg = "Phải chọn một thông tin!" end if next else msg="Bạn chưa chọn thông tin muốn xóa !" end if %> <%= msg %>