The next part of a script generates a directorylisting. I like to add the option ascending and descending sorting on each item (Naam, KB, Type, Datum and Tijd) by clicking on this item, but I am not sure how to do this. Are there any suggestions?
=========
<div align="center"><center>
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<th align="left"><p class="kopblauw">Naam</p></th>
<th align="right"><p class="kopblauw">KB</p></th>
<th align="right"><p class="kopblauw">Type</p></th>
<th align="right"><p class="kopblauw">Datum</p></th>
<th align="right"><p class="kopblauw">Tijd</p></th>
</tr>
<%
''''''''''''''''''''''''''''''''''''''''
' output the folder list
''''''''''''''''''''''''''''''''''''''''
Set objCollection = objFolder.SubFolders
For Each objItem in objCollection
strName = objItem.Name
strAttr = MakeAttr(objItem.Attributes)
dtmDate = CDate(objItem.DateLastModified)
if not ((Left(strName, 1) = "_") OR (Right(strName, 10) = "_bestanden")) then
%>
<tr>
<td align="left"><b><a href="<%=strName%>"><%=strName%></a></b></td>
<td align="right"><%=intSizeK%>K</td>
<td align="right"><b>Directory</b></td>
<td align="right"><%=FormatDateTime(dtmDate,vbShortDate)%></td>
<td align="right"><%=FormatDateTime(dtmDate,vbLongTime)%></td>
</tr>
<%
end if
Next
%>
======