<%
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 "Programma3",Conn,3,3
SQL="Select * from Programma3 ORDER BY Datum"
Set RS=Conn.Execute(SQL)
%>
Competitieprogramma reserve 5e klasse 516
<% Do While not RS.EOF
Sdatum = datumcnv(RS("Datum")) %>