<!-- #include virtual="/includes/functions.asp" -->
<%
subsectionID = request.querystring("ID")

set objDB = OpenDatabase(false)

SQL = "Select * from ContentSubsections where ID = '" & subsectionID & "'"
set rsSubsection = CreateRecordset(objDB, SQL)

SQL = "Update ContentSubsections set DisplayOrder = DisplayOrder - 1 where SectionID = '" & rsSubsection("SectionID") & "' AND DisplayOrder > " & rsSubsection("DisplayOrder")
UpdateDB objDB, SQL

SQL = "Update ContentSubsections set Active = 0, DisplayOrder = 0 where ID = '" & subsectionID & "'"
UpdateDB objDB, SQL

rsSubsection.close
set rsSubsection = nothing
objDB.close
set objDB = nothing

response.redirect("../content.asp")
%>