<% Response.Buffer=true %>
<!--#include file="../global_includes/global.asp"-->
<!--#include file="../admin_includes/querystringValues.asp"-->
<!--#include file="../admin_includes/checkLogin.asp"-->

<!--#include file="../admin_classes/page.asp"-->


<%
'-- Create the page object
dim pageObj
set pageObj = new cPage
call pageObj.getPage(this_page_id,session("securityLevel"),session("languageID"),"draft")

dim currentDate
dim type_id
dim page_content_count
dim language_id
dim content_sortorder
dim db_table

currentDate = getCurrentDateTime()
type_id = request.querystring("type_id")
page_content_count = request.querystring("page_content_count")
language_id = request.querystring("language_id")
content_sortorder = page_content_count + 1
db_table = convertTypeIdToDbTable(type_id)

if not db_table = "" then
	call pageObj.addContentToPage(this_page_id,pageObj.p_version_id,db_table,type_id,language_id,content_sortorder,currentDate)
	response.redirect "ia.asp?mode=editPage&page_id=" & this_page_id & "&editType=content"
else
	response.redirect "ia.asp?mode=editPage&page_id=" & this_page_id & "&editType=content&errorMsg=Database%20error"	
end if

%>