|
|
<%
' Instantiate objects required to determine enabled catalogs.
set objSearchAdmin = Server.CreateObject("Search.SearchAdmin.1")
set objSearchServer = objSearchAdmin.SearchServer
set objSearchCatalog = objSearchServer.SearchCatalogs
' Enumerate the enabled catalogs.
for each objSearchCatalog in objSearchCatalog
if LCase(objSearchCatalog.Status) = "enabled" then
strName = objSearchCatalog.Name
if CatalogList = "" then
CatalogList = strName
else
CatalogList = CatalogList & "," & strName
end if
end if
next
if CatalogList = "" then
NoCatalogs=true
end if
if NoCatalogs = true then
L_NoCatalogs_text = "No catalogs are available for searching. Please contact the administrator for this site."
Response.write "" & L_NoCatalogs_text & ""
else
CatalogArray = split(CatalogList,",",-1,1)
%>
|
|
