---
title: "Två kolumner"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/83396-två-kolumner"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "skatan"
published: "2003-08-03T20:36:04.000Z"
updated: "2003-08-03T20:49:27.000Z"
replies: 1
views: 205
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/83396-två-kolumner"
---

# Två kolumner

## #1 — skatan, 2003-08-03T20:36Z

Tjenare!
Jag hållt på hela dagen för att få en lösning till mitt lilla problem.

Jag vill ha så att datan från min gästboks databas loopas ut så här:

Nicklas 5  Greta 2
Johan 4  Ove 1
Per 3

HTML:
\<table\>
\<tr\>
\<td\>Värde 1\</td\>
\<td\>Värde 3\</td\>
\</tr\>
\<tr\>
\<td\>Värde 2\</td\>
\<td\>Värde 4\</td\>
\</tr\>
\</table\>

Jag har en lösning här, fast då radas den itne upp som jag vill ha den.

\<%
nextPage = TRIM( Request( "nextPage" ) )
IF nextPage = "" THEN nextPage = 1

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ="& Server.MapPath("db/gastbok.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.CursorLocation = 3

SQL = "SELECT \* FROM skatan_gastbok ORDER BY id desc"
RecSet.Open SQL, Connect

RecSet.PageSize = 10 '\<-- Här bestämmer du hur många inlägg det ska finnas på sidan
RecSet.AbsolutePage = nextPage

tmpX = 0
Response.Write "\<table\>"
Do until RecSet.EOF OR rowCount \> RecSet.PageSize
rowCount = rowCount + 1

if tmpX = 0 then
response.Write "\<tr\>"
end if 
Response.Write "\<td\>" & Recset("name") & " " & Recset("id") & "\</td\>"
tmpX = tmpX + 1
if tmpX = 2 then
response.Write "\</tr\>" 

tmpX = 0
end if 
'Loopa igenom
RecSet.MoveNext
Loop

if tmpX = 1 then
Response.write "\</tr\>"
end if
Response.write "\<table\>"

' Börja paging
IF RecSet.PageCount \> 1 THEN 

FOR a = 1 to RecSet.PageCount
IF a \<\> cINT( nextPage ) THEN 
Response.Write "\<a href='gastbok.asp?nextPage="& a &"'\>"& a &"\</a\>"
ELSE 
Response.Write "&nbsp;"& a

END IF 
NEXT 
END IF %\>

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

## #2 — Skarre, 2003-08-03T20:49Z

Avänd en räknarvariabel ("counter" i exempelkoden nedan) och sedan denna if-sats:

```
If counter mod 2 = 0 Then
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/83396-två-kolumner