<%'Include Data Connection%> <%'Include ADO constants include file for VBScript%> <% 'open data connection OpenConn() %> <%'Include Utility Scripts%> <% 'close data connection CloseConn() %> <% dim strFolder dim intSectionId dim strIdContentLanguage 'if the language query string exists then... If Request.QueryString("lang") <> "" Then 'if there's an underscore already in the language variable then... If InStr(Request.QueryString("lang"), "_") > 0 Then 'get the language of the section the user is editing strIdContentLanguage = Request.QueryString("lang") Else 'get the language of the section the user is editing strIdContentLanguage = "_" & Request.QueryString("lang") End If End If 'get the folder query string into the strFolder variable strFolder = Request.QueryString("folder") %>

File contained in Folder...

Select File to Upload:

- or -

<% 'BEGIN: DISPLAY SECTION INDEX 'open data connection OpenConn() %> <% On Error Resume Next dim iTotal, sLeftIndent dim bLoaded Dim bLoadSubItems Dim objDocument Dim sOpenFolders iTotal = 0 sLeftIndent = "" bLoadSubItems = true bLoaded = LoadAllSections(objDocument, bLoadSubItems) if (bLoaded = true) then 'Start building the menu table structure%>

Select an Existing Url...
<% sOpenFolders = Request.Form("hdnOpenFolders") 'This subroutine generates the HTML for the menu based on 'data loaded into the XML object DisplayNode objDocument.childNodes, iTotal, sLeftIndent, sOpenFolders%>

Open In a New Window

Selected File:

">

<% End If 'Release memory reserved by XML object Set objDocument = Nothing If err <> 0 then 'We got an error, so display the message Response.Write err.description End If 'close data connection CloseConn() 'END: DISPLAY SECTION INDEX %>