% REM -- Establish Connection to Database -- Dim oConnection Dim oRecordSet 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 dwagner.Ereignis ORDER BY Ereigniscode" ) %>