Nyeste indlæg først?

Hej!

Jeg har nedenstående kode.

Hvordan får jeg den til at skrive det nyeste indlæg først?

<%
catID = Request.Querystring("CatID")

'This is where we specify the datasource.
Set GobjConnect = server.createobject("ADODB.Connection")
GobjConnect.open gsConnect

gsSQL = ""
gsSQL = gsSQL & "Select ID, TopicID, adtitle, content, price, image, name, address, city, zip, state, phone, email, dateposted, "
gsSQL = gsSQL & "link FROM adcontent WHERE TopicID = " & SQLVal(catID) & " ORDER BY dateposted "
Set rs = GobjConnect.Execute(gsSQL)

tSQL = ""
tSQL = tSQL & "SELECT ID, CategoryName FROM categories WHERE ID = " & SQLVal(catID)
Set Categoryrs = GobjConnect.Execute(tSQL)

Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & ">")
Response.Write("<P><CENTER><BIG><BIG>" & Categoryrs.Fields("CategoryName") & "<P>")
Response.Write("<TABLE WIDTH=""550"" BORDER=""0"" CELLSPACING=""1"" CELLPADDING=""6"">")
Response.Write("<TR bgcolor=" & chr(34) & tablecolor & chr(34) & "><TD> <B>Annonce</B>  </TD><TD><B>Kontakt</B></TD></TR>")

    If rs.eof then
        Response.Write("<TR bgcolor=""#FFFFCC""><TD COLSPAN=""2""><SMALL><CENTER>")
        Response.Write("<BIG>Der er desværre ingen annoncer i denne kategori...</BIG>")
        Response.Write("</CENTER></SMALL></TD></TR>")
    Else
        iswitch = TRUE
        Do While Not rs.eof
            If iswitch = TRUE then
                scolor = "#FFFFCC"
                iswitch = False
            Else scolor = "#FFFFFF"
                iswitch = TRUE
            End If
       
                Response.Write("<TR bgcolor =" & chr(34) & scolor & chr(34) & ">")
                Response.Write("<TD><A HREF=" & chr(34) & "viewdetail.asp?id=" & rs.fields("ID") & chr(34) & "><B>"  & rs.fields("adtitle") & "</B><SMALL></A>  ")
                Response.Write(LEFT(rs.Fields("content"), 75) & "... <SMALL></TD><TD><SMALL><SMALL> " & "<BR><B>Kontakt:</B> <A HREF = ")
                Response.Write(chr(34) & "MAILTO:" & rs.fields("email") & chr(34) & ">" & rs.fields("name") & "</A><BR>")
                Response.Write("<B>Pris:</B> " & rs.fields("price") & "</SMALL></SMALL></TD></TR>")

       
            rs.MoveNext
        Loop

    End If
       
    Response.Write("<TR bgcolor=" & chr(34) & tablecolor & chr(34) & "><TD COLSPAN=""2""><SMALL><CENTER>")
    Response.Write("<A HREF=""default.asp"">Tilbage til forsiden</A>")
    Response.Write("&nbsp;&nbsp;|&nbsp;&nbsp;")
    Response.Write("<A HREF=" & chr(34) & "newaddform.asp?catID=" & catID & chr(34) & ">Indryk en annonce</A>")
    Response.Write("</CENTER></SMALL></TD></TR></TABLE>")
    Response.Write("<BR>")

Call DoPageFooter

rs.close
Set rs = Nothing
Categoryrs.close
Set Categoryrs = Nothing
Set GobjConnect = Nothing

%>