<%
'Dimension variables
Dim adoCon1 'Holds the Database Connection Object
Dim RsKampen1 'Holds the recordset for the records in the database
Dim mSQL1 'Holds the SQL query to query the database
'Create an ADO connection object
Set adoCon1 = Server.CreateObject("ADODB.Connection")
Set RsKampen1 = Server.CreateObject("ADODB.Recordset")
'Set an active connection to the Connection object using a DSN-less connection
adoCon1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("\_private\kampen.mdb")
mSQL1 = "SELECT KampenID,Jaar,KampenQuery.Plaatsen_Plaats AS mPlaats FROM KampenQuery Order By Jaar DESC"
%>
<%
'Reset server objects
RsKampen1.Close
Set RsKampen1 = Nothing
Set adoCon1 = Nothing
%>
Personen
Ga op zoek naar personen
Media
Alle foto's, audio, video en documenten op een rijtje
