<% Response.Buffer=true %>
<!--#include file="../admin_includes/checkLogin.asp"-->
<!--#include file="../global_includes/global.asp"-->


<%
dim page_id
dim process
dim redirectString

dim cat_id
dim cat_parentid
dim cat_name
dim cat_desc

page_id = request.form("page_id")
process = request.form("process")

cat_id = request.form("cat_id")
cat_parentid = request.form("cat_parentid")
cat_name = getContentDBReady(request.form("cat_name"))
cat_desc = getContentDBReady(request.form("cat_desc"))



if process = "update" then
	redirectString = "ia.asp?page_id=" & page_id & "&mode=manageCategories&editType=addItem&catID=" & cat_id & "&openTreeBranches=" & openTreeBranches & "&errorMsg"
else
	redirectString = "ia.asp?page_id=" & page_id & "&mode=manageCategories&editType=addItem&newCatName=" & cat_name & "&newCatParent=" & cat_parentid & "&newCatDesc=" & cat_desc & "&openTreeBranches=" & openTreeBranches & "&errorMsg"
end if

'--Check a username has been added
if len(cat_name) < 1 then
	Response.Redirect(redirectString & "=CatNameZeroLength")
end if


'--If we're all good, update the record in the users table
if process = "update" then
	strSQL = "UPDATE epcms_categories SET "&_
	"cat_parentid = '" & cat_parentid &"',"&_
	"cat_name = '" & cat_name &"',"&_
	"cat_desc = '" & cat_desc & "' "&_
	"WHERE cat_id = " & cat_id
else
	strSQL = "INSERT INTO epcms_categories "&_
	"(cat_parentid,cat_name,cat_desc) "&_
	"VALUES ('" & cat_parentid & "','" & cat_name & "','" & cat_desc & "');"
end if


'--response.write strSQL
'--response.end

RunSQL strSQL

if process = "update" then
	Response.Redirect("ia.asp?mode=manageCategories&page_id=" & page_id & "&editType=view&openTreeBranches=" & openTreeBranches & "&confirmMsg=Category%20updated")
else
	Response.Redirect("ia.asp?mode=manageCategories&page_id=" & page_id & "&editType=view&openTreeBranches=" & openTreeBranches & "&confirmMsg=Category%20added")
end if
%>