ASP ,Access and OWC10. please its very urget

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
 
°

°°°MS°Publisher°°°

Really, how interesting.

1) Possibly
2) Put them in a text frame next to the mouse-over
3) Stick a few text frames around the page and you will be right.
4) Your code is such garbage it means nothing.

--
The US should free all those
illegally held prisoners they are
torturing, abusing and denying
human rights being held at
Guantanamo Bay.
 
D

David Bartosik - MS MVP

If your topic is urgent it is all the more important that you post and
participate in the forum that is applicable to your technology. As this
forum is for users of Microsoft Publisher and thus not relevant to ASP your
needs are not being met properly. I would urge you to visit the ASP forums.
When looking for a forum the group names read left to right, so after
"microsoft.public" comes the name of the product/technology, and after that
would be a product functionality, if applicable, that narrows that groups
focal point.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top