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