fx sådan her.. med html kode og næsten klar til at køre
<html>
<head>
<title></title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#0000CC" vlink="#0000CC" alink="#0000CC">
<div align="center"></div>
<font face="Courier New, Courier, mono" size="2"><o:p></o:p><o:p></o:p> </font>
<tr>
<td>
<p align="center"> </p>
<div align="center"><font face="Courier New, Courier, mono" size="2"><br>
<br>
</font> </div>
<div align="center"></div>
<table width="55%" border="0" cellspacing="3" cellpadding="0" align="center">
<tr>
<td width="51%">
<p align="center"> <font face="Courier New, Courier, mono" size="2">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("DINTDATABASE.mdb")
str_sql2 = "SELECT TOP 5 * FROM DinTabel ORDER BY ID desc"
Set rs = Conn.Execute (str_sql2)
%>
</font></p>
<div align="center">
<table width="100%" height="24" cellspacing="1" cellpadding="2">
<tr bgcolor="#CCCCCC">
<td width="82%" bgcolor="#000000"><font face="Courier New, Courier, mono" size="2" color="#000000"><b><font color="#FFFFFF">Top
5 </font></b></font></td>
</tr>
<%
Do Until rs.EOF
%>
<tr bgcolor="#DDEEFF">
<td width="82%" bgcolor="#FFFFFF"><font face="Courier New, Courier, mono" size="2" color="#0000FF">
</font><font face="Courier New, Courier, mono" size="2"><font color="red">
<% = rs("FeltIDatabaseSomSkalUdskrives") %>
</font></font></td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>
<p></p>
</table>
</div>
</td>
</tr>
<tr>
<td width="51%">
<p align="center"> </p>
</td>
</tr>
</table>
<font face="Courier New, Courier, mono" size="2"><br>
</font>
</body>
</html>
