---

Hej

Jeg ville høre ad om der er nogen herinde der har et råd til hvordan man
kan tilføje/rette i dette udmærkede eksempel "tabaelkode.asp", sådan at den
kun
viser 4 filer, istedet for alle filerne der befinder sig i en mappe? Det
skal også være sådan at de vises alle 4 i en række. Om det er 4 første eller
4 tilfældige billeder er fuldstændig ligegyldigt.

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

---

Der var sket et eller andet med formateringen, så det næsten var umiligt at
overskue koden.


<table width="500" border="0" cellspacing="0" cellpadding="0"
align="center">
<%
Dim FSO, F, Filer, fil
Dim kolonner
kolonner = 4
Dim i
i = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFolder(Server.Mappath("/projekter/pb/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='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>
<tr><td height="20"></td></tr>
<% End If
End IF
Next
IF i mod kolonner > 0 Then
%>
</tr>
</table>

---

Jeg forstår ikke helt hvad du vil. Ønsker du blot at få vist 4 filer fra en
mappe? Hvis du skal stå på række hvorfor vil du så bruge en tabel?

Hvis det kun er de første 4 filer du ønsker skal du blot andre på hvor mange
gange du behandler en ny fil fra mappen.

> For Each fil In Filer
Her fortæller du at du vil arbejde med alle filer i mappen.


> Next
Her beder om at gå videre til den næste fil.

Jeg har ikke selv prøvet det, men prøv med dette:

For t = 1 to 4


Filer.MoveNext
Next

Eller også skal du bare bruge den kode du har og sætte en slags tæller på der
stopper koden når tælleren er nået til 4

Lidt tanker du kan arbejde videre med
Hilsen Tonni


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

---

On 19 Feb 2006 21:27:15 GMT, Tonni Rasmussen <ikke@nogen.dk> wrote:

>Jeg har ikke selv prøvet det, men prøv med dette:
>
>For t = 1 to 4
>
>
>Filer.MoveNext

..Move* er en RecordSet-ting, så ovenstående linie skal bare droppes.

>Next
>
>Eller også skal du bare bruge den kode du har og sætte en slags tæller på der
>stopper koden når tælleren er nået til 4


--
Jørn Andersen,
Brønshøj