<!--#include file="../library/libraryinc.inc" -->
<%
	Server.ScriptTimeout = 10000
	
	Timeout(1)
	
	set con = server.createobject("ADODB.Connection")
	con.ConnectionTimeout = 1000
	con.CommandTimeout = 1000
	con.open Application("CString")

	if Request("move") = "UP" then
	
		Request("ImageOrder")
		Request("pageID")
		
		strSQL = "UPDATE Page_Images SET ImageOrder = 0 WHERE PageID = " & Request("pageID") & " AND ImageOrder = " & CInt(Request("ImageOrder")) - 1
		con.execute strSQL

		strSQL = "UPDATE Page_Images SET ImageOrder = " & CInt(Request("ImageOrder")) - 1 & " WHERE PageID = " & Request("pageID") & " AND ImageOrder = " & Request("ImageOrder")
		con.execute strSQL
		
		strSQL = "UPDATE Page_Images SET ImageOrder = " & Request("ImageOrder") & " WHERE PageID = " & Request("pageID") & " AND ImageOrder = 0"
		con.execute strSQL
		
	
	elseif Request("move") = "DOWN" then
	
		strSQL = "UPDATE Page_Images SET ImageOrder = 0 WHERE PageID = " & Request("pageID") & " AND ImageOrder = " & CInt(Request("ImageOrder")) + 1
		con.execute strSQL

		strSQL = "UPDATE Page_Images SET ImageOrder = " & CInt(Request("ImageOrder")) + 1 & " WHERE PageID = " & Request("pageID") & " AND ImageOrder = " & Request("ImageOrder")
		con.execute strSQL
		
		strSQL = "UPDATE Page_Images SET ImageOrder = " & Request("ImageOrder") & " WHERE PageID = " & Request("pageID") & " AND ImageOrder = 0"
		con.execute strSQL
		
	end if

	con.Close
	set con = Nothing

	Response.Redirect "photos.asp?ptype=" & Request("ptype") &"&pageID=" & Request("pageID") & "&intPage=" & Request("intPage") & "&buster=" & Server.URLEncode(Now())	
%>