Jag vill att den senaste aktiva tråden i ett forum....

...ska hamna högst upp. Alltså när ett nytt svar görs i en gammal tråd så hamnar den högst upp. Jag vet att detta har tagits upp förut men jag har ingen aning om har ingen aning om hur man kombinerar sånt med pagingscriptet från FAQ.
KOD

<%
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 20

SQL = "Select * From rubriker Order by datum Desc"

rs.cursorlocation = 3
rs.cachesize = 5

rs.open SQL,Databas
If rs.EOF then
   Response.write "<p align=center>Det finns inga inlägg</p> " & sok
Else
   rs.movefirst
   rs.pagesize = mypagesize
   maxcount = Cint(rs.pagecount)
   rs.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = rs.fields.count -1
   Do While Not rs.EOF AND howmanyrecs < rs.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "#FFFFFF"
   Else
      color = "#F7F7F7"
   End If
   Response.write "<TR BGCOLOR='" & color & "'><TD WIDTH=20><IMG SRC='bilder/" & rs("ikon") & ".gif'></TD><TD WIDTH=300><A HREF='inlagg.asp?rubrikID=" & rs("rubrikID") & "' CLASS=link>" & left(rs("rubrik"),40) & "...</A></TD><TD WIDTH=150>" & rs("namn") & "</TD><TD WIDTH=150>" & rs("datum") & "</TD><TD WIDTH=40>" & rs("antalsvar") & "</TD></TR>"

   rs.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rs.close
   Set rs = nothing

   response.write "</TABLE><BR><TABLE BORDER=0 CELLSPACING=1 CELLPADDING=0 WIDTH=640 BGCOLOR=#FFFFFF><TR><TD ALIGN=RIGHT>"

   If maxcount <> 0 then
   response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 10 then
      pad = ""
   End If
   ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "' class=link>" & pad & counter & "</a>"
   response.write ref & " "
   if counter mod 10 = 0 then
      response.write "<br>"
   End If
   Next
   End If
End If
%>
</TD></TR></TABLE>