Tabeloverskrifter...

Hvordan får jeg sat overskrifter på søjlerne i den tabel som genereres ved hjælp af nedenstående? (fil, størrelse og dato)

<TD WIDTH="400"><P ALIGN="left"><V ALIGN="top">
<%
Function ShowFolderList()
folderspec = server.mappath("\download_files")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files
%>

<table width="90%" height="100%" cellspacing="3">
<%
For Each file in foldercollection
%>
<tr>
<td width="50%"><P ALIGN="left"><FONT SIZE="1">
<% response.write("<a href='/download_files/" & file.name & "'>" & file.name & "</A><BR>")
%></FONT></P>
</td>
<td width="20%"><P ALIGN="right"><FONT SIZE="1">
<%                   
response.write(round(file.size/1024,3) & " kB  " & "<BR>")                   
%></FONT></P>
</td>
<td width="30%"><P ALIGN="right"><FONT SIZE="1">
<%                   
response.write( FormatDateTime(file.DateLastModified,vbShortDate) & "<BR>")   
%></FONT></P>
</td>
</tr>
<%
Next
%>
</table>
<%
End Function
response.write showfolderlist()
%>
</TD>