el codigo que tengo hecho es:
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<TITLE>Chart Example</TITLE>
<!--#include file="include/adovbs.inc"-->
<%
Function ExportChartToGIF(objCSpace, strAbsFilePath, strRelFilePath)
Dim strFileName
Randomize
strFileName = Timer & Rnd & ".gif"
objCSpace.ExportPicture strAbsFilePath & "\" & strFileName, "gif", 600, 350
ExportChartToGIF = strRelFilePath & "/" & strFileName
End Function
Sub CleanUpGIF(GIFpath)
Dim objFS
Dim objFolder
Dim gif
set objFS = Server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFS.GetFolder(GIFpath)
for each gif in objFolder.Files
if instr(gif.Name, ".gif") > 0 and DateDiff("n", gif.DateLastModified, now) > 10 then
objFS.DeleteFile GIFpath & "\" & gif.Name, True
end if
next
set objFolder = nothing
set objFS = nothing
End Sub
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Grafica asp</title>
</head>
<body>
<%
dim objChartSpace
dim objChart
dim objSeries
dim objConn
dim objRS
dim c
dim series
dim strChartAbsPath
dim strChartRelPath
dim strChartFile
strChartAbsPath = Server.MapPath("/")
strChartRelPath = ""
set objChartSpace = Server.CreateObject("OWC.Chart")
set objChart = objChartSpace.Charts.Add()
set c = objChartSpace.Constants
objChart.Type = c.chChartTypeLineMarkers
objChart.HasLegend = True
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DSN=LombosPru;'';'';"
set objRS = Server.CreateObject("ADODB.Recordset")
set objRS.ActiveConnection = objConn
objRS.CursorType = adOpenStatic
objRS.CursorLocation = adUseClient
objRS.Open "SELECT venta.Data, Sum(venta.KgControl) AS SumaDeKgControl "&_
"FROM ventas
"WHERE (venta.Id)='251') "&_
"GROUP BY venta.Data "&_
"HAVING ((venta.Data)>#10/1/2005# And (venta.Data)<=#15/10/2005#))"&_
"ORDER BY venta.Data"
set objChartSpace.DataSource = objRS
objChart.Type = c.chChartTypeLineMarkers
objChart.SetData c.chDimSeriesNames, 0, "data"
for each objSeries in objChart.SeriesCollection
objSeries.SetData c.chDimCategories, 0, "data"
objSeries.SetData c.chDimValues, 0, "SumaDeKgControl"
next
for each axis in objChart.Axes
axis.HasTitle = True
if axis.Type = c.chCategoryAxis then
axis.Title.Caption = "Data"
else
axis.Title.Caption = "Kilogramos"
end if
next
strChartFile = ExportChartToGIF(objChartSpace, strChartAbsPath, strChartRelPath)
Response.Write "<IMG SRC=""" & strChartFile & """>" & "<P>"
CleanUpGIF strChartAbsPath
objRS.Close
set objRS = nothing
set objConn = nothing
set objSeries = nothing
set objChart = nothing
set objChartSpace = nothing
%>
</body>
</html>
y el grafico resultante me da una cosa rara
para cada día me sale un pundo distinto al anterior en lugar de un alinea, las fechas no se ven me muestra todos los días en lugar de , por ejemplo, cada 15 días.
un salduo