Hente en record fra med DAL over BLL med id fra QueryString

Da jeg regner med at jeg skal bruge en hel del hjælp til dette, sætter jeg point højt.

Jeg har en show.aspx side med en .VB codebehind fil. Jeg navigere ind på siden ved at trykke på et link, som i url hedder show.aspx?ID=1.

Nu vil jeg gerne sende id=1 til mit BLL, som skal bede DAL om at hente VSDok med id = 1.

Jeg mangler både mit BLL og min apsx-side med codebehind. Jeg vil meget gerne se noget kode, da jeg har prøvet rigtig meget, men ikke helt forsår det.


Håber det er til at forstå.
På forhånd tak.

Her kommer noget kode:

DAL:
Namespace DAL
Public Class VSDok
        Private _id As Integer
        Private _kapitel As String
        Private _sektion As String
        Private _dokument As String
        Private _instruksBilag As String
        Private _dokumentnavn As String
        Private _formaal As String
        Private _gyldighedsomraade As String
        Private _ansvar As String
        Private _definitioner As String
        Private _dokumentText As String
        Private _henvisninger As String
        Private _udgavenr As String
        Private _undtagelser As String


        Public Property Id() As Integer
            Get
                Return _id
            End Get
            Set(ByVal value As Integer)
                _id = value
            End Set
        End Property

        Public Property Kapitel() As String
            Get
                Return _kapitel
            End Get
            Set(ByVal value As String)
                _kapitel = value
            End Set
        End Property

        Public Property Sektion() As String
            Get
                Return _sektion
            End Get
            Set(ByVal value As String)
                _sektion = value
            End Set
        End Property

        Public Property Dokument() As String
            Get
                Return _dokument
            End Get
            Set(ByVal value As String)
                _dokument = value
            End Set
        End Property

        Public Property Instruksbilag() As String
            Get
                Return _instruksBilag
            End Get
            Set(ByVal value As String)
                _instruksBilag = value
            End Set
        End Property

        Public Property DokumentNavn() As String
            Get
                Return _dokumentnavn
            End Get
            Set(ByVal value As String)
                _dokumentnavn = value
            End Set
        End Property

        Public Property Formaal() As String
            Get
                Return _formaal
            End Get
            Set(ByVal value As String)
                _formaal = value
            End Set
        End Property

        Public Property Gyldighedsomraade() As String
            Get
                Return _gyldighedsomraade
            End Get
            Set(ByVal value As String)
                _gyldighedsomraade = value
            End Set
        End Property

        Public Property Ansvar() As String
            Get
                Return _ansvar
            End Get
            Set(ByVal value As String)
                _ansvar = value
            End Set
        End Property

        Public Property Definitioner() As String
            Get
                Return _definitioner
            End Get
            Set(ByVal value As String)
                _definitioner = value
            End Set
        End Property

        Public Property DokumentText() As String
            Get
                Return _dokumentText
            End Get
            Set(ByVal value As String)
                _dokumentText = value
            End Set
        End Property

        Public Property Henvisninger() As String
            Get
                Return _henvisninger
            End Get
            Set(ByVal value As String)
                _henvisninger = value
            End Set
        End Property

        Public Property Udgavenr() As String
            Get
                Return _udgavenr
            End Get
            Set(ByVal value As String)
                _udgavenr = value
            End Set
        End Property

        Public Property Undtagelser() As String
            Get
                Return _undtagelser
            End Get
            Set(ByVal value As String)
                _undtagelser = value
            End Set
        End Property

        Public Sub New()

        End Sub

        Public Sub New(ByVal id As Integer, ByVal Kapitel As String, ByVal Sektion As String, ByVal Dokument As String, ByVal InstruksBilag As String, ByVal DokumentNavn As String, ByVal Formaal As String, ByVal Gyldighedsomraade As String, ByVal Ansvar As String, ByVal Definitioner As String, ByVal Beskrivelse As String, ByVal Henvisninger As String, ByVal Udgavenr As String, ByVal Undtagelser As String)
            _id = id
            _kapitel = Kapitel
            _sektion = Sektion
            _dokument = Dokument
            _instruksBilag = InstruksBilag
            _dokumentnavn = DokumentNavn
            _formaal = Formaal
            _gyldighedsomraade = Gyldighedsomraade
            _ansvar = Ansvar
            _definitioner = Definitioner
            _dokumentText = DokumentText
            _henvisninger = Henvisninger
            _udgavenr = Udgavenr
            _undtagelser = Undtagelser

        End Sub

    End Class


    Public Interface IVSBookDB
        Function GetVSDok() As VSDok
        Function CreateVSDok(ByVal VSDokument As VSDok) As Integer
    End Interface


    Public Class VSBookDB
        Implements IVSBookDB

        Public Function GetVSDok() As VSDok Implements IVSBookDB.GetVSDok

            Dim DBConn As DataHelperClass = New DataHelperClass
            Dim Conn As OleDbConnection = DBConn.GetConnection()
            Dim SqlCmd As New OleDbCommand("SELECT ID, Kapitel, Sektion, Dokument, InstruksBilag, Dokumentnavn, Formaal, Gyldighedsomraade, Ansvarlig, Definitioner, DokumentText, Henvisninger, UdgaveNr, Undtagelser FROM VSBog WHERE id =1", Conn)
            Dim Reader As OleDbDataReader = SqlCmd.ExecuteReader
            Dim objVSDok As New VSDok
            While Reader.Read
                objVSDok.Id = Convert.ToInt32(Reader("ID"))
                If Not Reader(1) Is DBNull.Value Then
                    objVSDok.Kapitel = Convert.ToString(Reader("Kapitel"))
                Else
                    objVSDok.Kapitel = ""
                End If
                If Not Reader(2) Is DBNull.Value Then
                    objVSDok.Sektion = Convert.ToString(Reader("Sektion"))
                Else
                    objVSDok.Sektion = ""
                End If
                If Not Reader(3) Is DBNull.Value Then
                    objVSDok.Dokument = Convert.ToString(Reader("Dokument"))
                Else
                    objVSDok.Dokument = ""
                End If
                If Not Reader(4) Is DBNull.Value Then
                    objVSDok.Instruksbilag = Convert.ToString(Reader("InstruksBilag"))
                Else
                    objVSDok.Instruksbilag = ""
                End If
                If Not Reader(5) Is DBNull.Value Then
                    objVSDok.DokumentNavn = Convert.ToString(Reader("DokumentNavn"))
                Else
                    objVSDok.DokumentNavn = ""
                End If
                If Not Reader(6) Is DBNull.Value Then
                    objVSDok.Formaal = Convert.ToString(Reader("Formaal"))
                Else
                    objVSDok.Formaal = ""
                End If
                If Not Reader(7) Is DBNull.Value Then
                    objVSDok.Gyldighedsomraade = Convert.ToString(Reader("Gyldighedsomraade"))
                Else
                    objVSDok.Gyldighedsomraade = ""
                End If
                If Not Reader(8) Is DBNull.Value Then
                    objVSDok.Ansvar = Convert.ToString(Reader("Ansvarlig"))
                Else
                    objVSDok.Ansvar = ""
                End If
                If Not Reader(9) Is DBNull.Value Then
                    objVSDok.Definitioner = Convert.ToString(Reader("Definitioner"))
                Else
                    objVSDok.Definitioner = ""
                End If
                If Not Reader(10) Is DBNull.Value Then
                    objVSDok.DokumentText = Convert.ToString(Reader("DokumentText"))
                End If
                If Not Reader(11) Is DBNull.Value Then
                    objVSDok.Henvisninger = Convert.ToString(Reader("Henvisninger"))
                Else
                    objVSDok.Henvisninger = ""
                End If
                If Not Reader(12) Is DBNull.Value Then
                    objVSDok.Udgavenr = Convert.ToString(Reader("UdgaveNr"))
                Else
                    objVSDok.Udgavenr = ""
                End If
                If Not Reader(13) Is DBNull.Value Then
                    objVSDok.Undtagelser = Convert.ToString(Reader("Undtagelser"))
                Else
                    objVSDok.Undtagelser = ""
                End If
            End While

            Reader.Close()
            Reader = Nothing
            Conn.Close()
            Conn = Nothing
            Return objVSDok
        End Function
End Class
End Namespace