<% Option Explicit %> <% Dim oConnection Dim oRecordSet Dim checkerBoardCounter checkerBoardCounter = 0 ' Instanziiere ADO Connection Objekt Set oConnection = Server.CreateObject("ADODB.Connection") ' Oeffne Verbindung zur SQL Datenbank oConnection.Open( connectionString ) ' Execute SQL Query Set oRecordSet = oConnection.Execute( "SELECT * FROM Gastebuch ORDER BY Nummer DESC" ) %> <% Do Until oRecordSet.EOF %> <% checkerBoardCounter = checkerBoardCounter + 1 oRecordSet.MoveNext Loop %>

"> Name:  <%=oRecordSet("Name")%>     <%=oRecordSet("Kommentar")%> E-Mail:  <%=oRecordSet("Email")%> Ort, Bundesland:  <%=oRecordSet("Ort")%> Datum (PMT: -9 Std.):  <%=oRecordSet("Datum")%>