<% Response.Buffer=true %>
<!--#include file="../admin_includes/checkLogin.asp"-->
<!--#include file="../global_includes/global.asp"-->
<!--#include file="../global_includes/pluginIncludes.asp"-->
<%

dim parent_id
dim process
dim uploadLocation

dim file_id
dim file_title
dim file_src
dim file_desc
dim file_date
dim file_author

dim file_size

dim file_categories
dim file_openNodes

dim returnMessage

parent_id = request.querystring("parent_id")
process = request.querystring("process")
uploadLocation = request.querystring("uploadLocation")

file_id = request.querystring("file_id")
file_title = getContentDBReady(unEncodeFromURL(request.querystring("file_title")))
file_src = request.querystring("file_src")
file_desc = getContentDBReady(unEncodeFromURL(request.querystring("file_desc")))
file_date = request.querystring("file_date")
file_author = getContentDBReady(unEncodeFromURL(request.querystring("file_author")))
file_categories = request.querystring("selectedCategories")
file_openNodes = request.querystring("openNodes")

if len(file_src) then
	file_size = returnFileSize(file_src)
end if


if process = "add" then
	strSQL = ""&_
	"INSERT into files ("&_
	"file_title, "&_
	"file_src, "&_ 
	"file_desc, "&_
	"file_publication_date, "&_
	"file_author, "&_
	"file_size, "&_
	"ia_parentid, "&_
	"file_categories, "&_
	"file_openNodes "&_
	") VALUES (" &_
	"'" & file_title &"', "&_
	"'" & file_src &"', "&_
	"'" & file_desc &"', "&_
	"'" & file_date &"', "&_
	"'" & file_author &"', "&_
	"'" & file_size &"', "&_
	"" & parent_id & ", "&_
	"'" & file_categories &"', "&_
	"'" & file_openNodes & "')"
else
	
	strSQL = ""&_
	"UPDATE files SET "&_
	"file_title = '" & file_title & "', "&_
	"file_desc = '" & file_desc & "', "&_
	"file_publication_date = '" & file_date & "', "&_
	"file_author = '" & file_author & "', "
	if len(file_src) > 0 then
		strSQL = strSQL & "file_src = '" & file_src & "', file_size='" & file_size & "', "
	end if
	strSQL = strSQL &_
	"ia_parentid = " & parent_id & ", " &_
	"file_categories = '" & file_categories & "', "&_
	"file_openNodes = '" & file_openNodes & "' "&_
	"WHERE file_id = " & file_id
	
end if


'response.write strSQL
'response.end

'-- Run SQL
RunSQL strSQL



if process = "add" then
	gSQL = "SELECT file_id from files order by file_id desc limit 1" 	
	Set gRS = LoadRSFromDB(gSQL)
	if not gRS.EOF then
		file_id = gRS("file_id")
	end if
	set gRS = nothing
end if


'---------------------------------------------------
' UPDATE THE CATEGORY LOOKUP TABLE
'---------------------------------------------------
call updateLookUpTable("files_category_lu", "file_id", "c_id", file_id, file_categories)








'-- Set up the confirmation message
if process = "add" then
	returnMessage = "File%20added"
else
	returnMessage = "File%20information%20uploaded"
end if


'-- Redirect back
if uploadLocation = "main" then
	response.redirect "ia.asp?mode=manageFiles&page_id=" & parent_id & "&editType=view&confirmMsg=" & returnMessage
else
	response.redirect "asset_select.asp?uploadType=" & uploadType & "&formField=" & formField & "&returnFileName=" & returnFileName & "&confirmMsg=File%20uploaded"
end if


response.end





function returnFileSize(fileName) 

	dim objFSO
	dim objFile
	dim strPhysicalPath
	dim iFileSize
	
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	
	strPhysicalPath = server.mappath(fileUploadDestination) & "\content_files\files\" & fileName


	if objFSO.FileExists(strPhysicalPath) then

		Set objFile = objFSO.GetFile(strPhysicalPath)
		iFileSize = int(objFile.Size/1024 + 0.5)
		
	end if
	
	returnFileSize = iFileSize

end function
%>