Creo que tendrás que hacer algo así:
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
Set MyDirectory=Server.CreateObject("Scripting.FileSys temObject")
Set MyFiles=MyDirectory.GetFolder(Server.MapPath("publ ic/infografia/"& imagenesinfo &"" ))
%>
<tr>
<%
For each filefound in MyFiles.files
%>
<td> <% =filefound.Name %></td>
<%
Next
%>
</tr>
</table>
El problema lo tendrás si tienes muchos ficheros, debarías "paginarlos" por cantidad de ficheros que quieres que te salgan en cada fila.