Sortering

Jeg bruger følgende til at generere en tabel. Den første del er et overskriftsfelt. Jeg kunne godt tænke mig at lave en sorterings-funktion ASC og DESC for hver af disse kolonner. Hvordan laves dette.

<tr>
    <td bgcolor=\"#000000\"><font color=\"#FFFFFF\">Kolonne1</font></td>
    <td bgcolor=\"#000000\"><font color=\"#FFFFFF\">Kolonne2</font></td>
    <td bgcolor=\"#000000\"><font color=\"#FFFFFF\">Kolonne3</font></td>
</tr>

<%
  Dim Conn, List
    set conn=server.createobject(\"adodb.connection\")
    Conn.Open \"DRIVER=SQL Server;Server=Test;UID=test;PWD=test;Database=test;\"
    list = \"SELECT * FROM tblproject WHERE ID like \'%100\' and status not like \'afsluttet\' order by ID\"
  Set list = Conn.Execute(list)
%>


<%
        Do While Not list.EOF
%>


<tr>
  <td bordercolor=\"#FFFFFF\" ><%=list(\"kolonne1\")%>
  </td>
  <td bordercolor=\"#FFFFFF\" ><%=list(\"kolonne2\")%>
  </td>
  <td bordercolor=\"#FFFFFF\" ><%=list(\"kolonne3\")%>
  </td>
</tr>