Miscellany

  sub Page_Load(sender as object, E as EventArgs)
    ShowData()
    end sub

    Private Sub ShowData()


    If Not IsPostBack Then

        Dim dbConn As OleDbConnection
        Dim da As OleDbDataAdapter
        Dim dSet As Dataset

        Dim myConnectionString As String = ConfigurationSettings.AppSettings("MyDBConnection")
        dbConn = New OleDbConnection(myConnectionString)
        dbConn.Open()

        Dim strSQLQuery as New OleDBCommand ("SELECT [NewsID], [Title], [Date], [Summary], [Image] FROM News WHERE [Sections] = @Sections order by NewsID DESC", dbConn)
        strSQLQuery.Parameters.Add("@Sections", OleDBType.VarChar, 50)
        strSQLQuery.Parameters("@Sections").Value = Request("Section")
        da = New OleDbDataAdapter(strSQLQuery, dbConn)
        dSet = New Dataset
        da.Fill(dSet)

        Repeater1.DataSource = dSet
        Repeater1.DataBind()
    End if

    End Sub

    Sub Repeater1_ItemCommand(sender As Object, e As RepeaterCommandEventArgs)
    End Sub