Ich check folgenden Fehler nicht:
http://grefe-bau.de/angebote/index.aspx
Hier mein Quellcode:
CODE
<%@ 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" -->
bitte hilfe!
http://grefe-bau.de/angebote/index.aspx
Hier mein Quellcode:
CODE
<%@ 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" -->
bitte hilfe!