Vise alle billeder i en mappe

Denne viser også hvor stort billedet er og hvilken type.

<table border=\"1\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\" bordercolor=\"#000000\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\">
  <tr>
    <td width=\"20%\" bgcolor=\"#527384\" align=\"center\"><font color=\"#FFFFFF\">Billede:</font></td>
    <td width=\"20%\" bgcolor=\"#527384\" align=\"center\"><font color=\"#FFFFFF\">Navn:</font></td>
    <td width=\"20%\" bgcolor=\"#527384\" align=\"center\"><font color=\"#FFFFFF\">Størrelse:</font></td>
    <td width=\"20%\" bgcolor=\"#527384\" align=\"center\"><font color=\"#FFFFFF\">Filtype:</font></td>
    <td width=\"20%\" bgcolor=\"#527384\" align=\"center\"><font color=\"#FFFFFF\">Dato for ændring</font></td>
  </tr>
  <% 
Set MyFileObject=Server.CreateObject(\"Scripting.FileSystemObject\") 
Set MyFolder=MyFileObject.GetFolder(Server.MapPath(\"images\")) 
FOR EACH thing in MyFolder.Files 
%>
  <tr>
    <td width=\"20%\" align=\"center\"><IMG SRC=\"images/<%=thing.Name%>\" align=\"left\"></td>
    <td width=\"20%\" align=\"center\"><A HREF=\"images/<%=thing.Name%>\"><%=thing.Name%></A>&nbsp;</td>
    <td width=\"20%\" align=\"center\"><%=thing.Size%>bytes</td>
    <td width=\"20%\" align=\"center\"><%=thing.type%>&nbsp;</td>
    <td width=\"20%\" align=\"center\"><%=thing.DateCreated%>&nbsp;</td>
  </tr>
  <% 
NEXT 
%>
</table>