Order by dato DESC

Hvor i følgende MEGET lange kode skal ovenstående sættes ind så personens indlæg i gæste bogen bliver vist med det sidste nye!!!!  HJÆLP

<%@ LANGUAGE=\"VBSCRIPT\" %>
<%
\' Listing 17.1 Paging through a Recordset Part 1: Declaration
Option Explicit
Response.Expires = 0
%>
<!--#include file=\"adovbs.inc\"-->
<!--#include file=\"code_lib.asp\"-->

<%
IF request(\"ejer\") =\"\" then
Response.Redirect(\"default.asp\")

else
\'***********************************
DIM maned, ugedag

Function DatoVis(dato)
    maned = Array(,\"januar\", \"februar\", \"marts\", \"april\", \"maj\", \"juni\", \"juli\", \"august\",\"september\", \"oktober\", \"november\", \"december\")
    ugedag = Array(,\"Mandag\", \"Tirsdag\", \"Onsdag\", \"Torsdag\", \"Fredag\", \"L&oslash;rdag\", \"S&oslash;ndag\")
    DatoVis = ugedag(Weekday(dato,2)) &\"&nbsp;d.&nbsp;\"& Day(dato)&\".&nbsp;\"& maned(month(dato)) &\"&nbsp;\"& Year(dato)
End Function
\'***********************************

Const intPageSize = 7
Dim intCurrentPage, objConn, objRS, strQ
Dim intTotalPages, intI

\' Listing 17.2 Paging Part 2: Setting the Current Page Number
If Request.ServerVariables(\"CONTENT_LENGTH\") = 0 Then
  intCurrentPage = 1
Else
  intCurrentPage = CInt(Request.Form(\"CurrentPage\"))
  Select Case Request.Form(\"Submit\")
      Case \"Forrige\"
        intCurrentPage = intCurrentPage - 1
      Case \"Næste\"
        intCurrentPage = intCurrentPage + 1
  End Select
End If

\' Listing 17.3[em]Paging[md]Part 3: Preparing the Recordset for Paging
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open \"DBQ=\"& Server.MapPath(\".\") &\"/dagbog.mdb; DefaultDir=DBQ=\"& Server.MapPath(\".\") &\";Driver={Microsoft Access Driver (*.mdb)};\"

Set objRS = Server.CreateObject(\"ADODB.Recordset\")
objRS.CursorLocation = adUseClient
objRS.CursorType = adOpenStatic
objRS.CacheSize = intPageSize

\' Listing 17.4[em]Paging[md]Part 4: Opening the Recordset
strQ = \"select * from dagbog WHERE bruger_id=\'\"
strQ = strQ & request(\"ejer\") & \"\'\"
objRS.Open strQ, objConn, , , adCmdText


\' Listing 17.5 Paging Part 5: Setting the Recordset cursor
objRS.PageSize = intPageSize
If Not(objRS.EOF) Then objRS.AbsolutePage = intCurrentPage

\' Listing 17.6 Paging Part 6: Sending Database Data
intTotalPages = objRS.PageCount
%>


<HTML>
<HEAD>
<TITLE>
Online Dagbog.
</TITLE>
</HEAD>
<BODY>
<%
If  objRS.EOF then
Response.Write (\"Personen har ikke skrevet i sin dagbog endnu.<BR>\")
%>

<href=\'<%= URL %>\' border=\'0\'>
<img src=\'<%= logosti %>\' border=\'0\'>
</A> Vil du selv have en dagbog?
<A href=\'opret.asp\'>klik her.</A><BR>



<BR>
<A HREF=\"http://www.whitehat.dk/tbw/\">&copy; TBW
<%
Else
%>
Herunder kan du se alle de dage hvor jeg har skrevet dagbog.<BR>
V&aelig;lg den dag du vil se Dagbogen for.<P>

<font face=\"arial rounded mt bold\" size=\"4\">

<%
For intI = 1 to objRS.PageSize
Response.Write datovis(objRS(\"dato\"))& \"<BR>\"
Response.Write (\"Referat fra  :  <A HREF=\'vis.asp?artikel=\" & objRS(\"ID\") & \"\'>\"& datovis(objRS(\"dato\")) &\"</A>\")
Response.Write(\"Overskrift  :  \")
Response.Write objRS(\"overskrift\")&\"<br>\"
Response.Write(\"Referat nr  :  \")
Response.Write objRS(\"ID\")&\"<br>\"
objRS.MoveNext
  If objRS.EOF Then Exit For
Next

objRS.Close : objConn.Close
Set objRS = Nothing : Set objConn = Nothing

%>
<!--#echo var=\"DATE_LOCAL\"-->
<!--#echo var=\"DOCUMENT_URI\"-->
<!--#echo var=\"LAST_MODIFIED\"-->
</font>

<BR>
Side <%= intCurrentPage %> af <%= intTotalPages %><P>

<% \' Listing 17.7 Paging Part 7: Providing Web Form for Paging %>
<FORM ACTION=\"<%= Request.ServerVariables(\"SCRIPT_NAME\") %>?ejer=<%= request(\"ejer\") %>\" METHOD=\"POST\">
<INPUT TYPE=\"Hidden\" NAME=\"CurrentPage\"
VALUE=\"<%= intCurrentPage%>\">
<%
If intCurrentPage > 1 Then %>
<INPUT TYPE=\"Submit\" NAME=\"Submit\" VALUE=\"Forrige\">
<% End If
If intCurrentPage <> intTotalPages Then %>
<INPUT TYPE=\"Submit\" NAME=\"Submit\" VALUE=\"N&aelig;ste\">
<% End If %>
</FORM>

<Table>
<tr>
<td>
Denne service udbydes af:
</TD>
<TD>
</TD>
</TR>
<TR>
<TD>

</TD>
<TD></TD>
</TR><TR>
<TD>
Disse script er lavet af:
</TD></TR><TR><TD>
<A HREF=\"http://www.whitehat.dk/tbw/\">&copy; TBW
</TD></TR></TABLE>
</BODY></HTML>
<% End If %>
<% End If %>



pless@stofanet.dk