ya lo resolví gracias todos modos por la ayuda , pero se requiere q este foro tenga gente disponible para ayudar por q ya van varias veces y ni comentario por lo menos, pero bueno la ayuda es voluntaria.
Como lo resolvi solo era
Código Javascript
:
Ver original"graphs": [ <%
Dim P
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("SSP.mdb"))
strSQL = "SELECT Pieza FROM HistEPieza where Ubicacion='"&Depa&"' and Fecha=#"&Fecha&"#"
Set objRS = oConn.Execute(strSQL)
while (not objRS.Eof)
P=objRS("Pieza")
%>{
"balloonText": "<b>[[title]]</b><br><span style='font-size:14px'>[[category]]: <b>[[value]]</b></span>",
"fillAlphas": 0.8,
"labelText": "[[value]]",
"lineAlpha": 0.3,
"title": "<%Response.Write("" & P & "")%>",
"type": "column",
"color": "#000000",
"valueField": "<%Response.Write("" & P & "")%>",
},<%
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>]