---
title: "loopa i kolumner"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/106469-loopa-i-kolumner"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mackanz"
published: "2004-06-30T11:39:40.000Z"
updated: "2004-06-30T11:46:44.000Z"
replies: 2
views: 245
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/106469-loopa-i-kolumner"
---

# loopa i kolumner

## #1 — mackanz, 2004-06-30T11:39Z

Jag har ett sak som jag ej kan lösa. Jag har en lista med företagsnamn på. Dessa företagsnamn skall jag loopa ut ur en databas. Dessa namn skall sedan loopas i 3 kolumner. 
Hur gör jag det? Jag kan loopa den i en lång lisata rätt upp och ner men inte i tre kolumner. Dom skall sedan sorteras upp ifrån och ner. Inte från vänster till höger.
(Det skall se ut som när man sorterar namm i bokstavsordning och i tre kolumner i word)
Hoppas ni förstår vad jag menar. =)

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

## #2 — Josef, 2004-06-30T11:44Z

Ett sätt är ju att kolla hur många poster som returneras, dela detta på tre för att få reda på hur många det ska vara i varje kolumn. Sedan loopa ut allting i en tabell,  lägg till +1 för varje runda i loppen på en variabel (t ex: i). När i har fått värdet = "en tredje del av alla posterna" skriver du ut "\</td\>\<td\>". 
Borde fungera.

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

## #3 — mackanz, 2004-06-30T11:46Z

Nu förstår jag inte så mycket. Kan du ge mig loopningsexempel eller kodsnutt?

Jan kan ju säga som så att jag har en kod nu som loppar allt i kolumner men den koden loppar allt från vänster till höger, men jag vill ha det uppifrån och ner.  Den ser ut som nedan.

```
<%

 

sql = "SELECT * FROM sponsorer order by sponsornamn asc"

rsRecSet.Open sql, cnConn, 0, 1

 

 

Do until rsRecSet.EOF

 

Response.Write(strRow & "<td>"  &  rsRecSet("sponsornamn")  &  "</td>" & vbCrLf)

nummer = nummer + 1

    If nummer Mod 3 = 0 Then

                        strRow = "</tr>" & vbCrLf & "<tr>" & vbCrLf

            Else

                        strRow = ""

            End If

 

rsRecSet.MoveNext

Loop

rsRecSet.Close

 

%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/106469-loopa-i-kolumner