como faço grafico no asp

[mizzle 0]

Ola alguem sabe me informar sobre grafico no asp?

[Marcelo Barcellos 0]

Tenho um exemplo...É em PURO HTML...Está numa função do VB, mas, basta voce adapatar para o ASP. Verifique que existem classes que devem verificadas também.

Sub getGrafico(ByVal varDados As Variant, _                ByVal varRotulo As Variant, _                ByVal dsTitulo As String, _                ByVal dsEixo As String, _                ByRef strHTMLGrafico As Variant, _                ByRef varErro As Variant, _                Optional ByVal NrAlturaGrafico As Long = 300, _                Optional ByVal NrLarguraGrafico As Long = 600, _                Optional ByVal strImagemGrafico As String = "images/tool-bkgd.gif")On Error GoTo TrataErroDim strHTMLRetorno As StringDim Aux As LongDim i As LongDim Largura As LongDim strMetodo As String    strMetodo = App.EXEName & "." & "GetGrafico"            strHTMLRetorno = strHTMLRetorno & "<TABLE border=0 CELLSPACING=0 CELLPADDING=1 BORDER=0 WIDTH=""100%"">" & Chr(13)  strHTMLRetorno = strHTMLRetorno & "<TR><TH COLSPAN=" & UBound(varDados) - LBound(varDados) + 2 & " class=""cabecalho"">"  strHTMLRetorno = strHTMLRetorno & "" & dsTitulo & "</TH></TR>" & Chr(13)  strHTMLRetorno = strHTMLRetorno & "<TR><TD VALIGN=TOP ALIGN=RIGHT Class=""Dados"">" & Chr(13)  '====================================  'ENCONTRA O MAIOR VALOR  '====================================  Aux = varDados(LBound(varDados))    For i = 0 To UBound(varDados)      If varDados(i) > Aux Then Aux = varDados(i)  Next    Largura = CInt((1 / (UBound(varDados) - LBound(varDados) + 1)) * 100)    For i = LBound(varDados) To UBound(varDados)        strHTMLRetorno = strHTMLRetorno & " <TD VALIGN=BOTTOM ROWSPAN=2 WIDTH=" & Largura & "% Class=""Dados"">" & Chr(13)        strHTMLRetorno = strHTMLRetorno & varDados(i)        strHTMLRetorno = strHTMLRetorno & "  <IMG SRC=""" & strImagemGrafico & """ WIDTH=100% HEIGHT=" & CInt(varDados(i) / Aux * NrAlturaGrafico) & ">" & Chr(13)        strHTMLRetorno = strHTMLRetorno & " </TD>" & Chr(13)    Next  strHTMLRetorno = strHTMLRetorno & "</TR>"  strHTMLRetorno = strHTMLRetorno & "<TR><TD VALIGN=BOTTOM ALIGN=RIGHT Class=""Dados""><b></b></TD></TR>"  '====================================  'RODAPE  '====================================  strHTMLRetorno = strHTMLRetorno & "<TR><TD ALIGN=RIGHT VALIGN=BOTTOM Class=""Dados"">" & eixos & "</TD>" & Chr(13)    For i = LBound(varRotulo) To UBound(varRotulo)    strHTMLRetorno = strHTMLRetorno & "<TD VALIGN=BOTTOM ALIGN=CENTER Class=""Dados"">" & varRotulo(i) & "</font></TD>" & Chr(13)  Next    strHTMLRetorno = strHTMLRetorno & "</TR>" & Chr(13)  strHTMLRetorno = strHTMLRetorno & "</TABLE>"  '===================================='RETORNA STRING HTML'====================================strHTMLGrafico = strHTMLRetornoTrataErro:    Call VerificaErro(varErro, strMetodo)End Sub