impaginare in tabella

[videoD]

Ciao,

ho questo script:

<%
dir="via due dicembre 32 - barbiera"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath(dir))
Set file3 = file2.Files

For Each file in file3
For i = 0 To 3 Step 1
response.write "<td>"
response.write "[img]"&dir&"/"&file.name&"[/img]
"
response.write "</td>"
if i = 3 then
response.write "</tr><tr>"
i = 0
end if
next
Next
%>


che pesca le img di una dir e le visualizza a schermo...Vorrei fare in modo che la visualizzazione a schermo avvenisse dentro una tabella..di 3 img per riga...ma non riesco..mi aiutate?
perfavore...
grazie

[viki1967]

Pesonalizza lo script di paginazione di Roby72, lo trovi nella sua firma.

[videoD]

provo grazie

[videoD]

non riesco molto a capire come inserire quel codice qui dentro, non si può migliorare quello mio in modod da avere le immagini che psca dalla directory direttamente dentro una tabella...di 3 celle per riga?...

troppo complesso?
Non sono un espertissimo di asp...

[santino83]

<%
dir="via due dicembre 32 - barbiera"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath(dir))
Set file3 = file2.Files


%>
<table>
<%
For Each file in file3
For i = 0 To 3 Step 1
if i=0 then response.write "<tr>"
response.write "<td>"
response.write "[img]"&dir&"/"&file.name&"[/img]
"
response.write "</td>"
if i = 3 then
response.write "</tr>"
i = 0
end if
next
Next

%>
</table>

[videoD]

ma..grazie mill...adesso lo provo subito...

Grazie mille

[santino83]

aspetta che è sbagliato

[santino83]

<%
dir="via due dicembre 32 - barbiera"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath(dir))
Set file3 = file2.Files


%>
<table>
<%
i=-1
For Each file in file3
i=i+1
if i=0 then response.write "<tr>"
response.write "<td>"
response.write "[img]"&dir&"/"&file.name&"[/img]
"
response.write "</td>"
if i = 3 then
response.write "</tr>"
i = -1
end if

Next

%>
</table>

così va meglio