bueno tampoco me funciono (realizando una consulta valida a una bd), pero encontre esto y si me funciono el porque no lo se
<%
path=left(Request.ServerVariables("PATH_INFO"),Ins trRev(Request.ServerVariables("PATH_INFO"),"/"))
path=right(path,len(path)-1)
if InStr(path,"/") then
path=left(path,len(path)-1)
end if
Dim catnom(), valor(), caminho
caminho="/"&path
With Server.CreateObject("OWC.Chart")
set c = .constants
With .charts.add
.HasTitle=True
if .HasTitle then
.Title.Caption = "Frutas Hoje"
.Title.Font.Size = 10
.Title.Font.Name = "Tahoma"
.Title.Font.Bold = True
.Title.Font.Italic = False
.Title.Font.Underline = False
end if
.HasLegend = True
if .HasLegend then
.Legend.Font.Size = 10
.Legend.Font.Name = "Tahoma"
.Legend.Font.Bold = False
.Legend.Font.Italic = False
.Legend.Font.Underline = False
end if
tipo=11
Select Case tipo
Case 1
.Type = c.chChartTypeArea
Case 2
.Type = c.chChartTypeAreaStacked
Case 3
.Type = c.chChartTypeBarClustered
Case 4
.Type = c.chChartTypeBarStacked
Case 5
.Type = c.chChartTypeBubble
Case 6
.Type = c.chChartTypeColumnClustered
Case 7
.Type = c.chChartTypeColumnStacked
Case 8
.Type = c.chChartTypeLine
Case 9
.Type = c.chChartTypeLineMarkers
Case 10
.Type = c.chChartTypeLineStacked
Case 11
.Type = c.chChartTypePie
Case Default
'.Type = c.chChartTypeArea3D
'.Type = c.chChartTypeBar3D
'.Type = c.chChartTypeColumn3D
'.Type = c.chChartTypeColumnStacked3D
'.Type = c.chChartTypeCombo
'.Type = c.chChartTypeCombo3D
End Select
x=5
ReDim catnom(x), valor(x)
catnom(0) = "Pera"
valor(0) = 10
catnom(1) = "Maça"
valor(1) = 20
catnom(2) = "Uva"
valor(2) = 10
catnom(3) = "Banana"
valor(3) = 20
catnom(4) = "Kiwi"
valor(4) = 30
catnom(5) = "Laranja"
valor(5) = 20
With .seriescollection.add
.caption = "Frutas"
.setdata c.chdimcategories,c.chdataliteral, catnom
.setdata c.chdimvalues,c.chdataliteral, valor
End With
End With
.border.color = c.chColorNone
Set arquivo=Server.CreateObject("Scripting.FileSystemO bject")
arquivo=arquivo.GetTempname & ".gif"
.ExportPicture Server.MapPath(caminho) &"/"& arquivo, "gif", 200, 200
Response.Write "<img src="""&arquivo&""">"
End With
%>