<% 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 image_id
dim image_title
dim image_src
dim image_alt
dim image_longdesc
dim image_caption

dim image_categories
dim image_openNodes

dim returnFileName
dim returnMessage

parent_id = request.querystring("parent_id")
process = request.querystring("process")
uploadLocation = request.querystring("uploadLocation")

image_id = request.querystring("image_id")
image_title = getContentDBReady(unEncodeFromURL(request.querystring("image_title")))
image_src = request.querystring("image_src")
image_alt = getContentDBReady(unEncodeFromURL(request.querystring("image_alt")))
image_longdesc = getContentDBReady(unEncodeFromURL(request.querystring("image_longdesc")))
image_caption = getContentDBReady(unEncodeFromURL(request.querystring("image_caption")))
image_categories = request.querystring("selectedCategories")
image_openNodes = request.querystring("openNodes")


if process = "add" then
	strSQL = ""&_
	"INSERT into images ("&_
	"image_title, "&_
	"image_src, "&_
	"image_alt, "&_
	"image_caption, "&_
	"image_longdesc, "&_
	"ia_parentid, "&_
	"image_categories, "&_
	"image_openNodes "&_
	") VALUES ("&_
	"'"& image_title &"', "&_
	"'" & image_src &"', "&_
	"'" & image_alt &"', "&_
	"'" & image_caption &"', "&_
	"'" & image_longdesc &"', "&_
	"" & parent_id & ", "&_
	"'" & image_categories &"', "&_
	"'" & image_openNodes & "')"
else
	
	strSQL = ""&_
	"UPDATE images SET "&_
	"image_title = '" & image_title & "', "&_
	"image_alt = '" & image_alt & "', "&_
	"image_caption = '" & image_caption & "', "&_
	"image_longdesc = '" & image_longdesc & "', "
	if len(image_src) > 0 then
		strSQL = strSQL & "image_src = '" & image_src & "', "
	end if
	strSQL = strSQL &_
	"ia_parentid = " & parent_id & ", " &_
	"image_categories = '" & image_categories & "', "&_
	"image_openNodes = '" & image_openNodes & "' "&_
	"WHERE image_id = " & image_id
	
end if

'response.write strSQL
'response.end

'-- Run SQL
RunSQL strSQL



if process = "add" then
	gSQL = "SELECT image_id from images order by image_id desc limit 1" 	
	Set gRS = LoadRSFromDB(gSQL)
	if not gRS.EOF then
		image_id = gRS("image_id")
	end if
	set gRS = nothing
end if


'---------------------------------------------------
' UPDATE THE CATEGORY LOOKUP TABLE
'---------------------------------------------------
call updateLookUpTable("images_category_lu", "image_id", "c_id", image_id, image_categories)





'-- Set up the confirmation message
if process = "add" then
	returnMessage = "Image%20added"
else
	returnMessage = "Image%20information%20uploaded"
end if


'-- Redirect back
if uploadLocation = "main" then
	response.redirect "ia.asp?mode=manageImages&page_id=" & parent_id & "&editType=view&confirmMsg=" & returnMessage
else
	response.redirect "asset_select.asp?uploadType=image&formField=" & formField & "&returnFileName=" & returnFileName & "&confirmMsg=File%20uploaded"
end if

response.end
%>