Sorter efter nyeste dato

Hej Eksperter,

Jeg har bikset et lille script sammen, så man kan vælge hvilken "type" listen skal sortere efter og om man vil se fra toppen eller fra bunden...

Mit problem er at scriptet er at når der sorteres efter dato, fra toppen og ned, så ligger den nye måneder i bunden...


<%
If Request.Querystring("sortering") = "" Then
  Sortering = "dato"
Else
  Sortering = Request.Querystring("sortering")
End If

If Request.Querystring("ascdesc") = "" Then
  AscDesc = "DESC"
Else
  AscDesc = Request.Querystring("ascdesc")
End If
%>   
<table border="0" cellpadding="4" cellspacing="0"  bordercolor="#111111" width="100%">
          <tbody>
<tr>
<td class="all-headline-doclist" width="5%">&nbsp;</td>
<td style="cursor:hand" onclick="parent.main.location='vagtrapport.asp?sortering=dato&ascdesc=<% If Sortering = "dato" AND AscDesc = "DESC" Then %>ASC<% Else %>DESC<% End If %>'" class="all-headline-doclist" width="10%">Dato&nbsp;<% If Sortering = "dato" AND AscDesc = "DESC" Then %><img src="images/_move_up.gif" border="0"><% elseif Sortering = "dato" AND AscDesc = "ASC" Then %><img src="images/_move_down.gif" border="0"><% End If %></td>
<td style="cursor:hand" onclick="parent.main.location='vagtrapport.asp?sortering=kundeid&ascdesc=<% If Sortering = "kundeid" AND AscDesc = "DESC" Then %>ASC<% Else %>DESC<% End If %>'" class="all-headline-doclist" width="25%">Kunde&nbsp;<% If Sortering = "kundeid" AND AscDesc = "DESC" Then %><img src="images/_move_up.gif" border="0"><% elseif Sortering = "kundeid" AND AscDesc = "ASC" Then %><img src="images/_move_down.gif" border="0"><% End If %></td>
<td style="cursor:hand" onclick="parent.main.location='vagtrapport.asp?sortering=lokation&ascdesc=<% If Sortering = "lokation" AND AscDesc = "DESC" Then %>ASC<% Else %>DESC<% End If %>'" class="all-headline-doclist" width="20%">Lokation&nbsp;<% If Sortering = "lokation" AND AscDesc = "DESC" Then %><img src="images/_move_up.gif" border="0"><% elseif Sortering = "lokation" AND AscDesc = "ASC" Then %><img src="images/_move_down.gif" border="0"><% End If %></td>
<td style="cursor:hand" onclick="parent.main.location='vagtrapport.asp?sortering=overskrift&ascdesc=<% If Sortering = "overskrift" AND AscDesc = "DESC" Then %>ASC<% Else %>DESC<% End If %>'" class="all-headline-doclist" width="15%">Dokument&nbsp;<% If Sortering = "overskrift" AND AscDesc = "DESC" Then %><img src="images/_move_up.gif" border="0"><% elseif Sortering = "overskrift" AND AscDesc = "ASC" Then %><img src="images/_move_down.gif" border="0"><% End If %></td>
<td style="cursor:hand" onclick="parent.main.location='vagtrapport.asp?sortering=oprettetaf&ascdesc=<% If Sortering = "oprettetaf" AND AscDesc = "DESC" Then %>ASC<% Else %>DESC<% End If %>'" class="all-headline-doclist" width="20%">Oprettet af&nbsp;<% If Sortering = "oprettetaf" AND AscDesc = "DESC" Then %><img src="images/_move_up.gif" border="0"><% elseif Sortering = "oprettetaf" AND AscDesc = "ASC" Then %><img src="images/_move_down.gif" border="0"><% End If %></td>
<td class="all-headline-doclist" width="5%">&nbsp;</td>
</tr></tbody></table>

<!--#include file="includes/forbindelse2.asp"-->
<%

If session("adgangsniveau") = "9" then
    strSQL = "SELECT * FROM doegnrapport ORDER BY  "& Sortering &" "& AscDesc &""
else
    strSQL = "SELECT * FROM doegnrapport WHERE kundeid = '"& session("kunde") &"' ORDER BY "& Sortering &" "& AscDesc &""
end if
    objRec.Open strSQL, objConn, 3, 1, 1

while not objRec.EOF
strCount = strCount + 1
%>