<%@Language=VBScript%> <%Response.Buffer=True%> <% bgcolor="#e7b78f" lightgray="#e0e0e0" colgray="#CCD0D9" %> Café Wilhelmina te Amsterdam - Muziekquiz - Kennisquiz - Poker <% Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/wilhelmina2007.mdb") SQL = "Select * From mqdatum" Set RS = MyConn.Execute(SQL) dag=RS.Fields("dag") datum=RS.Fields("datum") maand=RS.Fields("maand") ronde=RS.Fields("ronde") team=RS.Fields("team") thema=RS.Fields("thema") %> <% SQL = "Select * From kqdatum" Set RS = MyConn.Execute(SQL) dag=RS.Fields("dag") datum=RS.Fields("datum") maand=RS.Fields("maand") ronde=RS.Fields("ronde") team=RS.Fields("team") thema=RS.Fields("thema") %> <% SQL = "Select * From agenda Where feest<>''" Set RS = MyConn.Execute(SQL) nr=1 %> <%While NOT RS.EOF%> <%If nr=1 OR nr=3 OR nr=5 OR nr=7 OR nr=9 Then%> <%Else%> <%End If%> <% nr=nr+1 RS.MoveNext Wend %> <% SQL = "Select COUNT(*) AS [CountVanfeest] FROM agenda Where feest<>''" Set RS = MyConn.Execute(SQL) aantal=RS("CountVanfeest") If aantal <="4" Then %> <% End If %> <% RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing %>
 
zo <%=datum%> <%=maand%>Wilhelmina's <%=ronde%>ste Muziekkwis
 De volgende muziekquiz is op <%=dag%> <%=datum%> <%=maand%> van 16 tot 20 uur. Het wordt georganiseerd door team: <%=team%>. Deze keer is het thema: <%=thema%>. Schrijf je team snel in....
wo <%=datum%> <%=maand%>Wilhelmina's WEET JIJ OOK ZOVEEL kwis
 De volgende kennisquiz is op <%=dag%>  <%=datum%> <%=maand%> vanaf 20 uur en wordt gepresenteerd door Vincent.
<%=RS.Fields("datum")%><%=RS.Fields("feest")%>
 <%=RS.Fields("omschrijving")%>
<%=RS.Fields("datum")%><%=RS.Fields("feest")%>
 <%=RS.Fields("omschrijving")%>