<% id = request.QueryString("ID") %>

" border="0">
" valign="top">	<% Dim wsql, _ wrs Set wrs = Server.CreateObject("ADODB.RecordSet") if ID <> "" then wsql = "Select * From widk Where ID = " & ID else wsql = "Select * From widk Where Actief = 1" end if wrs.open wsql, oConn if not wrs.eof then %> <%= wrs("Reeks") & ": " & wrs("Wedstrijd")%>   van <%= Day(wrs("datum")) & " " & MaandNaam(Month(wrs("datum"))) & " " & Year(wrs("datum"))%>   <%= replace(wrs("Verslag"), vbCrLf, " ")%>   Opstelling: <%= wrs("Opstelling")%> Man van de match: <%= wrs("Mvdm")%> <% Dim asql, _ ars Set ars = Server.CreateObject("ADODB.RecordSet") asql = "Select ID, Reeks, Wedstrijd, Datum From widk Order By Datum" ars.open asql, oConn if not ars.eof then %> <% do while not ars.eof %> <% ars.movenext() loop end if %> "><%= ars("Reeks") & ": " & Day(ars("Datum")) & " " & MaandNaam(Month(ars("Datum"))) & " " & Year(ars("Datum")) & ": " & ars("Wedstrijd")%> <% ars.close set ars = nothing %> <% else %> Nog geen wedstrijd in de kijker... <% end if wrs.close set wrs = nothing %>	" valign="top">