Como muestra el codigo original aqui se agregan las categorias , pero quiero q se agrege con la base datos y en codigo de abajo solo me muestra el ultimo resultado entonces klo que tengo q suponer es que requiere abrir y cerras llaves para decir que es otra categoria que puedo hacer
Código Javascript:
Ver original
{ "balloonText": "<b>[[title]]</b><br><span style='font-size:14px'>[[category]]: <b>[[value]]</b></span>", "fillAlphas": 0.8, "labelText": "[[value]]", "lineAlpha": 0.3, "title": "BURO VICTORIA K.S x C/T", "type": "column", "color": "#000000", "valueField": "BURO VICTORIA K.S x C/T", }
Código Javascript:
Ver original
"graphs": [ { "balloonText": "<b>[[title]]</b><br><span style='font-size:14px'>[[category]]: <b>[[value]]</b></span>", "fillAlphas": 0.8, "labelText": "[[value]]", "lineAlpha": 0.3, <% Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("SSP.mdb")) strSQL = "SELECT Pieza FROM HistEstaPiezaHora where Ubicacion='"&Depa&"' and Fecha=#"&Fecha&"#" Set objRS = oConn.Execute(strSQL) while (not objRS.Eof) %> "title": "<%Response.Write("" & objRS("Pieza") & "")%>", <% objRS.MoveNext wend oConn.Close set objRS = nothing set oConn = nothing %> "type": "column", "color": "#000000", <% Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("SSP.mdb")) strSQL = "SELECT Pieza FROM HistEstaPiezaHora where Ubicacion='"&Depa&"' and Fecha=#"&Fecha&"#" Set objRS = oConn.Execute(strSQL) while (not objRS.Eof) %> "valueField": "<%Response.Write("" & objRS("Pieza") & "")%>", <% objRS.MoveNext wend oConn.Close set objRS = nothing set oConn = nothing %> },{ "balloonText": "<b>[[title]]</b><br><span style='font-size:14px'>[[category]]: <b>[[value]]</b></span>", "fillAlphas": 0.8, "labelText": "[[value]]", "lineAlpha": 0.3, <% Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("SSP.mdb")) strSQL = "SELECT Pieza FROM HistEstaPiezaHora where Ubicacion='"&Depa&"' and Fecha=#"&Fecha&"#" Set objRS = oConn.Execute(strSQL) while (not objRS.Eof) %> "title": "<%Response.Write("" & objRS("Pieza") & "")%>", <% objRS.MoveNext wend oConn.Close set objRS = nothing set oConn = nothing %> "type": "column", "color": "#000000", <% Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("SSP.mdb")) strSQL = "SELECT Pieza FROM HistEstaPiezaHora where Ubicacion='"&Depa&"' and Fecha=#"&Fecha&"#" Set objRS = oConn.Execute(strSQL) while (not objRS.Eof) %> "valueField": "<%Response.Write("" & objRS("Pieza") & "")%>", <% objRS.MoveNext wend oConn.Close set objRS = nothing set oConn = nothing %> },{ "balloonText": "<b>[[title]]</b><br><span style='font-size:14px'>[[category]]: <b>[[value]]</b></span>", "fillAlphas": 0.8, "labelText": "[[value]]", "lineAlpha": 0.3, "title": "BURO VICTORIA K.S x C/T", "type": "column", "color": "#000000", "valueField": "BURO VICTORIA K.S x C/T", }]