---
title: "for each"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9068-for-each"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "icaaq"
published: "2001-04-17T21:30:00.000Z"
updated: "2001-04-18T16:41:00.000Z"
replies: 13
views: 281
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/9068-for-each"
---

# for each

## #1 — icaaq, 2001-04-17T21:30Z

jag har följande:

```
For Each objItem in Request.Form
	[b]If Request.Form(objitem) <> "0" Then[/b]
		arr = Split(Request.Form(objitem),",")
		varID = arr(0)
		varFonster = arr(1)
		varKlass = arr(2)
		varGrupp = arr(3)
srtSql = "INSERT INTO Rullning(ID, "& varFonster &") VALUES ("& varID &", '" & varKlass & "," & varGrupp & "')"
con.execute(strSql)
End If
Next
```

Microsoft VBScript runtime error '800a01a8' 

Object required: 'Request' 

/Test/grej.asp, line 18 

kan jag lösa det på nått ivs

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

## #2 — Vide, 2001-04-17T21:32Z

Såhär kanske...

If Request.Form(objItem) \<\> "0" Then

Du döpte den ju till objItem

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

## #3 — icaaq, 2001-04-17T21:43Z

jag får det inte rriktigt att funka som jag vill...
nu blir det

Microsoft VBScript runtime error '800a0009' 

Subscript out of range: '\[number: 1\]' 

/Test/grej.asp, line 20 

det som kommer med requesten är:
value="1, VU, P-86, 1"

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

## #4 — LarsG, 2001-04-17T22:01Z

Jag förstår inte varför du gör for each när indata ser ut så? Borde det inte gå att göra split direkt istället och kolla om första värdet är \<\> 0 och i så fall göra insert?

Nu så gör du split på strängen 1 och får då ett element i din array.

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

## #5 — icaaq, 2001-04-17T22:07Z

Vad menar du ....
som jag har det nu så har jag en massa values från en sida....kolla själva.. 

om dem inte valt nåt så får den requesten value "0"

och om det är value "0" så vill jag inte lägga in den 

har du nått annat att föreslå??

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

## #6 — LarsG, 2001-04-17T22:22Z

Jag kollade på sidan, så nu förstår jag hur det ser ut. Men det fanns ju ett hidden field med och det kanske är det som strular. Du kanske kan lägga en koll efter din split att du fick 4 värden.
dvs 

```
For Each objItem in Request.Form
If Request.Form(objitem) <> "0" Then
arr = Split(Request.Form(objitem),",")
if  Ubound(arr) = 3 then
varID = arr(0)
varFonster = arr(1)
varKlass = arr(2)
varGrupp = arr(3)
srtSql = "INSERT INTO Rullning(ID, "& varFonster &") VALUES ("& varID &", '" & varKlass & "," & varGrupp & "')"
con.execute(strSql)
End If
End If
Next
```

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

## #7 — icaaq, 2001-04-17T22:48Z

ok...inga felmess längre men... det händer inget :(

```
If Request.Form("regga") = "reg" Then
Set con = Server.CreateObject("ADODB.Connection")
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../data/bustercup.mdb")
con.open
strSqlDel = "DELETE FROM Rullning"
con.execute(strSqlDel)

 For Each objItem in Request.Form
 If Request.Form(objitem) <> "0" Then
 arr = Split(Request.Form(objitem),",")
 if Ubound(arr) = 3 then
 varID = arr(0)
 varFonster = arr(1)
 varKlass = arr(2)
 varGrupp = arr(3)
 srtSql = "INSERT INTO Rullning(ID, "& varFonster &") VALUES("& varID &", '" & varKlass & "," & varGrupp &"')"
 Response.Write strSql
 con.execute(strSql)
 End If
 End If
 Next

Else
```

Response.write ger inget 
 :q :q :q ;)

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

## #8 — icaaq, 2001-04-17T22:49Z

nu ser jag srtSql istället för strSql

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

## #9 — icaaq, 2001-04-17T22:55Z

vill ändå inte gå .... :(
det vill inte komma in nåt i db.

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

## #10 — Vide, 2001-04-17T23:00Z

Vad får du när du skriver ut SQL-strängen?

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

## #11 — icaaq, 2001-04-17T23:00Z

inget... :(

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

## #12 — LarsG, 2001-04-17T23:07Z

Hmm, några av dina drop down listor hade ju också samma namn. Då kommer väl alla värden i samma item, dvs det blir

 1, VU, P-86, 1,0,3, VU, P-84, 4

eller något sådant i objItem. Så om man döper dom till olika namn?!

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

## #13 — icaaq, 2001-04-17T23:37Z

Fan det funkar ju inte ändå......asso det funkar med denna for each men jag kan ju inte köra flera inserts på samma id ....det blir å tänka lite över natten nån som har en ide  :q

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

## #14 — icaaq, 2001-04-18T16:41Z

Löste det så här:

```
 For Each objItem in Request.Form
 If Request.Form(objitem) <> "0" Then
 arr = Split(Request.Form(objitem),",")
 if Ubound(arr) = 3 then
 varID = arr(0)
 varFonster = arr(1)
 varKlass = arr(2)
 varGrupp = arr(3)
 strSql = "SELECT ID FROM Rullning WHERE ID = "& varID&""
 Set rs = con.execute(strSql)
 If rs.EOF Then
 strIns = "INSERT INTO Rullning(ID, "& varFonster &") VALUES("& varID &",'"&varKlass&","&varGrupp&"')"
 Response.Write strIns
 con.execute(strIns)
 Else
 strUpd = "UPDATE Rullning SET "&varFonster&" = '"& varKlass&","&varGrupp&"' WHERE ID = "&varID&""
 Response.Write strUpd
 con.execute(strUpd)
 End If
 End If
 End If
 Next
```

tack allihopa

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9068-for-each