Nyeste nyhed øverst

Jeg kan ikke finde ud af hvordan jeg får den nyeste nyhed øverst. Den står nemlig nederst nå man skriver en.
Her er koden :
<!-- #include file="database.asp" -->
<!-- #include file="textformat.asp" -->
   

 
 
  <br>
  <%

    Call OpenDataBase("news.mdb")
   
   
    Set objRS = objConn.Execute("SELECT * FROM nyheder Order By DateCreated")
                   
             
    If (Not objRS.BOF) And (Not objRS.EOF) Then
objrs.movefirst
while not objrs.eof
 
  Response.Write "<table border=""0"" width=""95%"" cellpadding=""0"" cellspacing=""0"" align=""center""> " & vbCrLf
  Response.Write "<tr><td width=30% class=topbar>&nbsp;<b>Overskrift : </b>" & objRS("Title") & "</td>" & vbCrLf
    Response.Write "<td width=30% class=topbar>&nbsp;<b>Opets Dato :&nbsp</b>" & objRS("DateCreated") & "</td>" & vbCrLf         
    Response.Write " width=10% class=Text1><img src=""pict/" & objRS("FILENAME") & Chr(34) & " width=85 height=85></td></tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "<table border=""0"" width=""95%"" cellpadding=""0"" cellspacing=""0"" align=""Center"">    " & vbCrLf
    Response.Write "<tr><td width=50% class=topbar>" & TextFormat("", objRS("Contents"), True) & "<br></b></td></tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
   
    Response.Write "<table border=""0"" width=""95%"" cellpadding=""0"" cellspacing=""0"" align=""Center"">    " & vbCrLf
    Response.Write "<tr><td width=65% class=topbar>&nbsp;<b>Skrevet Af : </b>" & objRS("Forfatter") & "</td>" & vbCrLf   
'    Response.Write "<td width=30% class=topbar><br>&nbsp;<b>Skrevet Af :&nbsp</b>" & objRS("Forfatter") & "</td>" & vbCrLf         
    Response.Write "</table>" & vbCrLf
    Response.Write "<table border=""0"" width=""95%"" cellpadding=""0"" cellspacing=""0"" align=""Center"">    " & vbCrLf
    Response.Write "<tr><td width=95% class=topbar><hr></td>" & vbCrLf
    Response.Write "<br>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "<br>" & vbCrLf
   
    ' Response.Write "<td width=10% class=Text1><br>&nbsp;<br>&nbsp;&nbsp;<a href=""pict/" & objRS("FILENAME") & Chr(34) & " target=""_Blank""><img src=""pict/" & objRS("FILENAME") & Chr(34) & " width=60 height=90 border=0>"& objRS("PictName") &"</a></td>" & vbCrLf
   
    ' Response.Write "<td width=10% class=Text1><img src=""pict/" & objRS("FILENAME") & Chr(34) & " width=60 height=90></td></tr>" & vbCrLf
   
   



objrs.movenext
wend

    End If
   
    objRS.Close
        Set objRS = Nothing
       
        Call CloseDataBase
   
    %>