Tjohej. Testa enklare lösning: Ni är alltför vänliga.Bildgalleri med hjälp av FSO
Jag listar alla bilder i en mapp och gör dem till miniatyrer såhär:
<%
Dim objFolder, objFile
With Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = .getFolder(Server.MapPath("/pics/bordstolar"))
%>
<table width="504" cellpadding="0" cellspacing="0">
<tr>
<%
For each objFile in objFolder.Files
%>
<td width="100" height="20" valign="middle">
</td>
<%
Next
Set objFolder = Nothing
End With
%>
Fråga: Hur kan jag få tabellstrukturen att göra en ny TR när det gått ett visst antal objFile?
Jag vill alltså att det ska listas FEM bilder på varje rad... Possible?
Sv: Bildgalleri med hjälp av FSO
<code>
<%
Dim objFolder, objFile
With Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = .getFolder(Server.MapPath("/pics/bordstolar"))
%>
<table width="504" cellpadding="0" cellspacing="0">
<tr>
<%
x=0
For each objFile in objFolder.Files
'x=3 ger 4 bilder per rad i tabellen, ändras till eget tycke!
if x=3 then
response.write "</tr><tr>"
response.write "<td width=""100"" height=""20"" valign=""middle"">"
response.write ""
response.write ""
response.write " "
response.write " </td>"
x=0
else
response.write "<td width=""100"" height=""20"" valign=""middle"">"
response.write ""
response.write ""
response.write " "
response.write " </td>"
end if
x=x+1
Next
response.write "</tr>"
Set objFolder = Nothing
End With
%>
</code>
Inte så snyggt kanske, men det borde funka.. :)
//JohannesSv:Bildgalleri med hjälp av FSO
<code=asp>
for each file in folder
x = x + 1
if x = 6 then
response.write "</tr><tr>" & vbcrlf
x = 0
end if
...... Do all <td> HTML stuff here
next
</code>Sv:Bildgalleri med hjälp av FSO
Det fungerar problemfritt med båda lösningarna.
Tackar så ödmukast.