<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/data.mdb")) set rs = Server.CreateObject("ADODB.recordset") rs.Open "SELECT Datum, Titel, Bericht FROM berichten ORDER BY Datum DESC", conn %>
Dagboek



<%do until rs.EOF%>
<%Response.Write(rs.Fields("Datum").value)%> <%Response.Write(rs.Fields("Titel").value)%>
<%Response.Write(rs.Fields("Bericht").value)%>
<%rs.MoveNext%>
<%loop rs.close conn.close %>