<%
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("..\database\form2.mdb")
sqlstmt = "SELECT * from djs ORDER BY id DESC"
set conn = server.createobject("adodb.connection")
conn.open data_source
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, conn, 3, 3
If rs.eof then
response.write "
"
response.write "Er zijn momenteel geen data's te vermelden."
response.write "
"
response.end
End If
While NOT rs.eof
Response.Write "