Imports System.Data.OleDb Imports System.Data.CommandType Partial Class fotoboekDetail 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 conn2 As OleDbConnection Dim rs2 As OleDbDataReader Dim cmd2 As Data.OleDb.OleDbCommand conn2 = New Data.OleDb.OleDbConnection(System.Configuration.ConfigurationManager.AppSettings("conn") & Server.MapPath(System.Configuration.ConfigurationManager.AppSettings("db"))) conn2.Open() cmd2 = New OleDbCommand("SELECT * FROM DD_Fotoboek where id=" & CInt(Request.QueryString("id")) & "", conn2) cmd2.CommandType = Data.CommandType.Text rs2 = cmd2.ExecuteReader Dim previousThema As String = "" Dim thisThema As String = "" lbl.Text = "" Do While rs2.Read lbl.Text = lbl.Text & "" lbl.Text = lbl.Text & "" lbl.Text = lbl.Text & "" lbl.Text = lbl.Text & "" lbl.Text = lbl.Text & "
" lbl.Text = lbl.Text & rs2!fotoonderwerp lbl.Text = lbl.Text & "
" lbl.Text = lbl.Text & "" lbl.Text = lbl.Text & "" lbl.Text = lbl.Text & "" lbl.Text = lbl.Text & "
" Loop rs2.Close() conn2.Close() End Sub End Class