<% Dim CurrentPageURL, CurrentPageCode, PageTitle, PageFolder dim Duplicate dim Template CurrentPageURL = trim(request("CurrentPageURL")) PageTitle = trim(request("PageTitle")) PageFolder = trim(request("PageFolder")) Duplicate = trim(request("Duplicate")) if CurrentPageURL = "" then CurrentPageURL = DefaultHomePage Dim i For i = 1 To Request.Form("CurrentPageCode").Count CurrentPageCode = CurrentPageCode & Request.Form("CurrentPageCode")(i) Next if Duplicate = "" then Duplicate = false else Duplicate = true end if %>
<% ' Save content to file if CurrentPageCode <> "" and PageTitle <> "" then dim TempCurrentPageCode ' Page Code TempCurrentPageCode = CurrentPageCode CurrentPageCode = GetContent(CurrentPageCode, "","") if CurrentPageCode = "" then CurrentPageCode = TempCurrentPageCode ' In case of error CurrentPageCode = replace(CurrentPageCode,"","") CurrentPageCode = replace(CurrentPageCode,"","") ' Page Title PageTitle = ClearHTMLTags(PageTitle,0) PageTitle = ClearCharacters(PageTitle, "") PageTitle = replace(lcase(trim(PageTitle))," ", "_") & DefaultFileExtension ' Header/Footer if DreamweaverTemplate then Template = ReadFile(BaseURL & DreamweaverTemplatePath) TemplateHeader = GetContent(Template, "","") TemplateFooter = GetContent(Template, "","") TemplateFooter = TemplateFooter & "" end if ' Dont show template header/footer if a duplicate is made from another page if Duplicate = false then CurrentPageCode = TemplateHeader & "" & CurrentPageCode & "" & TemplateFooter if CurrentPageCode <> "" then ' Temp Folder dim TempPageFolder TempPageFolder = PageFolder if TempPageFolder <> "" then TempPageFolder = TempPageFolder & "\" if Folder <> "" then TempPageFolder = "" ' Check if page exists already if ReportFileStatus(BaseURL & TempPageFolder & PageTitle) then response.Write "" & vbcrlf else ' Create file Call WriteToFile(CurrentPageCode, BaseURL & TempPageFolder & PageTitle, true) if err.number <> 0 then response.Write "" & vbcrlf err.clear else response.Write "" & vbcrlf end if end if else response.Write "" & vbcrlf err.clear end if end if %>
<% FolderList = replace(FolderList,"") if FolderList <> "" then response.write "Folder " & FolderList %> Page Title
<% Dim CurrentPageSource if CurrentPageCode = "" then CurrentPageSource = TemplateNewPageSource else CurrentPageSource = CurrentPageCode end if if Duplicate then CurrentPageSource = ReadFile(BaseURL & CurrentPageURL) ' Get Page source if GetContent(CurrentPageSource, "","") <> "" then CurrentPageSource = GetContent(CurrentPageSource, "","") response.write "" end if %>