Miscellany

'/************************ Lavet Af ****************************\
'/* Simpel Gæstebog af Thomas Andersen.
'/* Grenaa Tekniske Skole 2007 - Web-Integrator hold: 2006-2007.
'/**************************************************************\

'/* Fortæller min kode hvilket namespace der skal bruges. I denne opgave bliver det "System.Data.OleDb" da jeg 
'/* skal have forbindelse til en access 2003 database.
Imports System.Data.OleDb

Partial Class _Default
    Inherits System.Web.UI.Page

    '/* Her laver jeg mine egne streng værdier
    Dim OleDatabaseConnection As OleDbConnection
    Dim OleDatabaseCommand As OleDbCommand
    Dim OleDatabaseReader As OleDbDataReader

    '/* Her forklare jeg min IIS webserver at dette stykke kode skal startes når brugeren går ind på 
    '/* asp.net documentet "default.aspx" eller opdatere sidens indhold
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


        '/* Her forklare jeg hvor min database ligger samt beder jeg min Vb.net kode om at åbne den.
        OleDatabaseConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database/Database.mdb"))
        OleDatabaseConnection.Open()

        '/* Her sender jeg besked til databasen at jeg skal bruge alle informationer der findes i 
        '/* tabellen "indleag". Dette gøres ved en simpel SQL streng "SELECT * FROM indleag". 
        OleDatabaseCommand = New OleDbCommand("SELECT * FROM indleag", OleDatabaseConnection)
        OleDatabaseReader = OleDatabaseCommand.ExecuteReader()

        '/* Her udskriver jeg div. data fra min database der skal anvendes på internetsiden.
        '/* Udskriften indholder Html kode for at lave design.
        While OleDatabaseReader.Read()
            'LblNavn.Text &= "Skrevet af: " & OleDatabaseReader("Navn") & "<br />"
        End While

        '/* Her lukkes forbindelsen til databasen.
        OleDatabaseReader.Close()
        OleDatabaseConnection.Close()

    End Sub
End Class