<!--#include file="../admin_includes/checkLogin.asp"-->
<!--#include file="../global_includes/global.asp"-->
<!--#include file="../admin_classes/clsUpload.asp"-->

<%
dim uploadType
dim formField
dim uploadDestination
dim returnFileName
dim uploadLocation
dim parent_id
dim process


'-- Image values
dim image_id
dim image_title
dim image_src
dim image_alt
dim image_longdesc
dim image_caption


'-- File values
dim file_id
dim file_title
dim file_src
dim file_desc
dim file_date
dim file_author


'-- Generic values
dim selectedCategories
dim openNodes


dim forwardURL
forwardURL = ""


uploadType = request("uploadType")
formField = request("formField")
returnFileName = request("returnFileName")
uploadLocation = request("uploadLocation")
parent_id = request("parent_id")
process = request("process")

selectedCategories = request("selectedCategories")
openNodes = request("openNodes")


if uploadType = "image" then

	image_id = request("image_id")
	image_title = request("image_title")
	image_src = request("image_src")
	image_alt = request("image_alt")
	image_longdesc = request("image_longdesc")
	image_caption = request("image_caption")
	
	forwardURL = "image_update.asp?"&_
	"parent_id=" & parent_id &_
	"&process=" & process &_
	"&uploadLocation=" & uploadLocation &_
	"&returnFileName=" & returnFileName &_
	"&formField=" & formField &_
	"&image_id=" & image_id &_
	"&image_title=" & encodeForURL(image_title) &_
	"&image_src=" & image_src &_
	"&image_alt=" & encodeForURL(image_alt) &_
	"&image_caption=" & encodeForURL(image_caption) &_
	"&image_longdesc=" & encodeForURL(image_longdesc) &_
	"&selectedCategories=" & selectedCategories &_
	"&openNodes=" & openNodes

	uploadDestination = fileUploadDestination & "content_files/images"
else
	
	file_id = request("file_id")
	file_title = request("file_title")
	file_src = request("file_src")
	file_desc = request("file_desc")
	file_date = request("file_date")
	file_author = request("file_author")
	
	forwardURL = "file_update.asp?"&_
	"parent_id=" & parent_id &_
	"&process=" & process &_
	"&uploadLocation=" & uploadLocation &_
	"&returnFileName=" & returnFileName &_
	"&formField=" & formField &_
	"&file_id=" & file_id &_
	"&file_title=" & encodeForURL(file_title) &_
	"&file_src=" & file_src &_
	"&file_desc=" & encodeForURL(file_desc) &_
	"&file_date=" & file_date &_
	"&file_author=" & encodeForURL(file_author) &_
	"&selectedCategories=" & selectedCategories &_
	"&openNodes=" & openNodes

	uploadDestination = fileUploadDestination & "content_files/files"
end if


'--response.write forwardURL
'--response.end


'-- If we have a file to upload do so now
if len(returnFileName) > 0 then
	Dim objUpload
	Dim strFileName
	Dim strPath

	' Instantiate Upload Class
	Set objUpload = New clsUpload

	' Grab the file name
	strFileName = objUpload.Fields("FileSrc").FileName

	' Compile path to save file to
	strPath = Server.MapPath(uploadDestination) & "\" & returnFileName

	' Save the binary data to the file system
	objUpload("FileSrc").SaveAs strPath

	' Release upload object from memory
	Set objUpload = Nothing
end if


response.redirect forwardURL
response.end

%>