---
title: "Lista i tabell"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/97560-lista-i-tabell"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "fundrusse"
published: "2004-02-17T13:18:00.000Z"
updated: "2004-02-17T15:22:11.000Z"
replies: 4
views: 233
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/97560-lista-i-tabell"
---

# Lista i tabell

## #1 — fundrusse, 2004-02-17T13:18Z

Hejsan
Det är så att jag skall lista produkter i en tabell.
skulle behöva kodexempel på detta.

tabellen skall se ut så här kodmessigt.

\<table border="0" cellpadding="0" cellspacing="0" width="100%"\>
 \<tr\>
  \<td\>produkt 1\</td\>
  \<td\>produkt 2\</td\>
 \</tr\>
 \<tr\>
  \<td\>produkt 3\</td\>
  \<td\>produkt 4\</td\>
 \</tr\>
\</table\>

och så skall det fortsätta tills det inte finns fler produkter att visa

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

## #2 — J.N., 2004-02-17T13:45Z

HEJ!

Gjorde en sådan igår med fyra kolumner, tur för dig  :) 

```
Function gallery()
	response.write "<table><tr>"
	'write the cell, link and content
	For i = 0 To UBound(gallery_txt)
		If j = 4 then response.write "</tr><tr>": j = 0
		response.write "<td><img src=""" & i & ".jpg"">" & gallery_txt(i) & "</td>"
		j = j + 1
	Next
	
	'fill the table with empty cells
	If j <> 0 then
		Do Until j = 4
			response.write "<td>&nbsp;</td>"
			j = j +1
		Loop
	End If
	response.write "</tr></table>"
End Function

Hänger ihop med en textarrray:
gallery_txt(0) = "texttextext"
gallery_txt(1) = "Texttexttex"
```

Det viktiga är hur variabeln j används för att avsluta tabellen snyggt.

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

## #3 — fundrusse, 2004-02-17T14:41Z

Den där koden förstår jag inte riktigt

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

## #4 — J.N., 2004-02-17T14:55Z

Tradigt...

Sätter ihop en mer anpassad kod:

```
sql för att hämta ett rs med produkter

response.write "<table osv><tr>"
'write the cell, link and content
Do Until RS.Eof
	If j = 2 then response.write "</tr><tr>": j = 0
	response.write "<td>" & RS("produkt") & "</td>"
	j = j + 1
Loop
	
'fill the table with empty cells
If j <> 0 then
	Do Until j = 2
		response.write "<td> </td>"
		j = j +1
	Loop
End If
response.write "</tr></table>"
```

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

## #5 — fundrusse, 2004-02-17T15:22Z

Ahh nu blir det bra här..
tackar

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/97560-lista-i-tabell