<!-- #include virtual="/includes/functions.asp" -->
<%
ID = fixsql(request.querystring("ID"))

set objDB = OpenDatabase(false)

SQL = "Update Users set Active = 0 where ID = '" & ID & "'"
UpdateDB objDB, SQL

objDB.close
set objDB = nothing

response.redirect("../users.asp")
%>