<%
set conn=server.createobject("adodb.connection")
'conn.open "data source=alexander;provider=msolap;"
conn.open "Provider=MSOLAP.2;Data Source=yang;Initial Catalog=FootMart"
conn.defaultdatabase="foodmart"
set cst=server.createobject("adomd.cellset")
cst.source=strmdx:set cst.activeconnection=conn
cst.open
set axs=cst.axes(1)
rows=axs.positions.count-1
cols=cst.axes(0).positions.count-1
response.write "<table>"
response.write "<tr><td></td>"
for j=0 to cols
response.write "<td>"+cst.axes(0).positions(j).members(0).caption+"</td>"
next
response.write "</tr>"
for i=0 to rows
response.write "<tr><td>"+axs.positions(i).members(0).caption+"</td>"
for j=0 to cols
response.write "<td>"+cst(j,i).formateedvalue+"</td>"
next
next
response.write "</table>"
cst.close
conn.close
response.write "<td>"
%>