Soter

Hvordan kan jeg få dette til at soter på dato ?

        <%
        For Each objItem In objFolder.SubFolders
    If InStr(1, objItem, \"_vti\", 1) = 0 Then
    %>
        <tr>
          <td align=\"left\" ><font face=\"Arial, Helvetica, sans-serif\" size=\"2\"><%= ShowImageForType(\"dir\") %>&nbsp;<a href=\"<%= strPath & objItem.Name %>\"><%= objItem.Name %></a></font></td>
        </tr>
        <%
    End If
Next \'objItem

Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>