", "Container: " + sContainer + " contains " + CStr(oContainer.Count) + " elements.") SA_IsParentNode = TRUE End If Set oContainer = nothing End Function Function GetHelpLoc() GetHelpLoc = "help" + "/" End Function Function SA_TreeEmitPageHeader() %> <% Call SA_EmitAdditionalStyleSheetReferences("") %> <% End Function Function SA_TreeEmitPageFooter() %> <% End Function Function WriteLine(ByRef sLine) Response.Write(sLine+vbCrLf) End Function Private Function GetImageParam(ByVal sWhichImage) Dim sImage Select Case (UCase(sWhichImage)) Case UCase("fieldImageLeaf") sImage = Request("fieldImageLeaf") If ( Len(sImage) <= 0 ) Then sImage = "images/book_page.gif" End If Case UCase("fieldImageNodeOpened") sImage = Request("fieldImageNodeOpened") If ( Len(sImage) <= 0 ) Then sImage = "images/book_closed.gif" End If Case UCase("fieldImageNodeClosed") sImage = Request("fieldImageNodeClosed") If ( Len(sImage) <= 0 ) Then sImage = "images/book_opened.gif" End If Case Else sImage = Request("fieldImageLeaf") If ( Len(sImage) <= 0 ) Then sImage = "images/book_page.gif" End If End Select GetImageParam = sImage End Function %>