---
title: "Räkna och loopa ett värde"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/132153-räkna-och-loopa-ett-värde"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Meng"
published: "2005-08-02T08:30:18.000Z"
updated: "2005-08-02T11:47:59.000Z"
replies: 3
views: 296
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/132153-räkna-och-loopa-ett-värde"
---

# Räkna och loopa ett värde

## #1 — Meng, 2005-08-02T08:30Z

Hur gör jag för att räkna hur många värden jag får och sedan  dela ut dem i en loop som visar lika många poster?

Exempel:

```
print='97, 95, 94, 92, 91, 90, 87, 86, 85, 84'
```

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

## #2 — Erik Juhlin, 2005-08-02T08:42Z

```
Dim sPrint, vPrint, i
sPrint = "97, 95, 94, 92, 91, 90, 87, 86, 85, 84"
vPrint = Split(sPrint, ",")

Response.Write "Antal värden: " & UBound(vPrint) + 1

For i = 0 To UBound(vPrint)
	Response.Write "<br>" & Trim(vPrint(i))
Next 'i
```

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

## #3 — Meng, 2005-08-02T10:18Z

Detta funkar skit bra, bara ett problem

kolla här..

om jag väljer 96, 94, 92, 90, 89, 87, 86, 83, 82 blir antalet 9

då får jag utskrivet 9, 96, 94, 92, 90, 89, 87, 86, 83 och inte 82

Nån som vet varför antal värdet blir inblandat?

```
################################ol_admin_save.asp###################

		Response.write "<html>"%>
		<body onload="document.getElementById('foo').submit();">
		<form method="post" action="ol_printall.asp?do=visvare" id="foo">
		<%
	Dim sPrint, vPrint, i
	sPrint = Fixa(Request.Form("print"))
	vPrint = Split(sPrint, ",")

	Response.write "<br><input type=""text"" name=""antal"" value=""" & UBound(vPrint) + 1 & """>"

	For i = 1 To UBound(vPrint)
	Response.write "<br><input type=""text"" name=""" & i & """ value=""" & Trim(vPrint(i)) & """>"
	Next 'i

		Response.write "</form>"
		Response.write "</body>"
		Response.write "</html>"

################################ol_printall.asp###################

antal = CLng( Request.Form("antal") )

For k = 1 To antal
	trams = Request.Form(k)

	Set RecSet = Conn.Execute("SELECT * FROM varelager Where id=" & trams )

'''' Reccar ut all data
 
	RecSet.Close
	Set RecSet = Nothing

Next 'k
```

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

## #4 — Meng, 2005-08-02T11:47Z

Fixade det nu, skippade att ha ett mellansteg med form forward så nu funkar det perfekt!

Tack för hjälpen Erik!

```
<% 

Dim sPrint, vPrint, k
sPrint = Request.Form("print")
vPrint = Split(sPrint, ",")

For k = 0 To UBound(vPrint)
	
	trams =  Trim(vPrint(k))

Set RecSet = Conn.Execute("SELECT * FROM varelager Where id=" & trams )

'''' Reccar ut all data
 
	RecSet.Close
	Set RecSet = Nothing

Next 'k
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/132153-räkna-och-loopa-ett-värde