<!-- #include virtual="/includes/functions.asp" -->
<%
ID = request.querystring("ID")
sectionID = request.querystring("sectionID")

set objDB = OpenDatabase(false)

SQL = "Select * from ContentSubsections where ID = '" & ID & "'"
set rsSubsection = CreateRecordset(objDB, SQL)

currentorder = rsSubsection("DisplayOrder")

if request.querystring("order") = "up" then
	SQL = "Select * from ContentSubsections where SectionID = '" & sectionID & "' AND DisplayOrder = " & currentorder - 1
	set rsNewSubsection = CreateRecordset(objDB, SQL)
	
	neworder = rsNewSubsection("DisplayOrder")
	subsectionID = rsSubsection("ID")
	
	SQL = "Update ContentSubsections set DisplayOrder = " & neworder & " where ID = '" & subsectionID & "'"
	UpdateDB objDB, SQL
	
	newsubsectionID = rsNewSubsection("ID")
	
	SQL = "Update ContentSubsections set DisplayOrder = " & currentorder & " where ID = '" & newsubsectionID & "'"
	UpdateDB objDB, SQL
else
	SQL = "Select * from ContentSubsections where sectionID = '" & sectionID & "' AND DisplayOrder = " & currentorder + 1
	set rsNewSubsection = CreateRecordset(objDB, SQL)
	
	neworder = rsNewSubsection("DisplayOrder")
	
	subsectionID = rsSubsection("ID")
	
	SQL = "Update ContentSubsections set DisplayOrder = " & neworder & " where ID = '" & ID & "'"
	UpdateDB objDB, SQL
	
	newsubsectionID = rsNewSubsection("ID")
	
	SQL = "Update ContentSubsections set DisplayOrder = " & currentorder & " where ID = '" & newsubsectionID & "'"
	UpdateDB objDB, SQL
end if

rsNewSubsection.close
set rsNewSubsection = nothing
rsSubsection.close
set rsSubsection = nothing
objDB.close
set objDB = nothing

response.redirect("../content.asp?show=content")
%>