---
title: "Skriva ut item.name från databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/62892-skriva-ut-item-name-från-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "peppar"
published: "2002-12-22T14:30:34.000Z"
updated: "2002-12-23T22:06:02.000Z"
replies: 3
views: 178
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/62892-skriva-ut-item-name-från-databas"
---

# Skriva ut item.name från databas

## #1 — peppar, 2002-12-22T14:30Z

Har fastnat i logiken (!?). Jag skall skriva ut en fältserie där dom fyra fälten a_1 till a_4 skall hamna på samma rad, det skall skrivas ut **en** gång. sen fortsätta med b_1 osv.

```
<%		For Each Item In RS.Fields
			If item.name <> "recId" AND Item.name <> "recNamn"  Then
				strString = item.name
					strBokstav	= Left(strString, Len(strString)-1) %>
 					<table width="100%" border="0" cellspacing="0" cellpadding="1">             		
              		<tr class="brod12"> 
					<td width="73%"> <%Response.Write(RS(strBokstav+"1"))%></td>
					<td width="14%"> <%Response.Write(RS(strBokstav+"2"))%></td>
					<td width="13%"> <%Response.Write(RS(strBokstav+"3"))%></td>
       	      		</tr>
             		</table>
<%		End If	
		Next %>
```

 
Som det ser ut nu skriver den ut:

```
a_1, a_2, a_3, a_4
a_1, a_2, a_3, a_4
a_1, a_2, a_3, a_4
a_1, a_2, a_3, a_4
b_1, b_2, b_3, b_4 fyra gånger osv.
```

jag vill ta bort 3 steg på varje loop (?) så att den loopar ut enligt följande...

```
a_1, a_2, a_3, a_4
b_1, b_2, b_3, b_4 osv.
```

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

## #2 — h0lger, 2002-12-23T11:28Z

Om du endast skriver ut ett värde per iteration stämmer det. 

Nu skriver du ut a_1 tom a_4 för varje iterationsvarv du tar. 
Prova detta istället

```
For Each Item In RS.Fields
			If item.name <> "recId" AND Item.name <> "recNamn"  Then
				strString = item.name
					strBokstav	= Left(strString, Len(strString)-1) 
'Håll reda på om det är samma bokstav eller om vi har en ny bokstav.
if strBokstav <> strTmpBokstav then
lngCounter = lngCounter + 1
end if %>					
<table width="100%" border="0" cellspacing="0" cellpadding="1">             		
              		<tr class="brod12"> 
					<td width="73%"> <%Response.Write(RS(strBokstav+lngCounter))%></td>
       	      		</tr>
             	</table>
<%		End If
	strTmpBokstav = strBokstav
		Next %>
```

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

## #3 — h0lger, 2002-12-23T11:29Z

Jag har alltid problem med formatteringen av min kod här i wF. Är det nån som vet hur man fixar till detta?

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

## #4 — peppar, 2002-12-23T22:06Z

Tack h0lger

du har knuffat mig i rätt riktning :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/62892-skriva-ut-item-name-från-databas