Imports System.Data.OleDb Imports System.Data.CommandType Partial Class agenda Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load getData() End Sub Public Sub getData() Dim conn As OleDbConnection Dim rs As OleDbDataReader Dim cmd As Data.OleDb.OleDbCommand conn = New Data.OleDb.OleDbConnection(System.Configuration.ConfigurationManager.AppSettings("conn") & Server.MapPath(System.Configuration.ConfigurationManager.AppSettings("db"))) conn.Open() cmd = New OleDbCommand("SELECT * FROM DD_Agenda where visible = true order by datum", conn) cmd.CommandType = Data.CommandType.Text rs = cmd.ExecuteReader lbl.Text = "" Do While rs.Read lbl.Text = lbl.Text & "" lbl.Text = lbl.Text & "" Loop lbl.Text = lbl.Text & "
" lbl.Text = lbl.Text & Day(rs!datum) & " " & getMonth(rs!datum) & " " & Year(rs!datum) & ": " & rs!onderwerp lbl.Text = lbl.Text & "

" lbl.Text = lbl.Text & rs!agendaonderwerp & "


" lbl.Text = lbl.Text & "
" rs.Close() conn.Close() End Sub Private Function getMonth(ByVal dt As Date) Dim mn As String Select Case Month(dt) Case 1 mn = "januari" Case 2 mn = "februari" Case 3 mn = "maart" Case 4 mn = "april" Case 5 mn = "mei" Case 6 mn = "juni" Case 7 mn = "juli" Case 8 mn = "augustus" Case 9 mn = "september" Case 10 mn = "oktober" Case 11 mn = "november" Case 12 mn = "december" Case Else mn = " -- " End Select Return mn End Function End Class