<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<!-- #include file="../header.inc" -->


<script runat="server">
Sub Page_Load()
       ' Verbindungszeichenfolge für Datenbank zusammensetzen
       ' (aus Hr. Bartelsens Skript)
       Dim db As String
       db = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & Server.MapPath("grefebau.mdb") & ";"
       
       ' Verbindung zur Datenbank herstellen
       ' (aus Hr. Bartelsens Skript)
       Dim conn As New OleDbConnection(db)
       conn.Open()

' SQL-Kommando erstellen und ausführen
Dim sql As String
sql = "SELECT * FROM angebote"
Dim cmd As New OleDbCommand(sql, conn)
Dim myReader As OleDbDataReader
myReader = cmd.ExecuteReader()
Dim sb As New StringBuilder()
' Die Ergebnisse des Reader-Objekts manuell
' verarbeiten
While myReader.Read()
sb.Append(myReader.Item("a_titel"))
sb.Append(" <br />")
sb.Append(myReader.Item("a_beschreibung"))
sb.Append("<hr />")
sb.Append(myReader.Item("a_preis"))
sb.Append(" <br />")
End While
ausgabe.InnerHtml = sb.ToString()
myReader.Close()
conn.Close()
End Sub
</script>

<h2>Grefe Bau Angebote</h2>

<span id="ausgabe" runat="server"></span>
</body>
</html>

<!-- #include file="../footer.inc" -->

<%@ Page Language="VB" Debug="true" Trace="true" %>

Me.Context.Trace.Write(db)

/trace.axd