<% 'open data connection OpenConn() %> <%'Include Utility Scripts%> <% On Error Resume Next dim iTotal, sLeftIndent dim bLoaded Dim bLoadSubItems Dim objDocument Dim sOpenFolders iTotal = 0 sLeftIndent = "" 'Check if we clicked an "on demand" folder if (Request.Form <> "") then bLoadSubItems = true else bLoadSubItems = false end if bLoaded = LoadAllSections(objDocument, bLoadSubItems) if (bLoaded = true) then 'Start building the menu table structure%>

Select a Section: <% 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%>

<% 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() %>