home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 32 / IOPROG_32.ISO / SOFT / SqlEval7 / MSOLAP / samples / Samples.exe / VbMdHTMLdll / MDHTML.asp next >
Encoding:
Text File  |  1998-10-30  |  2.0 KB  |  67 lines
  1. <%@ Language=VBScript %>
  2.  
  3.  
  4. <HTML>
  5. <HEAD>
  6. <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
  7. </HEAD>
  8. <BODY TEXT="DARKSLATEBLUE">
  9. <FONT FACE=Verdana>
  10. <FONT SIZE=5>
  11. MDHTML Test<BR><BR>
  12. <HR>
  13. </FONT>
  14. <BR>
  15. <%
  16.     if Not IsObject(Session("ADODBConnection")) then 
  17.         set C = Server.CreateObject("ADODB.Connection")
  18.         C.Provider = "msolap"
  19.         C.Open "provider=msolap;data source = localhost;user id=;password=;Connect timeout=120;Initial catalog=FoodMart"
  20.         Set Session("ADODBConnection") = C
  21.     end if
  22.         
  23.     set cs = Server.CreateObject("adomd.Cellset")
  24.     set cs.ActiveConnection = Session("ADODBConnection")
  25.     
  26.     Set tbl = Server.CreateObject ("MDHTML.Table")
  27.     tbl.TableHTMLStart = "<TABLE CELLPADDING=5 BORDER=0 BGCOLOR=""f7efde"">"
  28.     tbl.TableHTMLEnd = "</TABLE>"
  29.     tbl.ColHeaderHTMLStart = "<TD BGCOLOR=""#800000""><B><FONT COLOR=""ffffff"">"
  30.     tbl.ColHeaderHTMLEnd = "</B></FONT></TD>"
  31.     tbl.RowHeaderHTMLStart = "<TD>"
  32.     tbl.RowHeaderHTMLEnd = "</TD>"
  33.     tbl.DataCellHTMLStart = "<TD ALIGN=RIGHT>"
  34.     tbl.DataCellHTMLEnd = "</TD>"
  35.  
  36.     ' Query 1
  37.     szQuery1 = "select [Measures].[MeasuresLevel].Members on columns, [Time].[Year].Members on rows from Sales"
  38.     Response.Write szQuery1 + "<BR><BR>"
  39.     cs.open szQuery1
  40.     tbl.Display (cs)
  41.     cs.Close
  42.     Response.Write "<BR><BR>"
  43.  
  44.     ' Query 2
  45.     szQuery2 = "select [Measures].[MeasuresLevel].Members on columns, crossjoin ( [Time].[Year].Members, [Product].[Product Family].Members) on rows from Sales"
  46.     Response.Write szQuery2 + "<BR><BR>"
  47.     cs.open szQuery2
  48.     tbl.Display (cs)
  49.     cs.Close
  50.     Response.Write "<BR><BR>"
  51.  
  52.     ' Query 3
  53.     szQuery3 = "select  crossjoin ({WA, CA} , [Measures].[MeasuresLevel].Members) on columns, crossjoin ( [Time].[Year].Members, [Product].[Product Family].Members) on rows from Sales"
  54.     Response.Write szQuery3 + "<BR><BR>"
  55.     cs.open szQuery3
  56.     tbl.Display (cs)
  57.     cs.Close
  58.     Response.Write "<BR><BR>"
  59.  
  60. %>
  61.  
  62.  
  63.  
  64. </FONT>
  65. </BODY>
  66. </HTML>
  67.