gallery stile facebook

[oliweb]

ho il seguente codice per visualizzare gli album contenuti in una directory:

<%
response.expireS=-100
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set Cartella = objFSO.GetFolder(Server.mappath("public\"))
response.write "Elenco Album di "&server.mappath("public\")&""
 
' Se volete visualizzare i files mettete
' For Each objItem In cartella.files


  response.write "<table width=750><tr>"
For Each objItem In cartella.SubFolders
  response.write "<td width=150 valign=top><a href='public/"&objItem.name&"'>"&objItem.Name&"
Dimensioni: "& objItem.Size & "Bytes""</a></td>"
Next
  response.write "</tr><table>"

%>

visualizza le cartelle/album contenute nella directory public! però mi visualizza solo i nomi delle cartelle!
vorrei far visualizzare l'immagine di uancartella grande oppure un'immagine casuale di quella cartella!
e vorrei poter visualizzare n album per ogni riga (es. 4 album per ogni riga), adesso sono tutti visualizzati su un'unica riga!

come posso fare?

Grazie

[Grambo]

i <tr></tr> li devi mettere all'interno del for each e con un contatore controlli quanti album hai gia stampato su una riga se è = al numero che vuoi tu (es 4) fai eseguire i tag tr altrimenti no

cont=0
response.write "<table width=750>"
For Each objItem In cartella.SubFolders

if (cont mod 4)=0 then
response.write "<tr>"
end if

response.write "<td width=150 valign=top><a href='public/"&objItem.name&"'>"&objItem.Name&"
Dimensioni: "& objItem.Size & "Bytes""</a></td>"

if (cont mod 4)=0 then
response.write "</tr>"
end if

cont=cont+1
Next
  response.write "<table>"

[oliweb]

Grazie Grambo, ho fatto come hai detto tu però le cartelle non mi escono in ordine!
sulla prima riga c'è una cartella, poi sulla seconda 2 cartelle, sulla terza una cartella, .....ecc...

come mai?

Grazie

response.expireS=-100
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set Cartella = objFSO.GetFolder(Server.mappath("public\"))
response.write "Lista Album di "&server.mappath("public\")&""
 
' Se volete visualizzare i files mettete
' For Each objItem In cartella.files

cont=0
response.write "<table border=1 width=750>"
For Each objItem In cartella.SubFolders

if (cont mod 4)=0 then
response.write "<tr>"
end if

response.write "<td valign=top align=center><a href='public/"&objItem.name&"'><img src=img/cartella.png width=150 border=0 />
"&objItem.Name&"
Dimensioni: "& objItem.Size & "Bytes""</a></td>"

if (cont mod 4)=0 then
response.write "</tr>"
end if

cont=cont+1
Next
response.write "<table>"

[oliweb]

ho risolto
ho fatto così:

response.expireS=-100
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set Cartella = objFSO.GetFolder(Server.mappath("public\"))
response.write "Lista Album di "&server.mappath("public\")&""
 
' Se volete visualizzare i files mettete
' For Each objItem In cartella.files

cont=0
 response.write "<table border=1><tr>"
For Each objItem In cartella.SubFolders
if (cont mod 4)=0 then
response.write "</tr><tr>"
end if 

response.write "<td valign=top align=center><a href='public/"&objItem.name&"'><img src=img/cartella.png width=150 border=0 />
"&objItem.Name&"
Dimensioni: "& objItem.Size & "Bytes""</a></td>"


cont=cont+1
Next
response.write "</tr><table>"