<% Dim BaseURL Dim Folder Dim FolderList, FolderListArray, iList Folder = trim(request("Folder")) ' Create List of Folders FolderListArray = split(EditorAllowedFolders,",") for iList = 0 to UBound(FolderListArray) FolderList = FolderList & FolderListArray(iList) & "|" & TitleCase(FolderListArray(iList)) & "|" & Folder & "~" next if Folder = "" and UBound(FolderListArray) >= 0 then Folder = FolderListArray(0) if len(FolderList) > 0 then FolderList = left(FolderList,(len(FolderList)-1)) FolderList = CreateList(FolderList, "~", "|", "dropdown", "Folder", "", "Folder", "onChange=""document.location.href='?Folder='+this.value""") if EditorAllowedFolders = "" then FolderList = "" if Folder <> "" then BaseURL = EditorRootFolderPath & Folder & "\" else BaseURL = EditorRootFolderPath & Folder end if %>

<%if instr(lcase(request.ServerVariables("URL")),"create.asp") = 0 then%>

<%end if%>

Edit Page: <%=FolderList%> <%=SiteMap(Folder,trim(request("CurrentPageURL")))%>

<%if AllowDelete then%>

<%end if%>

<% Function SiteMap(SelectedFolder, SelectedPage) dim fs, folder, item, url, TempFile dim OKFileExtensions, TempArray, i dim ShowFile, TempShowFile OKFileExtensions = "asp,htm,html,php" set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(EditorRootFolderPath & SelectedFolder) if SelectedPage = "" then SelectedPage = DefaultHomePage 'Display a list of files SiteMap = "" End Function Function ClearCharacters(Str, ReplaceWith) ' Replaces non alphanumeric characters (not inc spaces) with something else dim i for i = 0 to 127 if (i >= 48 and i <= 57) or (i >= 65 and i <= 90) or (i >= 97 and i <= 122) or i <= 32 then ' Do nothing else Str = replace(Str,Chr(i),ReplaceWith) end if next ClearCharacters = Str End Function Function PageProductName(Page) ' Formats page.asp name to product dim Temp Temp = Page if Page <> "" then Temp = replace(Temp,"_"," ") Temp = replace(Temp,DefaultFileExtension,"") Temp = TitleCase(Temp) end if PageProductName = Temp End Function %>