---
title: "Loop i en loop"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/167080-loop-i-en-loop"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2007-12-08T20:05:09.000Z"
updated: "2007-12-08T21:01:40.000Z"
replies: 2
views: 645
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/167080-loop-i-en-loop"
---

# Loop i en loop

## #1 — devotion, 2007-12-08T20:05Z

Hej! :)  

Jag har följande kod som skriver ut etiketter:

```
<% 

	'Skapa ett Recordset
	Set Rs=CreateObject("ADODB.Recordset")
	
	'SQL-fråga
	sSQL="SELECT [Id], [BarCode], [Nr], [Name], [Custom1], [Custom2], [Custom4] FROM [tblArticle] WHERE [Id] IN (" & sArticleIds & ")"
	
	Rs.Open sSQL, Conn
	
	while not Rs.EOF
		
		nArticleId=Rs("Id")
		nArticleBarCode=Rs("BarCode")
		sArticleNr=Rs("Nr")
		sArticleName=Rs("Name")
		sVendorPartNr=Rs("Custom1")
		sEquipmentTagNr=Rs("Custom2")
		nArticleRequired=Rs("Custom4")
		
		If iLabelNr > 0 and iLabelNr Mod 3 = 0 Then			' Etikett 4, 7, 10 etc, avsluta raden och börja ny rad.
			Response.Write "</tr><tr>"
		End If

		'-- START LABEL ------------------------------------------->
		Response.Write "<td  align='center'>"
			If nBarCode <> "" Then
				Response.Write "<span class='labeltable_barcode'>!" & nArticleBarCode & "!</span><br><br>"
			Else
				Response.Write "<span class='labeltable_text'><br><br><br>*** Streckkod saknas ***</span><br><br>"
			End If
			Response.Write "<span class='labeltable_content'>Stockcode: <a class='hoverlink' href='UppdragNU://ApplicationUI.EditArticle(" & nArticleId & ")'>" & sArticleNr & "</a></span><br>"
			Response.Write "<span class='labeltable_content'><b>" & sArticleName & "</b></span><br>"
			Response.Write "<span class='labeltable_content'>(Vendor Part No: " & sVendorPartNr & ")</span>"
			Response.Write "<span class='labeltable_content'>(Equipment Tag No: " & sEquipmentTagNr & ")</span>"
		Response.Write "</td>"
		'-- STOP LABEL -------------------------------------------->

		iLabelNr = iLabelNr + 1
				
		Rs.MoveNext
		
	wend
	
	'Förstöra objekten
	Rs.Close
	Set Rs=Nothing
	Set Conn=Nothing
	
	%>
```

Det fungerar finfint, men jag skulle vilja utöka funktionen lite... (vilket jag inte lyckads med :( )

Tanken med koden är att alla artiklar ska skrivas ut som streckkoder. Nu finns det ett fält till varje artikel som heter  'nArticleRequired' som kan vara 1 eller flera.

Så om 'nArticleRequired' tex är 5 vill jag att samma streckkod ska skrivas ut 5 gånger innan nästa streckkod ska skrivas ut osv.

Det behövs någon typ av loop i loopen för detta...  :)  

Mvh
Henrik

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

## #2 — LarsG, 2007-12-08T20:48Z

```
<% 

	'Skapa ett Recordset
	Set Rs=CreateObject("ADODB.Recordset")
	
	'SQL-fråga
	sSQL="SELECT [Id], [BarCode], [Nr], [Name], [Custom1], [Custom2], [Custom4], nArticleRequired " & _
             " FROM [tblArticle] WHERE [Id] IN (" & sArticleIds & ")"
	
	Rs.Open sSQL, Conn
	
	while not Rs.EOF
		
		nArticleId=Rs("Id")
		nArticleBarCode=Rs("BarCode")
		sArticleNr=Rs("Nr")
		sArticleName=Rs("Name")
		sVendorPartNr=Rs("Custom1")
		sEquipmentTagNr=Rs("Custom2")
		nArticleRequired=Rs("Custom4")
		
		If iLabelNr > 0 and iLabelNr Mod 3 = 0 Then			' Etikett 4, 7, 10 etc, avsluta raden och börja ny rad.
			Response.Write "</tr><tr>"
		End If
		for cnt = 1 to cint(rs("nArticleRequired"))
'-- START LABEL ------------------------------------------->
			Response.Write "<td  align='center'>"
			If nBarCode <> "" Then
				Response.Write "<span class='labeltable_barcode'>!" & nArticleBarCode & "!</span><br><br>"
			Else
				Response.Write "<span class='labeltable_text'><br><br><br>*** Streckkod saknas ***</span><br><br>"
				exit for
			End If
		next
		Response.Write "<span class='labeltable_content'>Stockcode: <a class='hoverlink' href='UppdragNU://ApplicationUI.EditArticle(" & nArticleId & ")'>" & sArticleNr & "</a></span><br>"
		Response.Write "<span class='labeltable_content'><b>" & sArticleName & "</b></span><br>"
		Response.Write "<span class='labeltable_content'>(Vendor Part No: " & sVendorPartNr & ")</span>"
		Response.Write "<span class='labeltable_content'>(Equipment Tag No: " & sEquipmentTagNr & ")</span>"
		Response.Write "</td>"
'-- STOP LABEL -------------------------------------------->

		iLabelNr = iLabelNr + 1
				
		Rs.MoveNext
		
	wend
	
	'Förstöra objekten
	Rs.Close
	Set Rs=Nothing
	Set Conn=Nothing
	
	%>
```

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

## #3 — devotion, 2007-12-08T21:01Z

Hmmm, det var ju inte så svårt... :)  

Thanks...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/167080-loop-i-en-loop