Hjælpe med sortering

Jeg har nedenstående hvor jeg gerne vil have et link på "Område:", "Bygherre:" osv... som sorterer efter de felter.

HAr fundet dette spørgsmål: http://www.eksperten.dk/spm/509055 men har ikke kunnet få det til at virke...

visliste1.asp:
<%
dim conn

function OpenConn( DBName )

Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ODBCpath & DBName

end function

'Her skal skal stien stå til din database.mdb - er den placeret i sammen mappe som dette dokument skal det være som nedenfor, hvor database.mdb skal udskiftes med navnet på din database
OpenConn("db.mdb")

'udskift tabelnavn med navet på din tabel
strSQL = "Select * from liste1 Order By aftaleDato Desc"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, Conn, 1

top = rs.RecordCount
If top <> 0 then
MyArr = rs.GetRows()
end if
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

<strong><font style="font-size: 12px;">Dette er liste 1</font></strong>
<br>
<br>
<a href="opretliste1.asp">Retur til Liste 1 oprettelse</a><br>
<a href="default.asp">Retur til Hovedsiden</a>
<br>
<br>
<table cellspacing="0" cellpadding="0">
<tr>
<td class="Table" width="100"><strong>Område:</strong></td><td class="Table" width="100"><strong>Bygherre:</strong></td><td class="Table" width="100"><strong>Emne:</strong></td><td class="Table" width="100"><strong>Arkitekt:</strong></td><td class="Table" width="100"><strong>Entreprenør:</strong></td><td class="Table" width="100"><strong>Aftaledato:</strong></td><td class="Table" width="100"><strong>Tilmeldingsdato:</strong></td><td class="Table">&nbsp;&nbsp;<strong>Slet</strong>&nbsp;&nbsp;</td><td class="Table">&nbsp;&nbsp;<strong>Flyt</strong>&nbsp;&nbsp;</td>
</tr>
<%
If top <> 0 then
For i=0 to (top-1)
  Response.Write "<tr><td class=""Table"" width=""100"">" & MyArr(1,i) & "</td><td class=""Table"" width=""100"">" & MyArr(2,i) & "</td><td class=""Table"" width=""100"">" & MyArr(3,i) & "</td><td class=""Table"" width=""100"">" & MyArr(4,i) & "</td><td class=""Table"" width=""100"">" & MyArr(5,i) & "</td><td class=""Table"" width=""100"">" & MyArr(6,i) & "</td><td class=""Table"" width=""100"">" & MyArr(7,i) & "</td><td class=""Table"" align=""center""><a href=slet.asp?sletID=" & MyArr(0,i) & ">X</a></td><td class=""Table"" align=""center""><a href=flyt.asp?flytID=" & MyArr(0,i) & ">Ja</a></td></tr>"
Next
End if
%>
</table>


Håber der er en som vil hjælpe.
Fomse:-)