---
title: "Rada upp i två kolumner"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12749-rada-upp-i-två-kolumner"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Addeladde"
published: "2001-10-20T12:26:00.000Z"
updated: "2001-11-21T15:35:00.000Z"
replies: 5
views: 225
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/12749-rada-upp-i-två-kolumner"
---

# Rada upp i två kolumner

## #1 — Addeladde, 2001-10-20T12:26Z

Jag har gjort en liten SQL-fråga som plockar ut företag från en tabell. De radas upp efter foretag_kategori under en rubrik.

EX:
TELECOM
ericson
telia
nokia

LÄKEMDEL
pharmacia upjon
astra zeneca

osv.

Jag skulle vilja att det radas upp i två kolumner. Lyckas inte p.g.a av rubrikerna som skapas på ett speciellt sätt se i koden nedan.

```
pg = TRIM( Request( "pg" ) )
IF pg = "" THEN pg = 1 

Set referensRS = Server.CreateObject( "ADODB.Recordset" )
referensRS.ActiveConnection = Con
referensRS.CursorType = adOpenStatic
referensRS.CursorLocation = adUSEClient
referensRS.Pagesize = 200

sqlString = "SELECT * " &_
"FROM foretag, kategori " &_
"WHERE foretag_kategori = kategori_id " &_
" ORDER BY kategori_namn, kategori_id, foretag_namn "
referensRS.Open sqlString
referensRS.AbsolutePage = pg
referenser = referensRS.RecordCount

row = 0
response.write "<table width=""350"" border=""1"" cellspacing=""0"" cellpadding=""0"">"
kategori = ""
WHILE NOT referensRS.EOF AND rowCount < referensRS.PageSize
rowCount = rowCount + 1

IF row = 0 or(row = 3)  or(kategori <> referensRS( "Kategori_namn" )) THEN 
  response.write "<tr>"
END IF

IF kategori <> referensRS( "Kategori_namn" ) THEN

kategori = referensRS( "kategori_namn" ) 
response.write "<td><b>"& kategori & "</b>"
END IF
response.write referensRS("foretag_namn") & "</td>"

IF row = 2 or(row) = 5 THEN  
  response.write "</tr>"
END IF
row = row +1

referensRS.MoveNext
WEND

referensRS.close
set referensRS = nothing
con.close
set con = nothing
%>
```

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

## #2 — Addeladde, 2001-10-20T14:17Z

jippi nu har jag äntligen lyckats svänga till en kodsnutt som fungerar

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

## #3 — tapani, 2001-11-20T17:01Z

Du kan väl presentera hur du löste det :)

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

## #4 — Addeladde, 2001-11-20T17:14Z

Jag tog bara med koden som radar upp det i två kolumner. Observer att det även är med en kodsnutt på att dela upp recordsettet på flera sidor

```
      <%
	  kat = 0
	  rubrik =1
response.write "<table width=""350"" border=""0"" cellspacing=""3"" cellpadding=""0"">"
response.write "<tr valign=""top"">"
response.write "<td>"
kategori = ""
WHILE NOT referensRS.EOF AND rowCount < referensRS.PageSize
rowCount = rowCount + 1

IF kat = 50 THEN 
  response.write "<td>"
END IF

IF sortering <> 2 THEN
  IF kategori <> referensRS( "Kategori_namn" ) THEN
    kategori = referensRS( "kategori_namn" )
    IF rubrik <> 1 THEN 
      response.write "<br>" 
    END IF
    rubrik = rubrik + 1
    response.write "<b><font class=""bold10"">"& kategori & "</b></font><br>"
  END IF
END IF
response.write "<font class=""normal10"">"& referensRS("foretag_namn") & "<br></font>"
IF kat = 49 THEN
  response.write "</td>"
  rubrik = 1
END IF
kat = kat + 1

referensRS.MoveNext
WEND
response.write "</tr>"
response.write "</table>"
```

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

## #5 — tapani, 2001-11-21T09:10Z

Tack :) precis vad jag har letat efter..

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

## #6 — tapani, 2001-11-21T15:35Z

Tog bort frågan :) ..........

\[Redigerat av tapani den 21 nov 2001\]

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12749-rada-upp-i-två-kolumner