---
title: "Bolla en tanke..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/5693-bolla-en-tanke"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Vide"
published: "2000-05-19T07:25:00.000Z"
updated: "2000-05-19T11:01:00.000Z"
replies: 3
views: 185
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/5693-bolla-en-tanke"
---

# Bolla en tanke...

## #1 — Vide, 2000-05-19T07:25Z

Kan man på något smidigt sätt göra om flera Request's till en array, typ:

For each xxx in Request.Form.contents
i = i + 1
MyArray(i) = Request.Form.value

Next

... Nu ser ju detta lite konstigt ut, men ni förstår säkert principen.

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

## #2 — Toonster, 2000-05-19T08:02Z

Jo, det borde funka.
Man får se till att utöka arrayen dynamiskt, med Ubound(). Även se till att den inte blir för stor.

/T

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

## #3 — Vide, 2000-05-19T08:12Z

Hittade ett exempel på det i Professional ActiveServerPages 3.0:

```
For each objitem in Request.Form

If Request.Form(objitem).count > 1 then

For initloop = 1 To Request.Form(objitem).count
MyArray(initloop) = Request.Form(objItem)(initloop)
Next

Else
MyArray(1) = Request.Form(objItem)
End If
Next
```

.. den här koden kolla samtidigt om det finns flera värden i en 'collection'...

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

## #4 — toha, 2000-05-19T11:01Z

Ja, koden ser ganska bra ut. Det jag är tveksam till är dimensioneringen av arrayen. Jag skulle nog löst det genom att lägga det i en sträng och split:at den:

```

Dim vaFormValues
Dim sItm, sFormValues
Dim i

For Each sItm in Request.Form
&nbsp;&nbsp;If Request.Form(sItm).Count > 1 then
&nbsp;&nbsp;&nbsp;For i = 1 To Request.Form(sItm).Count
&nbsp;&nbsp;&nbsp;&nbsp;sFormValues = sFormValues & Request.Form(sItm)(i) & ";"
&nbsp;&nbsp;Next

&nbsp;&nbsp;Else
&nbsp;&nbsp;&nbsp;&nbsp;sFormValues = sFormValues & Request.Form(sItm) & ";"
&nbsp;&nbsp;End If
Next

vaFormValues = Split(sFormValues, ";")
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/5693-bolla-en-tanke
