<% Response.Buffer=true %>
<!--#include file="../admin_includes/checkLogin.asp"-->
<!--#include file="../global_includes/global.asp"-->
<!--#include file="../admin_includes/templateFunctions.asp"-->

<!--#include file="../admin_classes/page.asp"-->

<%
'Form values
dim newPageName
dim newPageType
dim template_id

this_page_id = request("page_id")
newPageName = request("newPageName")
newPageType = request("newPageType")
template_id = request("template_id")


dim redirectString
redirectString = "ia.asp?mode=editPage&page_id=" & this_page_id & "&newPageName=" & newPageName & "&page_type=" & newPageType & "&errorMsg="


'-- Check a page name was added
if len(newPageName) < 1 then
	response.Redirect(redirectString & "Please%20enter%20a%20title")
end if


'--If the template_id is "blank" use the editorial visual template
if template_id = "blank" then
	VisualTemplateName = "editorial"
	show_on_nav = true
else
	
	'--Check that we have a value for the selected template
	if len(template_id) < 1 then
		response.Redirect(redirectString & "Please%20select%20a%20page%20type")
	end if
	
	'-- set values here from template
	dim templateValues
	templateValues = split(template_id,"||")
	
	template_id = templateValues(0)
	show_on_nav = templateValues(1)
	VisualTemplateName = templateValues(2)		
end if


'--Check the value of the selected template
if len(template_id) < 1 then
	response.Redirect(redirectString & "Please%20select%20a%20page%20type")
end if

'--Check the value of the selected template
if len(VisualTemplateName) < 1 then
	response.Redirect(redirectString & "Please%20select%20a%20visual%20template")
end if


'--Check for single quotes/apostrophes
newPageName = SQLSafe(newPageName)


'--Now update the page_info lookup table
strSQL = "INSERT INTO page_info (page_id,visual_template,language_ID,page_title,page_status,friendly_url) VALUES('" & this_page_id & "','" & VisualTemplateName & "'," & session("languageID") & ",'" & newPageName & "','1','');"
RunSQL strSQL


		

'-- ---------------------------------------------------------------------------
'-- If we are creating a new document and using the template call the buildPageFromTemplate function
'-- ---------------------------------------------------------------------------
if not template_id = "blank" then
	dim page_version_id

	strSQL = "SELECT page_version_id from page_version where page_id = " & this_page_id & " order by page_version_id desc LIMIT 1"	
	set pageRS = LoadRSFromDB(strSQL)
	if not pageRS.EOF then
		page_version_id = pageRS("page_version_id")
	end if	
	call buildPageFromTemplate(this_page_id,page_version_id,template_id)
end if


response.redirect "ia.asp?page_id=" & this_page_id


%>