Imports InfoSoftGlobal Partial Class BasicExample_BasicDataXML Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load ' Generate chart in Literal Control FCLiteral.Text = CreateCharts() End Sub Public Function CreateCharts() As String 'This page demonstrates the ease of generating charts using FusionCharts. 'For this chart, we've used a string variable to contain our entire XML data. 'Ideally, you would generate XML data documents at run-time, after interfacing with 'forms or databases etc.Such examples are also present. 'Here, we've kept this example very simple. 'Create an XML data document in a string variable Dim strXML As String strXML = "" strXML = strXML & "<graph caption='Monthly Unit Sales' xAxisName='Month' yAxisName='Units' decimalPrecision='0' formatNumberScale='0'>" strXML = strXML & "<set name='Jan' value='462' color='AFD8F8' />" strXML = strXML & "<set name='Feb' value='857' color='F6BD0F' />" strXML = strXML & "<set name='Mar' value='671' color='8BBA00' />" strXML = strXML & "<set name='Apr' value='494' color='FF8E46'/>" strXML = strXML & "<set name='May' value='761' color='008E8E'/>" strXML = strXML & "<set name='Jun' value='960' color='D64646'/>" strXML = strXML & "<set name='Jul' value='629' color='8E468E'/>" strXML = strXML & "<set name='Aug' value='622' color='588526'/>" strXML = strXML & "<set name='Sep' value='376' color='B3AA00'/>" strXML = strXML & "<set name='Oct' value='494' color='008ED6'/>" strXML = strXML & "<set name='Nov' value='761' color='9D080D'/>" strXML = strXML & "<set name='Dec' value='960' color='A186BE'/>" strXML = strXML & "</graph>" 'Create the chart - Column 3D Chart with data from strXML variable using dataXML method Return FusionCharts.RenderChartHTML("../FusionCharts/FCF_Column3D.swf", "", strXML, "myNext", "600", "300", False) End Function End Class