Arrange after date

hvorfor kommer de nyeste billeder ikke øverst her? Jeg har ellers sat den til order by dato men der sker ikke rigtig noget

<%@ LANGUAGE="VBSCRIPT"%>
<% Response.Expires = 0 %>
<!-- #include file="html.inc" -->

<%
Const intMaxRSPerPage = 25 ' Antal pr side

' Læs parametre
if IsEmpty(Request.QueryString("Page")) then
  intPage = 1
else
  intPage = CInt(Request.QueryString("Page"))
end if

Response.Write("<html><head><LINK HREF='styles.css' REL='stylesheet' TYPE='text/css'></head>")

' Overskrift
Response.Write("<body><h3><p align='center'>Overskrift</p></h3>")
Response.Write("<hr width='90%' align='center'>")

' Opret ADO-connection
Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("info.mdb")

' Opret RecordSet
Set RS = Server.CreateObject("ADODB.RecordSet")
  RS.CursorLocation = 3 ' adUseClient
  RS.CursorType = 3 ' adOpenStatic
  RS.CacheSize = intMaxRSPerPage
  RS.Open "SELECT * FROM info order by dato", myConn, , , &H0001 ' adCmdText
  if not RS.EOF then
    RS.PageSize = intMaxRSPerPage
    RS.AbsolutePage = intPage

    ' Vis knapper til flere sider
    intTotalPage = CInt(Int((RS.RecordCount - 1) / intMaxRSPerPage) + 1)
    if intTotalPage > 1 then
      Response.Write("<div align='center'><table border='0' cellpadding='0' width='80%'><tr>")
      intMax = intMaxRSPerPage * intPage
      if intMax > RS.RecordCount then
        intMax = RS.RecordCount
      end if
      intMin = intMaxRSPerPage * (intPage - 1) + 1
      if intMax <> intMin then
        Response.Write("<td class='smalllink' width='60%'>Her vises " & CStr(intMin) & " til " & CStr(intMax) & " af i alt

" & CStr(RS.RecordCount) & " navne. Side " & CInt(intPage) & " af " & CStr(intTotalPage) & ". Vælg side </td>")
      else
        Response.Write("<td class='smalllink' width='60%'>Her vises " & CStr(intMin) & " af " & CStr(RS.RecordCount) & ".

Side " & CInt(intPage) & " af i alt " & CStr(intTotalPage) & " navne. Vælg side </td>")
      end if
      for intI = 1 to intTotalPage
        if intI <> intPage then
          Response.Write("<td class='smalllink'><a href='default.asp?Page=" & CStr(intI) & "'>" & CStr(intI) & "</a></td>")
        else
          Response.Write("<td class='smalllink'>" & CStr(intI) & "</td>")
        end if
      next
      Response.Write("</td></tr></table></div>")
    end if
  end if

  ' Vis overskriftskollonne
  Response.Write("<div align='center'><table width='80%'><tr>")
  Listheader "Titel", "40%"
  ListHeader "Navn", "40%"
  ListHeaderC "Dato", "20%"
  ' Vis 25 linier
  if not RS.EOF then
    for intI = 1 to intMaxRSPerPage
      Response.Write("</tr><tr>")
      LinkItem RS("Titel"), "40%", "visinfo.asp?ID=" & RS("ID")
      ListItem RS("Navn"), "40%"
      ListItemC RS("Dato"), "20%"
      RS.MoveNext
      if RS.EOF then exit for
    next
  end if
  Response.Write("</tr></table></div>")
  ' Luk det hele igen
  rs.Close
  myConn.Close
Set rs = Nothing
Set myConn = Nothing

Response.Write("<hr width='90%' align='center'>")

' Knapper i bunden
Response.Write("<body><div align='center'><table width='100'><tr>")
LinkButton "Opret", "add.asp?mode=insert", "20%"
Response.Write("</tr></table></div>")

Response.Write("</body></html>")
%>