<%@Language=VBScript%> <%Response.Buffer=True%> <% bgcolor="#e0e0e0" brown="#ddd3c7" lightgray="#a1a1a1" colgray="#CCD0D9" %> 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 optredens WHERE optreden<>''" Set RS = MyConn.Execute(SQL) %> <%While NOT RS.EOF%> <% RS.MoveNext Wend %>
<%=RS.Fields("datum")%><%=RS.Fields("optreden")%>
 <%=RS.Fields("omschrijving")%>
 
 
 
 
 
<% RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing %>