Response.Write(widthpercent & "% >" & chr(13))
Response.Write(" <IMG SRC=""" & barImage & cstr(i2+1) &".gif"& """ WIDTH=100% ")
Response.Write("HEIGHT=" & CInt(data2(i))/cint(hi) * cint(graphHeight) & ">")
Response.Write(chr(13))
response.Write(labels2(i))
Response.Write(" </TD>" & chr(13))
end if
Next
Response.Write("</TR>")
Response.Write("<TR><TD VALIGN=BOTTOM ALIGN=RIGH>>0</TD></TR>")
'Write footer/labels
Response.Write("<TR><TD ALIGN=RIGHT VALIGN=BOTTOM><font size=1 face='MS Sans Serif'>")
Response.Write(axislabel2 & "</font></TD>" & chr(13))
for i = LBound(labels2) to UBound(labels2)
'Response.Write("<TD VALIGN=BOTTOM ALIGN=CENTER><font size=1 face='MS Sans Serif'>" & labels(i))
Response.Write("<TD VALIGN=BOTTOM ALIGN=CENTER><font size=1 face='MS Sans Serif'>")
Response.Write("</font></TD>" & chr(13))
next
Response.Write("</TR>" & chr(13))
Response.Write("</TABLE>")
end sub
%>
<%
'set rs=conn.execute(sql)
n=cint(rs2.recordcount)
Dim dataArray2()
Redim dataArray(n)
i=0
while not rs2.eof
dataArray(i)=rs2("fechatot")
i=i+1
rs2.movenext
wend
Dim labelArray2()
Redim labelArray2(n)
j=0
rs2.movefirst
while not rs2.eof
labelArray(j)=rs2("consecutivo")
j=j+1
rs2.movenext
wend
'end if
%>
<%
BarChart2 dataArray, labelArray,"Tiempo establecido para entrega"," "
%>
como puedo solucionar esto?