J
Jerry
Hello Everyone
I am using Asp in Owc10
my question are
1. If the client does not have the office on his system
what will happen?
2. I need to show the values at the time mouse over.
3. In this page i need to show some other informations
Code
<% Language = VBScript %>
<%
Response.Buffer = TRUE
Response.ContentType = "image/gif"
Dim sCat
sCat = Request.QueryString("Sbl")
Dim conn, rs
Set conn = CreateObject("ADODB.Connection")
conn.Open "provider=microsoft.jet.oledb.4.0; data
source=" & Server.MapPath(".")& "\Data\xyz.mdb"
Set rs = CreateObject("ADODB.Recordset")
rs.Open "select * from table1, conn, 3
ReDim aNames(rs.RecordCount - 1)
ReDim aSales(rs.RecordCount - 1)
Dim i
Do While Not rs.EOF
aNames(i) = rs.Fields("CompanyName")
aSales(i) = rs.Fields("Sales")
i = i + 1
rs.MoveNext
Loop
'Close the connection to the database.
rs.close
conn.Close
Set rs= Nothing
Set conn = Nothing
'Create a new bar chart.
Dim ChartSpace1, Cht, c
Set ChartSpace1 = CreateObject("OWC10.ChartSpace")
Set c = Chartspace1.Constants
Set cht = Chartspace1.Charts.Add
'cht.Type = c.chChartTypeBarClustered
Chartspace1.DisplayFieldButtons = true
'Add the data to the chart.
cht.SetData c.chDimCategories, c.chDataLiteral, aNames
cht.SetData c.chDimSeriesNames,
c.chDataLiteral, "Price"
cht.SetData c.chDimCategories, c.chDataLiteral, aNames
cht.SetData c.chDimCategories, c.chDataLiteral, aSales
cht.SeriesCollection(0).SetData c.chDimValues,
c.chDataLiteral, aNames
cht.SeriesCollection(0).SetData c.chDimValues,
c.chDataLiteral, aSales
'Format the chart elements.
cht.SeriesCollection(0).Interior.Color = "Rosybrown"
cht.PlotArea.Interior.Color = "Wheat"
Chartspace1.Border.Color = c.chColorNone
'Return the new chart in GIF format.
Response.BinaryWrite Chartspace1.GetPicture ("gif",
200, 200)
' Response.Write Chartspace1.XMLData
Response.End
%>
Thanks
Jerry
I am using Asp in Owc10
my question are
1. If the client does not have the office on his system
what will happen?
2. I need to show the values at the time mouse over.
3. In this page i need to show some other informations
Code
<% Language = VBScript %>
<%
Response.Buffer = TRUE
Response.ContentType = "image/gif"
Dim sCat
sCat = Request.QueryString("Sbl")
Dim conn, rs
Set conn = CreateObject("ADODB.Connection")
conn.Open "provider=microsoft.jet.oledb.4.0; data
source=" & Server.MapPath(".")& "\Data\xyz.mdb"
Set rs = CreateObject("ADODB.Recordset")
rs.Open "select * from table1, conn, 3
ReDim aNames(rs.RecordCount - 1)
ReDim aSales(rs.RecordCount - 1)
Dim i
Do While Not rs.EOF
aNames(i) = rs.Fields("CompanyName")
aSales(i) = rs.Fields("Sales")
i = i + 1
rs.MoveNext
Loop
'Close the connection to the database.
rs.close
conn.Close
Set rs= Nothing
Set conn = Nothing
'Create a new bar chart.
Dim ChartSpace1, Cht, c
Set ChartSpace1 = CreateObject("OWC10.ChartSpace")
Set c = Chartspace1.Constants
Set cht = Chartspace1.Charts.Add
'cht.Type = c.chChartTypeBarClustered
Chartspace1.DisplayFieldButtons = true
'Add the data to the chart.
cht.SetData c.chDimCategories, c.chDataLiteral, aNames
cht.SetData c.chDimSeriesNames,
c.chDataLiteral, "Price"
cht.SetData c.chDimCategories, c.chDataLiteral, aNames
cht.SetData c.chDimCategories, c.chDataLiteral, aSales
cht.SeriesCollection(0).SetData c.chDimValues,
c.chDataLiteral, aNames
cht.SeriesCollection(0).SetData c.chDimValues,
c.chDataLiteral, aSales
'Format the chart elements.
cht.SeriesCollection(0).Interior.Color = "Rosybrown"
cht.PlotArea.Interior.Color = "Wheat"
Chartspace1.Border.Color = c.chColorNone
'Return the new chart in GIF format.
Response.BinaryWrite Chartspace1.GetPicture ("gif",
200, 200)
' Response.Write Chartspace1.XMLData
Response.End
%>
Thanks
Jerry