<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim CSV As String = "F2,F3" & vbCrLf & "1/1/1919,176" & vbCrLf & "2/1/1929,56" & vbCrLf & "3/1/1929,50" & vbCrLf
CSV &= "10/2/1930,200" & vbCrLf & "6/1/1935,76" & vbCrLf & "7/1/1940,26"
Dim util As New Tornado.Util
util.WriteFile(server.mappath("/tornado/scratch/TestDateLine.Csv"), CSV)
Dim Dl As New Tornado.z
With Dl
.dbQP = "U=5| S=plain| PS=-1| Ni=none| M=Gc| Q=Select * From TestDateLine.Csv| Dt=TEXT| Pv=OLEDB"
.dbDSN = "/tornado/scratch"
Dim Cp As String = "TitleString=2 Date Lines| dataset1image=./_greenball.gif"
Cp &= "|yAxisTitle=My Y-Axis Title| xAxisTitle=My X-Axis Title| yAxisOptions=rotateTitle=true"
.dbChartParams = Cp
Dim DLChart as string = "legend=t| inputDateFormat=MM/dd/yyyy| Name0=DB Line| Date0=#0#| "
DLchart &= "Value0=#1#|Name1=My Line| Date1=1/1/1955,2/1/1981,3/1/1987| Value1=50,60,70"
.dbDateLineChart = DLChart
.dbTextHolder = "Title=DateLine Chart"
.ASPdbNET()
End With
End Sub
</script> |