sortere arrangementer efter dato?

Her er min kode, men hvordan sortere jeg arrangementerne efter dato med nyeste øverst?

    Case \"moeder\",\"konferencer\", \"aktiviteter\"
       
        id = Request.QueryString (\"id\")
       
        Select Case id
            Case \"konferencer\"
                sql = \"SELECT * FROM aktiviteter WHERE type=\'konference\'\"
                sti = \"Aktiviteter > Konferencer\"
            Case else
                sql = \"SELECT * FROM aktiviteter WHERE type=\'møde\'\"
                sti = \"Aktiviteter > Møder\"
        End select
       
        a = Request.QueryString (\"a\")
        if a <> \"\" then
        \'Hvis vi skal vise en aktivitet
            sql = \"SELECT * FROM aktiviteter WHERE id=\" & a
            Set oRS = oConn.Execute (sql)
            tekst = tekst & \"<p><a href=indhold.asp?id=\" & id & \">Tilbage</a></p>\"
            if not ors.eof then
                    datotil=\"\"
                if oRS(\"datotil\")<>\"\" then datotil=\" - \"&oRS(\"datotil\")
                   
                    tekst = tekst & \"<p><b>\" & oRS(\"datofra\") & datotil & \"</b><br><span class=rubrik>\" & _
                                oRS(\"aktivitet\") & \"</span></p>\"
                    if oRS(\"Sted\")<> \"\" then
                        tekst = tekst & \"<p><span class=mellem2>Sted</span><br>\" & ors(\"Sted\") & \"</p>\"
                    end if
                    if oRS(\"arrangør\")<> \"\" then
                        tekst = tekst & \"<p><span class=mellem2>Arrangør</span><br>\" & ors(\"arrangør\") & \"</p>\"
                    end if
                   
                    p = oRS(\"kort_beskrivelse\")
                    if p<> \"\" then
                        tekst = tekst & \"<p>\" & p & \"</p>\"
                    end if
                   
                    t = oRS(\"lang_beskrivelse\")
                    if t <> \"\" then
                    tekst = tekst & \"<p>\" & t & \"</p>\"
                    end if