---
title: "Dela upp resultatet i flera kolumner"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/44353-dela-upp-resultatet-i-flera-kolumner"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Sammy"
published: "2002-05-22T18:26:02.000Z"
updated: "2002-05-22T19:59:47.000Z"
replies: 12
views: 341
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/44353-dela-upp-resultatet-i-flera-kolumner"
---

# Dela upp resultatet i flera kolumner

## #1 — Sammy, 2002-05-22T18:26Z

Jag undrar hur jag med denna kod ska skriva för att dela upp resultatet i flera kolumner. Nu blir ju resultatet ståendes men säg att jag ex.vis skulle vilja att den visar två resultat för varje kolumn. ( eller flera ;) )

\<TABLE bgcolor="#FFFFFF" width="95%" border="0" cellspacing="0" cellpadding="0"\>
        \<%
         Set Connect = Server.CreateObject("ADODB.Connection")
         MdbFilePath = Server.MapPath("databas/mafdb.mdb")
         Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & MdbFilePath & ";"

         Set RStemp = Connect.Execute("SELECT \* FROM SETS order by IDNR")

         Do Until RStemp.EOF

          Response.Write "\<TR\>\<TD align=center\>" &\_
                         "Click frame for a larger view\<BR\>" &\_
                         "\<A href=bild.asp?idnr=" & RStemp("IDNR") & "\>" &\_ 
                         "\<IMG src=images/collections/set01/" & RStemp("SET01") & "thmb.jpg width=130 border=0\>\<BR\>" & RStemp("SET01") & "" &\_
                         "\</A\>\<P\>" &\_
                         "\</TD\>\</TR\>"

         RStemp.MoveNext
         Loop
        %\>
      \</table\> 

      \<%
       Connect.close
       Set Connect = nothing
      %\>

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

## #2 — LAMP, 2002-05-22T18:31Z

Hej sammy. Kolla denna tråden som frågade samma innan idag. Exemplet ger 4 kolumner.

Ändra denna raden till önskat antal kolumner:

**If intCheck = 4 Then**

4:an står för 4 kolumner, byta till en 2:a om du vill ha 2 kolumner.

<http://www.webforum.nu/showthread.php?s=&threadid=43443>

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

## #3 — Sammy, 2002-05-22T18:39Z

Får felmeddelande när jag försöker med den koden?

Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'ubound'
/maf/bild.asp, line 32

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

## #4 — LAMP, 2002-05-22T18:44Z

```
<TABLE bgcolor="#FFFFFF" width="95%" border="0" cellspacing="0" cellpadding="0"> 
<% 
Set Connect = Server.CreateObject("ADODB.Connection") 
MdbFilePath = Server.MapPath("databas/mafdb.mdb") 
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" 

Set RStemp = Connect.Execute("SELECT * FROM SETS order by IDNR") 

Do Until RStemp.EOF 

If intCheck = 1 Then
	      Response.Write "<tr>"
	    End If
	   
	   Response.Write "<td align=""center"">" &_ 
"Click frame for a larger view<BR>" &_ 
"<A href=bild.asp?idnr=" & RStemp("IDNR") & ">" &_ 
"<IMG src=images/collections/set01/" & RStemp("SET01") & "thmb.jpg width=130 border=0><BR>" & RStemp("SET01") & "" &_ 
"</A><P></td>"

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

	      intCheck = 0
	    End If

	    intCheck = intCheck + 1
		RStemp.MoveNext 
Loop 

response.write "</table>" 

Connect.close 
Set Connect = nothing 
%>
```

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

## #5 — Sammy, 2002-05-22T18:49Z

Nu fungerade det alldelles utmärkt ;)

En konstig sak dock.. om jag har ojämnt antal lagrade (bilder, som i det här fallet) så blir en ruta tom längst upp till vänster? Det vore ju snyggast om den tomma rutan instället hamnade längst ner till vänster (ser mest naturligt ut)

Hur kommer det sig att det blir så?

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

## #6 — LAMP, 2002-05-22T19:02Z

det problemet får inte jag här när jag testar. Innehåller inte alla poster som du hämtar en bild?

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

## #7 — Sammy, 2002-05-22T19:15Z

Jo... det gör dem.. det är det som är så konstigt?

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

## #8 — LAMP, 2002-05-22T19:26Z

har du en url man kan kika på? Du har kanske fått dit någon \<td\> som inte ska vara där.

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

## #9 — pirro, 2002-05-22T19:41Z

ett annat sätt

```
[red]
nr = 0
Do Until RStemp.EOF

'Kod...
if nr mod 4 = 0 then
response.write "</tr><tr>
end if
nr = nr +1
loop
[/red]
```

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

## #10 — Sammy, 2002-05-22T19:44Z

Njae.. tyvärr.. kör bara lokalt just nu..

men jag använder exakt den kod du angav sist så det borde väl vara där felet ligger isf?

Hittar dock inget fel?

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

## #11 — Sammy, 2002-05-22T19:48Z

Så här blir koden och som du märker så saknas det en \<TR\> tagg längst upp tillsammans med att en kolumn fattas (den första)

      \<TABLE bgcolor="#FFFFFF" width="100%" border="0" cellspacing="0" cellpadding="0"\>
        \<td align="center"\>
         Click frame for a larger view\<BR\>\<A href=bild.asp?idnr=1\>\<IMG src=images/collections/set01/FC1021thmb.jpg width=130 border=0\>\<BR\>FC1021\</A\>
        \</td\>
       \<tr\>
        \<td align="center"\>
         Click frame for a larger view\<BR\>\<A href=bild.asp?idnr=2\>\<IMG src=images/collections/set01/FH1104-2thmb.jpg width=130 border=0\>\<BR\>FH1104-2\</A\>
        \</td\>
        \<td align="center"\>
         Click frame for a larger view\<BR\>\<A href=bild.asp?idnr=3\>\<IMG src=images/collections/set01/FH1108thmb.jpg width=130 border=0\>\<BR\>FH1108\</A\>
        \</td\>
       \</tr\>
       \<tr\>
        \<td align="center"\>
         Click frame for a larger view\<BR\>\<A href=bild.asp?idnr=4\>\<IMG src=images/collections/set01/FS1201thmb.jpg width=130 border=0\>\<BR\>FS1201\</A\>
        \</td\>
        \<td align="center"\>
         Click frame for a larger view\<BR\>\<A href=bild.asp?idnr=5\>\<IMG src=images/collections/set01/FS1601thmb.jpg width=130 border=0\>\<BR\>FS1601\</A\>
        \</td\>
       \</tr\>
      \</table\>

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

## #12 — LAMP, 2002-05-22T19:56Z

Ahh, en liten miss av mig ;)

lägg till den feta raden i din kod 

```
[b]intCheck = 1[/b]
Do Until RStemp.EOF 

If intCheck = 1 Then
	      Response.Write "<tr>"
	    End If
```

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

## #13 — Sammy, 2002-05-22T19:59Z

Perfekt.. tackar och bugar för din hjälp och dina snabba svar ;)

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

---

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