---
title: "dela upp i kolumner"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/73209-dela-upp-i-kolumner"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "andreas_lindh"
published: "2003-04-05T11:04:05.000Z"
updated: "2003-04-05T17:26:58.000Z"
replies: 4
views: 208
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/73209-dela-upp-i-kolumner"
---

# dela upp i kolumner

## #1 — andreas_lindh, 2003-04-05T11:04Z

jag använder den här koden som jag hittade här på wf för att dela upp poster från en databas i två kolumner.

```
<TABLE bgcolor="#FFFFFF" width="95%" border="0" cellspacing="0" cellpadding="0">
		  <%
		 intCheck = 1
		 do until rs.eof
		  If intCheck = 1 Then
	      Response.Write "<tr>"
	    End If
	   
	   Response.Write "<td width=""200px"">" & RS("datum") &"</td>"

	    If intCheck = 2 Then
		Response.Write "</tr>"

	      intCheck = 0
	    End If

	    intCheck = intCheck + 1
		RS.MoveNext 
Loop 

response.write "</table>" 
		  %>
```

Nu skrivs posterna ut så här
post1 post2
post3 

Går det att göra så att posterna skrivs ut så här istället?
post1 post6
post2
post3
post4
post5

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

## #2 — andreas_lindh, 2003-04-05T13:02Z

Löste det genom att använda getrows istället

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

## #3 — solbulle, 2003-04-05T13:08Z

Och hur såg den lösningen ut om man får vara nyfiken?

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

## #4 — andreas_lindh, 2003-04-05T15:06Z

jag kör en select count
sen delar jag antalet i select count med 2

```
sql="select distinct Datum from kalender where (month(datum) BETWEEN " & m2 &" and "& m1 &") and year(datum) = " & y &" order by datum"
set rs = oconn.execute(sql)
If Not RS.EOF Then arrKalender = RS.GetRows() 
RS.Close : Set RS = Nothing
sql="SELECT COUNT(*) as antal FROM (SELECT DISTINCT datum FROM kalender) kalender where (month(datum) BETWEEN " & m2 &" and "& m1 &") and year(datum) = " & y &""
set rsc = oconn.execute(sql)
antal = rsc("antal") / 2

'första kolumnen
<%
If IsArray(arrKalender) Then

For i = 0 To antal %> 
'Skriv ut
<% 
Next
End If
%>
'andra kolumnen
<% For i = antal To UBound(arrKalender,2) %>
'skriv ut
<% 
Next
Erase arrKalender			
End If
%>
```

Kanske inte den bästa lösningen men den fungerar perfekt

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

## #5 — solbulle, 2003-04-05T17:26Z

Oki, bra att du visade koden, det underlättar för nästa med liknande problem.

Jag tycker spontant att det ser bra ut med Getrows().
Vet inte om du skulle kunna effektivisera såtillvida att du bör väl få ut antalet genom att se hur stor din array är?

```
antal = UBound(arrKalender,2) / 2
```

Hur som helst ska du kanske stänga ditt rsc direkt efter att du satt variabeln "antal".

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/73209-dela-upp-i-kolumner