---
title: "radbrytning"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/66841-radbrytning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "antar"
published: "2003-02-01T11:17:33.000Z"
updated: "2003-02-01T12:52:00.000Z"
replies: 10
views: 231
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/66841-radbrytning"
---

# radbrytning

## #1 — antar, 2003-02-01T11:17Z

hur gör man för att skriv \<br\> efter varje 5 bilder?
\<% 
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
Set Folder = FSO.GetFolder(server.mappath("bilder/"))
set Files = Folder.Files 
For each Item In Files
%\>
\<img src="\<%=Item.Name%\>"\>
\<%
Next 
set Folder = nothing 
set FSO = nothing 
set Files = nothing
%\>

Permalänk: https://www.webforum.nu/p/66841

## #2 — solbulle, 2003-02-01T11:21Z

Svaret finns rakt framför dig: <http://www.webforum.nu/showthread.php?s=&threadid=65267>

Permalänk: https://www.webforum.nu/p/935286

## #3 — antar, 2003-02-01T12:18Z

så eller?
\<% 
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
Set Folder = FSO.GetFolder(server.mappath("bilder/")) 
set Files = Folder.Files 

x = 0

For each Item In Files 

x = x + 1
If x mod 6 = 0 then
response.write "\<br\>"
x = 0

End If\> 
\<img src="\<%=Item.Name%\>"\> 
\<% 
Next 
set Folder = nothing 
set FSO = nothing 
set Files = nothing 
%\>

Permalänk: https://www.webforum.nu/p/935316

## #4 — trexter, 2003-02-01T12:25Z

Du har blandat ihop det lite grand. ;)

```
<% 
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
Set Folder = FSO.GetFolder(server.mappath("bilder/")) 
set Files = Folder.Files 

x = 0 

For each Item In Files 

x = x + 1 
If x mod 5 = 0 then response.write "<br>" 
%> 
<img src="<%=Item.Name%>"> 
<% 
Next 
set Folder = nothing 
set FSO = nothing 
set Files = nothing 
%>
```

"Mod" räknar ut det vi i division kallar "rest". Du behöver alltså inte återställa x till 0 efter att kravet uppfyllts i If-satsen. 5/5 = 1 rest 0 6/5 = 1 rest 1 10/5 = 2 rest 0 osv.

 :)

Permalänk: https://www.webforum.nu/p/935322

## #5 — antar, 2003-02-01T12:36Z

den skriver \<br\> efter 3 bilder?

Permalänk: https://www.webforum.nu/p/935331

## #6 — trexter, 2003-02-01T12:37Z

Nej, efter 5 st. I alla fall enligt mina kalkyler. ;)
Du kan ju provköra koden och kolla resultatet.

 :)

Permalänk: https://www.webforum.nu/p/935333

## #7 — antar, 2003-02-01T12:42Z

nope den skriver ut 4 på första raden och 5 på resten

Permalänk: https://www.webforum.nu/p/935338

## #8 — trexter, 2003-02-01T12:44Z

```
<% 
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
Set Folder = FSO.GetFolder(server.mappath("bilder/")) 
set Files = Folder.Files 

x = 0 

For each Item In Files 

If x mod 5 = 0 then response.write "<br>" 
%> 
<img src="<%=Item.Name%>"> 
<% 
x = x + 1
Next 
set Folder = nothing 
set FSO = nothing 
set Files = nothing 
%>
```

 :q Fungerar kanske?

Permalänk: https://www.webforum.nu/p/935341

## #9 — solbulle, 2003-02-01T12:47Z

```
<% 
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
Set Folder = FSO.GetFolder(server.mappath("bilder/")) 
set Files = Folder.Files

x = 0
For each Item In Files
	response.write "<img src=""bilder/" & Item.Name & """>"
	x = x + 1
	If x mod 5 = 0 then response.write "<br>" 
Next 
set Folder = nothing 
set FSO = nothing 
set Files = nothing 
%>
```

Red. hupp.  :r 
Red. 2. La in "bilder" i sökvägen.

Permalänk: https://www.webforum.nu/p/935343

## #10 — solbulle, 2003-02-01T12:48Z

Hupp. kanske lite sen...

Permalänk: https://www.webforum.nu/p/935345

## #11 — antar, 2003-02-01T12:52Z

perfekt

Permalänk: https://www.webforum.nu/p/935348

---

Tråden på webben: https://www.webforum.nu/amne/asp/66841-radbrytning