Du ändrar ORDER BY ID DESC till ORDER BY datum DESC...
Du måste alltså ha ett fält med datum i databasen..
Hur gör man för att visa senaste inlägget i följande kod?
<%
Set objCon = Server.CreateObject ("ADODB.Connection")
Set objRec = Server.CreateObject ("ADODB.Recordset")
objCon.Open strcon
SQL = "SELECT \* FROM nyheter ORDER BY ID DESC"
objRec.Open SQL, objCon
%>
<head>
<title>Nyheter</title>
</head>
<body bgcolor="#FFFFFF" link="#0000FF" vlink="#0000FF">
<%
DO UNTIL objRec.EOF
%>
<div align="center">
<center>
<table border="0" width="500" cellspacing="0" style="font-family: Verdana; font-size: 9pt">
\<tr\>
\<td width="129" bgcolor="#DEDDDC"\>\<b\>\<font color="#000000"\>\<%=objRec("datum")%\>\</font\>\</b\>\</td\>
\<td width="357" bgcolor="#DEDDDC"\>\<b\>\<font color="#000000"\>\<%=objRec("Rubrik")%\>\</font\>\</b\>\</td\>
\</tr\>
\<tr\>
\<td width="492" colspan="2"\>\<%=objRec("Meddelande")%\>\<br\>
\<b\>Författare:\</b\> \<a href="mailto:\<%=objRec("Email")%\>"\>\<%=objRec("Namn")%\>\<hr color ="red" size="1"\>\</td\>
\</tr\>
</table>
</center>
</div>
<% objRec.MoveNext
LOOP %>
