---
title: "Ny tabellrad efter 4:e fält."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/118678-ny-tabellrad-efter-4-e-fält"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "reka1"
published: "2004-12-25T17:49:12.000Z"
updated: "2004-12-25T18:03:22.000Z"
replies: 1
views: 219
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/118678-ny-tabellrad-efter-4-e-fält"
---

# Ny tabellrad efter 4:e fält.

## #1 — reka1, 2004-12-25T17:49Z

Jag skriver ut data till en tabell som radbryts efter 4:e kolumnen.
Det fungerar nu men jag tycker min kodbit känns ganska klumpig. Kanske nån som har en smidigare lösning?  :) 

```
p = 0
	do until rs.eof
	dim val2 : 	val2 = rs("val") : val2 = UCase(Left(val2, 1)) & LCase(Right(val2, Len(val2) -1))
	
	if p =< 4 then
		response.write "<td>"&val2&"</td>"
		p=p+1
	else
		response.write "</tr><tr>"	
		p=0		
	end if
	
	rs.MoveNext
	loop
		response.write "</table>"
```

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

## #2 — voigtann1, 2004-12-25T18:03Z

Sök på MOD
något i stil med:

```
do until rs.eof
	dim val2 : 	val2 = rs("val") : val2 = UCase(Left(val2, 1)) & LCase(Right(val2, Len(val2) -1))

  If p mod 4 = 0 then
    responsew.write "</tr></tr>"
  Else
    sponse.write "<td>"&val2&"</td>"
  End If
rs.MoveNext : Loop
```

kanske?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/118678-ny-tabellrad-efter-4-e-fält