vrøvl med kode til mit forum

Hejsa!!!
Jeg har et forum, og mit problem er at jeg gerne vil have de poster der sidst er blevet skrevet i til at ligge øverst. men aner ikke lige hvordan, så derfor håber jeg der er en venlig sjæl der kan finde ud af hvordan jeg skal ændre i min kode:


<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

strSQL = "SELECT * FROM Forums"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    Do While Not rs.EOF
        strSQL = "SELECT *, Format$([date],'dd/mm/yyyy') AS FormDate, Format$([date],'hh:mm') AS FormTime FROM Entries WHERE (ForumID =" & rs("Id") & ") ORDER BY ID DESC"
        Set formatDate = myConn.Execute(strSQL)
        If (formatDate.BOF Or formatDate.EOF) Then
            dtmFormatDate = "Ingen indlæg"
        Else
            dtmFormatDate = formatDate("FormDate")
        End If
        strSQL = "SELECT Count(*) AS ItemCount FROM Entries Where (ForumID = " & rs("Id") & ")"
        Set recordCount = myConn.Execute(strSQL)
        strHTML = strHTML & "<tr><td bgcolor=#6699CC><strong><font face=Verdana size=2><a href=""forumthreads.asp?forumid=" & rs("ID") & """>" & rs("Forum") & "</a></strong><br>" & rs("Description") & "</font></td>"
        strHTML = strHTML & "<td bgcolor=#6699CC valign=top><center><font face=Verdana size=2>" & recordCount("ItemCount") & "</font></center></td>"
        strHTML = strHTML & "<td bgcolor=#6699CC valign=top><font face=Verdana size=2>" & dtmFormatDate & "</font></td></tr>"
        rs.MoveNext
    Loop
End If
myConn.Close
Set myConn = Nothing
%>