" & VbCrLf)
response.write("" & VbCrLf)
response.write("
" & VbCrLf)
'--LOGOUT BUTTON--
response.write("Site Explorer
" & VbCrLf)
if useLanguageVersions = true then
response.write("
" & VbCrLf)
response.write("" & VbCrLf)
call writeLanguageSelection("ia.asp")
response.write("
" & VbCrLf)
end if
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("
" & VbCrLf)
response.write("Logged in as: " & session("name") & "
") response.write("" & VbCrLf) response.write("" & VbCrLf)
response.write("![]()
" & VbCrLf) response.write("
" & VbCrLf)
response.write("" & VbCrLf) response.write("
" & VbCrLf)
call writeAddPageForm()
response.write("
" & VbCrLf)
'-- If we are editting an existing page
case "editPage"
dim pageObj
set pageObj = new cPage
call pageObj.getPage(this_page_id,session("securityLevel"),session("languageID"),"draft")
'-- If we failed to create a page object we are in a different language so offer the opportunity to create a language specific version here
if pageObj.p_id = "undefined" then
response.write("" & VbCrLf)
response.write("![]()
" & VbCrLf) response.write("
" & VbCrLf)
response.write("" & VbCrLf) response.write("
" & VbCrLf)
call writeAddLanguagePageForm()
response.write("
" & VbCrLf)
else
dim this_page_permissions
this_page_permissions = split(pageObj.p_page_permissions,",")
dim this_visual_template
if isNull(pageObj.p_visual_template) or len(pageObj.p_visual_template) < 1 then
this_visual_template = "default"
else
this_visual_template = pageObj.p_visual_template
end if
response.write("" & VbCrLf)
call writeEditorTabs()
response.write("
" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("
" & VbCrLf)
end if
case "manageImages"
response.write("" & pageObj.p_type & " Editor
" & VbCrLf)
response.write("
" & VbCrLf)
response.write("") call writeBreadcrumb(pageObj.p_id) response.write("" & pageObj.p_title & "") response.write("
" & VbCrLf) '-- The default case is the page information select case editType case "status" call writeStatusInformation() case "ia" call writeIAInformation() case "content" call pageObj.getPageContent() call writeContentInformation() call writeContentForms(pageObj.p_content_objects) case "meta" call writeMetaInformation() end select response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("
" & VbCrLf)
case "manageFiles"
response.write("Image Library Management
" & VbCrLf)
select case editType
case "view"
call viewAllImages()
case "addItem"
call addEditImage(null)
case "edit"
call addEditImage(request.querystring("imageID"))
case "renameFolder"
call renameImageFolder()
end select
response.write("
" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("
" & VbCrLf)
case "manageLinks"
response.write("File Library Management
" & VbCrLf)
select case editType
case "view"
call viewAllFiles()
case "addItem"
call addEditFile(null)
case "edit"
call addEditFile(request.querystring("fileID"))
case "renameFolder"
call renameFilesFolder()
end select
response.write("
" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("
" & VbCrLf)
case "manageCategories"
response.write("Link Library Management
" & VbCrLf)
select case editType
case "view"
call viewAllLinks()
case "addItem"
call addEditLink(null)
case "edit"
call addEditLink(request.querystring("linkID"))
case "renameFolder"
call renameLinksFolder()
end select
response.write("
" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("
" & VbCrLf)
case "manageUsers"
response.write("Category Management
" & VbCrLf)
select case editType
case "view"
call viewAllCategories()
case "addItem"
call addEditCategory(cat_id)
end select
response.write("
" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("
" & VbCrLf)
case "manageGroups"
response.write("User Management
" & VbCrLf)
select case editType
case "view"
call viewAllUsers()
case "addItem"
call addEditUser(user_id)
end select
response.write("
" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("
" & VbCrLf)
case "managePlugins"
response.write("Group Management
" & VbCrLf)
select case editType
case "view"
call viewAllGroups()
case "addItem"
call addEditGroup(group_id)
end select
response.write("
" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("
" & VbCrLf)
case else
response.write(" " & VbCrLf)
end select
response.write("Plugin Management
" & VbCrLf)
select case editType
case "view"
call viewAllPlugins()
case "addPlugin"
call addEditPlugin(request("plugin_id"))
case "manage"
call managePlugin()
end select
response.write("
" & VbCrLf)
response.write("