A Simple Blog using a Quick and Easy Saveable Object Class, JSON, and LINQ


Partial Class Create
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim m As BlogMessage
        If Request("ID") IsNot Nothing Then
            m = BlogMessage.Load(New Guid(Request("ID")))
        Else
            m = New BlogMessage
        End If
        m.Title = TextBox1.Text
        m.Message = TextBox2.Text
        m.Save()

        Response.Redirect("View.aspx?ID=" & m.ID.ToString)
    End Sub

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        If Request("ID") IsNot Nothing And Not Page.IsPostBack Then
            Dim b As BlogMessage = BlogMessage.Load(New Guid(Request("ID")))
            TextBox1.Text = b.Title
            TextBox2.Text = b.Message
            Button1.Text = "Update Post"
            Page.Title = "Update Post"
        End If
    End Sub
End Class