<%
'Define the variables
Dim txtNummer
Dim txtAutonummer
Dim txtDatum
Dim txtTitel
Dim txtBeschrijving
Dim txtPicture1
Dim txtPicture2
Dim txtPicture3
Dim txtPicture4
Dim txtDateDay
Dim txtDateMonth
Dim txtDateYear
Dim txtNummerVolgende
Dim txtNummerVorige
Dim oConn
Dim oRs
Dim pg
Dim i
'Get the number
pg = Request("pg")
If pg = "" Then pg = 1
' Create ADO Connection Component to connect
' with sample database
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
' Create ADO Recordset Component
Set oRs = Server.CreateObject("ADODB.Recordset")
Set oRs.ActiveConnection = oConn
' Execute a SQL query and store the results within recordset
oRs.Source = "SELECT Datum, TitelNL, BeschrijvingNL, Picture1, Picture2, Picture3, Picture4 FROM tbl_nieuws ORDER BY Autonummer DESC"
oRs.CursorType = adOpenStatic
' Open Recordset
oRs.Open
'Check if there're records
If oRs.EOF Then
%>
Nieuws
De boot ligt klaar in Marseille voor de recordpoging.
