<%@Language=VBScript%> <%Response.Buffer=True%> <% bgcolor="#e7b78f" lightgray="#e0e0e0" colgray="#b0b8cc" %> Café Wilhelmina te Amsterdam - Muziekquiz - Kennisquiz - Live Muziek - EK 2008 - Poker <% Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/wilhelmina2007.mdb") SQL = "Select * From voetbalschema" Set RS = MyConn.Execute(SQL) %> <%While NOT RS.EOF%> <% RS.MoveNext Wend %>
<%=RS.Fields("datum")%><%=RS.Fields("wedstrijd")%>uitslag:<%=RS.Fields("uitslag")%>
 <%=RS.Fields("tijdstip")%>, (groep <%=RS.Fields("groep")%>)
<% RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing %>