
	 <!-- #INCLUDE FILE="login-check.asp" -->
<!-- #INCLUDE FILE="settings.asp" -->

<%

news_id = Request.QueryString("news_id")
thisdirection = Request.QueryString("direction")

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & database_path


Set oRS = Server.CreateObject("ADODB.recordset")


reorder = 1


oRS.Open "SELECT * FROM tblnews ORDER BY displayorder", oConn, 2, 3
Do while not oRS.eof
displayOrder = oRS("displayorder")

thecount = oRS.RecordCount
oRS.Fields("displayorder") = reorder
 
 oRS.Update
 reorder = reorder + 1
											
	oRS.MoveNext
	loop
	oRS.close


 if thisdirection = "up" then

oRS.Open "SELECT * FROM tblnews WHERE id=" & news_id & "", oConn, 2, 3

targetnum = oRS("displayorder")

 oRS.Close
 
	 if not targetnum = 1 then
	 
	oRS.Open "SELECT * FROM tblnews WHERE displayorder=" & (targetnum-1) & "", oConn, 2, 3
	
	oRS.Fields("displayorder") = (targetnum)
	
	oRS.Update
	oRS.Close
	
	
	oRS.Open "SELECT * FROM tblnews WHERE id=" & news_id & "", oConn, 2, 3
	 
	oRS.Fields("displayorder") = (targetnum-1)
	oRS.Update
	
	 
	 oRS.Close
	 
	 end if

else


oRS.Open "SELECT * FROM tblnews WHERE id=" & news_id & "", oConn, 2, 3

targetnum = oRS("displayorder")

 oRS.Close
 
	 if not targetnum = (reorder-1) then
	 
	oRS.Open "SELECT * FROM tblnews WHERE displayorder=" & (targetnum+1) & "", oConn, 2, 3
	
	
	oRS.Fields("displayorder") = targetnum
	
	oRS.Update
	oRS.Close
	
	
	oRS.Open "SELECT * FROM tblnews WHERE id=" & news_id & "", oConn, 2, 3
	 
	oRS.Fields("displayorder") = (targetnum+1)
	oRS.Update
	
	 
	 oRS.Close
	 
 end if

end if




Set oRS = Nothing

   oConn.Close
   
   Set oConn = Nothing
   
   Response.Redirect("news-admin.asp")
%>