---

Hej igen...

Jeg har før spurgt hvordan man laver en fil-liste (der hentede
data fra en folder, dynamisk og viste billederne) og fik da også
et svar, men nu har jeg efterhånden så mange billeder at det er
nødvendigt med thumbnails, så jeg vil gerne have lavet det med 3
kolonner og så lige så mange nedad som det er nødvendigt! Men jeg
kan ikke få det til at virke! Jeg har forsøgt med med en
FOR-løkke der tæller til tre og så en ny linje, hvilket jeg synes
er det mest fornuftige!

Desværre laver den 3 kolonner med alle billederne;
http://liste.esbenboye.dk

Jeg har regnet mig frem til at fejlen ligger i de 2 FOR løkker,
men kan ikke se hvad jeg gør forkert;

<TABLE WIDTH="100%" BORDER="0">
<% Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFolder("imgs/")
Set Images = F.Files
For Each Image In Images %>
<TR>
<% for x=1 to 3%>
   <TD><img src="imgs/<%=Image.Name%>"
ALT="<%=Image.Name%>"><br></TD>
<%next%>
</TR>
<% Next %>
</TABLE>

... håber der er nogen der kan hjælpe!

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Esben Boye-Jacobsen skrev:

> Desværre laver den 3 kolonner med alle billederne;

Det er fordi den indre løkke ikke rykker den ydre løkke frem.


> For Each Image In Images %>

Herfra og til det sidste next refererer Image til ét billede.

> <% for x=1 to 3%>
> <TD><img src="imgs/<%=Image.Name%>"
> ALT="<%=Image.Name%>"><br></TD>

Derfor bliver det tre ens billeder der bliver udskrevet herover.


Hvis du vil lave det med for-løkker skal du bruge en tællervariabel
(For i = 0 to Ubound(Images)) - for tællervariablen kan du referere
til i begge løkker.

Jeg vil dog i stedet foreslå at du bruger operatoren "mod" til at
indsætte en tr-kode for hver tredje billede.

Jeg lavede lige et eksempel hos mig selv (her bare med links, men
princippet er det samme):

<table><tr>
<%
Dim FSO, F, Images
Dim kolonner
kolonner = 4

Dim i
i = 0

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFolder(Server.Mappath("."))
Set Images = F.Files
For Each Image In Images
%>
   <td><a href="<%= Image.Name %>"><%= Image.Name %></a></td>
<%   
   i = i + 1
   If i mod kolonner = 0 Then
%></tr><tr>
<% End If %>
<% Next %>   
</tr></table>
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html