<%
Dim Tsql
Dim Trs
Dim selectedContentTemplate
selectedContentTemplate = request.queryString("selectedContentTemplate")
function writeTemplateList()
Tsql = ""&_
"SELECT pi.page_title, pi.page_id, p.show_on_nav, pi.visual_template "&_
"FROM page_info pi "&_
"INNER JOIN pages p ON pi.page_id = p.page_id "&_
"INNER JOIN ia ia on ia.ia_childid = p.page_id "&_
"where ia.ia_parentid = " & templateParent_id
set Trs = LoadRSFromDB(Tsql)
if not Trs.EOF then
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("
" & VbCrLf)
else
response.write("" & VbCrLf)
end if
Trs.Close
Set Trs = Nothing
end function
function buildPageFromTemplate(page_id,page_version_id,template_id)
dim templateObj
set templateObj = new cPage
call templateObj.getPage(template_id,session("securityLevel"),1,"draft")
call templateObj.getPageContent()
call templateObj.clonePage(page_version_id, templateObj.p_content_objects, session("languageID"), "fromTemplate")
end function
%>