In a ASP I have this:

<%
Option Explicit
Dim cat, cube
Set cat = Server.CreateObject("ADOMD.Catalog")
cat.ActiveConnection = Application("OLAPconn")
Response.Write cat.Name & "<br/>"
For Each cube In cat.CubeDefs
Response.Write cube.Name & "<br/"
Next
%>

The Application("OLAPconn") is defined in global.asa as:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart()
Application("OLAPconn")="Provider=MSOLAP.2;" & _
"Integrated Security=SSPI;" & _
"Data Source=MyServer;" & _
"Initial Catalog=FoodMart 2000;"
End Sub
</SCRIPT>

There is no error. But the return is this:

FoodMart 2000
Budget

That's it. The remaining cubes:

HR
Sales
Trained Cube
Warehouse
Warehouse and Sales

are not being returned at all. Just the first is. I suppose the CubeDefs is not working. This in Windows 2000 SP3 Microsoft SQL Server 2000 SP3 MDAC 2.7 SP1 Refresh Microsoft Internet Explorer 5.5 SP2.

Any ideas how to get CubeDefs to work? Thanks.

Roles in all the cubes are:

Administrator
Everyone
IIS_MachineName
User
Domain Usrs
Guests
Network

All of these have logon and login rights in SQL 2000 Server. Maybe there is a login and/or a logon right that needs to be granted somewhere.

--
George Hester
__________________________________