<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% ' Copyright (c) 1998 Microsoft Corporation ' ' Module Name: ' iicache2.asp ' Abstract: ' Loads new nodes into the cached tree list. ' Author: ' Taylor Weiss (taylorw) 8-Oct-1998 ' Revision History: ' 8-Oct-1998 taylorw created ' ' Query String: ' ' sname - ADsPath of the node in the tree being expanded. This may ' be a site node, in which case is does not contain the ' immediate parent of the nodes we want to cache. ' ' fspath - The file system path of the object. Since the folder may ' not exist in the metabase, we need this to enumerate ' physical directories. ' On Error Resume Next Const MD_PATH_NOT_FOUND = &H80070003 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Global Variables ' Dim strRootADsPath, strRootFsPath Dim objRoot, bRootExists Dim bIsWeb '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Script setup strRootADsPath = Request.QueryString("sname") strRootFsPath = Request.QueryString("fspath") ' Get the ads container object that will be the parent of the new nodes. set objRoot = GetObject( strRootADsPath ) if InStr( objRoot.Class, "Server" ) <> 0 then strRootADsPath = strRootADsPath & "/ROOT" set objRoot = GetObject( strRootADsPath ) end if if err.Number = MD_PATH_NOT_FOUND then bRootExists = False err.Clear else ' If we got some other error, or we get errors here then something ' really odd happened. bRootExists = True if strRootFsPath = "" then strRootFsPath = objRoot.Path end if end if if InStr( UCase(strRootADsPath), "W3SVC" ) <> 0 then bIsWeb = True else bIsWeb = False end if %>