for each problem

Halloj. Sitter och pillar lite med en insert, dock utan att få den att funka som jag vill.

Först har jag en sidan där man får välja 2 eller 3 lag. Och beroende på hur många lag man väljer, så kör nästa sida ut 2 eller 3 uppsättningar av forumläret. Formuläret är uppbyggt med en dropdown med 30 lag (döpt till teamid), och sedan har jag ett text fält (döpt till players). Och om man väljer 2 på första sidan, så blir det dubbel uppsättning utav allt, och 3 stycken dropdowns och text fält om man väljer 3. Dessutom så finns det ett doltfält som räknar antal lag (1, 2 och ev 3), detta fält heter rakna.

Detta är koden som körs när man trycker på submit:

If Request.QueryString("alt") = "finishadd" Then
	
objConn.Execute("INSERT INTO tbl_tradedate (trade_datum) VALUES (#" & date() &"#)"),,128
Set RecSet = objConn.Execute("SELECT TOP 1 trade_id, trade_datum FROM tbl_tradedate ORDER BY trade_id DESC")

tradeid = RecSet("trade_id")
tradedatum = RecSet("trade_datum")
RecSet.Close

teamid = Request.Form("teamid")
players = Request.Form("players")

[b]For Each value In Request.Form("rakna")
objConn.Execute("INSERT INTO tbl_trades (tradedates_id, trade_datum, team_id, trade_players) 
VALUES ('"& tradeid &"', #"& tradedatum &"#, '"& teamid &"', '"& players & "')"),,128
Next[/b]
	
Response.Write " klart "
	End If

Koden som är bold, är den jag inte får att funka som jag vill. Som den ser ut nu så får jag följade resultat i tabellen:

trade id: 1
trade id: 2
tradedates_id: 1
tradedates_id: 1
datum: 2004-01-01
datum: 2004-01-01
team_id: 1
team_id: 1
players: Spelare lag ett, spelare lag två
players: Spelare lag ett, spelare lag två

Jag vill att det skall se ut så här i tabellen:

trade id: 1
trade id: 2
tradedates_id: 1
tradedates_id: 1
datum: 2004-01-01
datum: 2004-01-01
team_id: 1
team_id: 2
players: Spelare lag ett
players: Spelare lag två

Edit: la in en liten radbrytning i insert koden, så att man slipper sidscrolla. Ber också ursäkt för den luddiga förklaringen, är inte bra på att förklara saker :r

Fixat

Löste mitt problem med hjälp utav detta inlägg av Jesper T

Följande kod funkade perfekt för mig:

For x = 0 To Request.Form("rakna").count-1
	
Dim teamid, players
	
teamid = Split(Request.Form("teamid"),",")
players = Split(Request.Form("players"),",")
	
objConn.Execute("INSERT INTO tbl_trades (tradedates_id, trade_datum, team_id, trade_players) 
VALUES ('"& tradeid &"', #"& tradedatum &"#, '"& teamid(x) &"', '"& players(x) & "')"),,128
Next

Får tacka Jesper för hjälpen :birp

Vassego. :)