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 = "
" 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 & " |