<% function Body() if (xUser.attributes.getnamedItem("name") is nothing) then Body = OpenRootFile("\template\home.htm") else Body = "" 'get basepath for FCKeditor dim sBasePath 'get drectory path using bParts from admin_lang.asp if (bParts="") then 'location of FCKeditor if Acidcat CMS installed in root directory sBasePath = "/fckeditor/" else 'location of FCKeditor if Acidcat CMS installed in sub directory sBasePath = "/" & bParts & "/fckeditor/" end if 'initialise FCKeditor Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath oFCKeditor.Value = lang_admin_item_add_004 oFCKeditor.Config("AutoDetectLanguage") = false oFCKeditor.Config("DefaultLanguage") = Site_language oFCKeditor.Config("SkinPath") = sBasePath + "editor/skins/silver/" oFCKeditor.Config("pageLinks") = myLinks oFCKeditor.ToolbarSet = "Acidcat" oFCKeditor.Height = 450 Body = Body & oFCKeditor.CreateHtml("content") end if if (Body = "") then Body = OpenRootFile("\errors\404.htm") end function %>