Salve a tutti
uso il seguente codice par paginare delle sottocartelle contenute in una sottocartella
codice:
<table cellpadding="0" cellspacing="0" border="0">
<TR align="center">
<%
td = td + 1
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(Server.MapPath("/public/foto_gallery/"))
for each x in fo.SubFolders
  'Print the name of all subfolders in the test folder

%>
<td align="center">
[img]_img/c.gif[/img]<%=x.Name%>
</td>
<%
next
IF td = 3 THEN
response.write("</tr><tr>")
td = 0
end if

%>
</tr>
</table>

<%

set fo=nothing
set fs=nothing
%>
ho solo un problema al 4 file non mi crea una nuova riga della tabella
response.write("</tr><tr>")

Dopo 3 file vorrei far scrivere in una nuova riga