<% Response.Buffer=true %> <% Dim group_id dim page_id group_id = request.querystring("group_id") page_id = request.querystring("page_id") '-- Check there aren't any users in this group strSQL = ""&_ "SELECT u.keyuser "&_ "from epcms_users u "&_ "WHERE u.group_id = " & group_id Set rs = LoadRSFromDB(strSQL) if not rs.EOF then Response.Redirect("ia.asp?page_id=" & page_id & "&mode=manageGroups&editType=view&errorMsg=GroupInUse") end if set rs = nothing strSQL = "DELETE FROM epcms_groups WHERE group_id = " & group_id & "" RunSQL strSQL Response.Redirect("ia.asp?page_id=" & page_id & "&mode=manageGroups&editType=view&confirmMsg=Group%20deleted") %>