<% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("news.mdb") Conn.Open DSN strSQL = "Select top 5 * from news order by dato desc" Set rs = Conn.Execute(strSQL) if rs.eof then response.write "Der er ingen news!" else Do Response.write "" & rs("overskrift") & "

" Response.write "
" & rs("nyhed") & "

" Response.write "Skrevet af: " & rs("skrevetaf") & ", den " & rs("dato") & "

" rs.MoveNext Loop While Not rs.EOF end if Conn.Close Set Conn = Nothing %>

Admin