gistfile1.vb

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.litSalesGridDataSource.Text = "<script>" & vbCrLf & _
            "var oSales = [" & vbCrLf

        For i As Int32 = 1 To 5
            Select Case i
                Case Is = 1
                    Me.litSalesGridDataSource.Text &= "{" & vbCrLf & _
                        """SaleID"": """ & i & """," & vbCrLf & _
                        """SaleDate"": """ & Format(CDate("01-Jan-2012"), "MM/dd/yyyy") & """," & vbCrLf & _
                        """Total"": " & FormatNumber(i, 2, TriState.UseDefault, TriState.UseDefault, TriState.False) & vbCrLf & _
                        "}," & vbCrLf
                Case Is = 2
                    Me.litSalesGridDataSource.Text &= "{" & vbCrLf & _
                        """SaleID"": """ & i & """," & vbCrLf & _
                        """SaleDate"": """ & Format(CDate("30-Jan-2012"), "MM/dd/yyyy") & """," & vbCrLf & _
                        """Total"": " & FormatNumber(i, 2, TriState.UseDefault, TriState.UseDefault, TriState.False) & vbCrLf & _
                        "}," & vbCrLf
                Case Is = 3
                    Me.litSalesGridDataSource.Text &= "{" & vbCrLf & _
                        """SaleID"": """ & i & """," & vbCrLf & _
                        """SaleDate"": """ & Format(CDate("01-Feb-2009"), "MM/dd/yyyy") & """," & vbCrLf & _
                        """Total"": " & FormatNumber(i, 2, TriState.UseDefault, TriState.UseDefault, TriState.False) & vbCrLf & _
                        "}," & vbCrLf
                Case Is = 4
                    Me.litSalesGridDataSource.Text &= "{" & vbCrLf & _
                        """SaleID"": """ & i & """," & vbCrLf & _
                        """SaleDate"": """ & Format(CDate("01-Feb-2012"), "MM/dd/yyyy") & """," & vbCrLf & _
                        """Total"": " & FormatNumber(i, 2, TriState.UseDefault, TriState.UseDefault, TriState.False) & vbCrLf & _
                        "}," & vbCrLf
                Case Else
                    Me.litSalesGridDataSource.Text &= "{" & vbCrLf & _
                        """SaleID"": """ & i & """," & vbCrLf & _
                        """SaleDate"": """ & Format(CDate("11-Dec-2011"), "MM/dd/yyyy") & """," & vbCrLf & _
                        """Total"": " & FormatNumber(i, 2, TriState.UseDefault, TriState.UseDefault, TriState.False) & vbCrLf & _
                        "}" & vbCrLf
            End Select
        Next

        Me.litSalesGridDataSource.Text &= "];" & vbCrLf & _
            "</script>" & vbCrLf
    End Sub