<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\senioren2122.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "Programma410",Conn,3,3 SQL="Select * from Programma410 ORDER BY Datum" Set RS=Conn.Execute(SQL) %> <% Do While not RS.EOF Sdatum = datumcnv(RS("Datum")) %> <% RS.MoveNext Loop%>

Competitieprogramma reserve 4e klasse 410
<% response.write Sdatum %>	<% response.write (RS("Thuis")) %>	-	<% response.write (RS("Uit")) %>

<%Conn.Close Set RS=Nothing %>