Om du har | Pengar | Tid | Datum i tabellen så kan du göra en OnClick i TD-fälten där du skickar om variablar med kolumnnamn och sorteringsordning Ascending/Descending
Du kan göra så att man kan inkludera en querystring med det man ska sortera på och sätter det vi onchange på select:en. När du sen hämtar recordset:et så kontrollerar du om det finns något angivet i den querystringen och i sådana fall sätter .Sort-egenskapen.
Dim sort, rs
sort = Request.QueryString("sort")
Set rs = ..... ' Hämta RS här.
If Len(sort) > 0 then
rs.Sort = sort
End if