De ti nyeste nyheder.
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb") strSQL = "select top 10 * from nyheder ORDER BY id DESC" set rs = Conn.execute(strSQL) if rs.EOF then Response.write "Databasen er tom." else Do Until rs.EOF %>

" TARGET="_self"><%=RS("overskrift")%> dato <%=RS("dato")%>
<%RS.MoveNext Loop end if Conn.Close Set Conn = Nothing%> Se alle nyheder.

De ti nyeste nyheder.
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb") strSQL = "select * from nyheder ORDER BY id DESC" set rs = Conn.execute(strSQL) if rs.EOF then Response.write "Databasen er tom." else Do Until rs.EOF %>

" TARGET="_self"><%=RS("overskrift")%> dato <%=RS("dato")%>
<%RS.MoveNext Loop end if Conn.Close Set Conn = Nothing%> Oversigt over de ti nyeste.