Public Class CMS
 
        Public Shared Function GetContent(ByVal sectionname As String) As String
            Dim str As String = ""
            Dim qry As New Query(Tables.WebContent)
            qry.AddWhere(WebContent.Columns.Section, sectionname)
            If qry.GetRecordCount() = 1 Then
                Dim Content As New WebContent(WebContent.Columns.Section, LCase(sectionname))
 
                If Content.IsLoaded Then
                    str = Content.SectionContent.ToString()
                End If
            Else
                str = "IsNotAdded"
            End If
            Return str
        End Function

 Public Shared OrigionalContent As String = ""
    Public Shared IsNew as Boolean = False
 
    Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        If Not Page.IsPostBack Then
            If Request("sectionname") Is Nothing Then
                Response.Redirect("~/default.aspx")
 
            Else
                OrigionalContent = CMS.GetContent(Request.QueryString("sectionname").ToString())
                If OrigionalContent = "IsNotAdded" Then
                    FCKeditor1.Value = "&lt;p&gt;</p>"
                    IsNew = True
                Else
                    FCKeditor1.Value = OrigionalContent
                    IsNew = False
                End If
            End If
        End If
 
    End Sub
 
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim newcontent As String = ""
        If FCKeditor1.Value = "" Then
            newcontent = "<p></p>"
        Else
            newcontent = FCKeditor1.Value
        End If
 
        If OrigionalContent = "IsNotAdded" Or IsNew = True Then
            CMS.AddContent(Request.QueryString("sectionname").ToString(), newcontent)
        Else
            CMS.UpdateContent(Request.QueryString("sectionname").ToString(), newcontent)
        End If
 
        Dim ip As String = Request.ServerVariables("REMOTE_ADDR")
 
 
        If Request("ReturnURL") Is Nothing = False Then
            Response.Redirect(CStr(Request("ReturnURL")))
        Else
            Response.Redirect("~/default.aspx")
        End If
 
    End Sub

Private _Section As String = ""
 
    Public Property Section() As String
        Get
            Section = LCase(_Section)
        End Get
        Set(ByVal value As String)
            _Section = LCase(value)
        End Set
    End Property
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Section Is Nothing Then
            Label_Content.Text = "Please enter a section name into the WebContent control."
        Else
            Try
                sectionnameprop.Value = _Section
                Label_Content.Text = ClubStarterKit.Web.CMS.GetContent(_Section) 
            Catch ex As Exception
 
            End Try
            Edit.Visible = Page.User.IsInRole("Editors")
 
            'Added this to get the querystring
            Dim clubId As String = Request.QueryString("clubId")
 
            Dim url As String = "~\WebContent\Editor.aspx?sectionname=" & sectionnameprop.Value
            'and this            
            url += "&clubId=" & clubId
            url += "&ReturnURL="
            url += System.Web.HttpUtility.UrlEncode(Request.Url.ToString())
            Edit.NavigateUrl = url
        End If
    End Sub