---

Hej

Jeg prøver med koden her forneden, at få vist én række med fire kolloner med
ét billede i hver. Det den gør er at den bare indlæser alle filer fra mappen
og viser dem, men altså ikke stopper som jeg gerne vil have den efter 4
billeder (én række).

Er der nogen af jeg der kan hjælpe mig med at rette koden til?


<table width="500" border="0" cellspacing="0" cellpadding="0"
align="center">
<%
kolonner = 4
Dim i
i = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFolder(Server.Mappath("/foto/" & billeder & ""))
Set Filer = F.Files
For Each fil In Filer
IF instr(lcase(FSO.GetExtensionName(fil)), "jpg") > 0 Then
If i mod kolonner = 0 Then
%>
<tr>
<% End If %>
<td><% response.write "<a href='javascript:PopupPic(""foto/" & billeder &
"/" & fil.Name &""")'>" %><% response.write "<img src='foto/" & billeder &
"/"%><%= fil.Name%><% response.write "' width='85' height='55'
class='img'></a>" %></td>
<%
i = i + 1
If i mod kolonner = 0 Then
%>
</tr>
<%
if i < 4 then
%>
<tr><td height="20"></td></tr>
<%
else
end if
end if
end if
Next
%>

---

Gjug@ skrev:

> Jeg prøver med koden her forneden, at få vist én række med
> fire kolloner med ét billede i hver.

Dvs. du vil have en tabel som følger:

<table>
   <tr>
       <td>billede 1</td>
       <td>billede 2</td>
       <td>billede 3</td>
       <td>billede 4</td>
   </tr>
</table>

?

> Er der nogen af jeg der kan hjælpe mig med at rette koden til?

Jo da.

> <%
> i = i + 1
> If i mod kolonner = 0 Then
> %>
> </tr>
> <%
> if i < 4 then

Hm, hvad laver if i < 4 der? Noget tyder på at du prøver at lave en
tabel med én kolonne og 8 rækker (hvor hver anden er tom). Det er i
så fald en uhensigtsmæssig måde at gøre det på - den kode du bruger
som udgangspunkt (som jeg selv har skrevet i sin tid), er beregnet
på at lave en tabelopstilling med et fast antal kolonner (bestemt
af variablen kolonner).

Anyway - du kan få koden til at stoppe ved at indsætte "Exit For"
sidst i if-sætning:

<%   
   i = i + 1
   If i mod kolonner = 0 Then Exit For
   
   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

---

> Anyway - du kan få koden til at stoppe ved at indsætte "Exit For"
> sidst i if-sætning:
>
> <%
> i = i + 1
> If i mod kolonner = 0 Then Exit For
>
> Next
> %>
> </tr><table>

Hejsa. Jeg takker for hjælpen. Jeg fik rettet problemet, dog ville den have
at jeg skrev det ovenstående således:

<%
i = i
If i mod kolonner = 0 Then Exit For

Next
%>
</tr><table>

Hvis jeg skrev i = i + 1, så viste den kun de første to billeder og ikke
fire som ønsket.

Men altså virker det nu. TAK!

---

Gjug@ skrev:

> <%
> i = i

Ovenstående er overflødigt - du kan bare slette linjen.


> Hvis jeg skrev i = i + 1, så viste den kun de første to
> billeder og ikke fire som ønsket.

Det er nok fordi der står i = i + 1 et andet sted i koden.

--
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