Recordset.AddNew = Loopa ut

Jag har ett litet problem. Har ett formulär med en några checkboxar...
Det kvittar ifall man kryssar i eller inte så skickas 3 värden med. De splitas först, sedan loopas de in i ett recordset...

Problemet är att första raden blir bra, andra raden får jag med första [k](objRSgroup("groupName"))[/k] men sedan så kommer inget mer.

ex.

namn; Studentlitteratur Visa; false ID; 0
namn; En test Visa; ID;

	xBoxar   = split(strGroup,",") 
	xShows	= split(strGroupShow, ",")
	xID	= split(strGroupID, ",")

'// Recordset med gruppnamn
	objRSgroup.Fields.Append "groupName", adChar, 100
	objRSgroup.Fields.Append "groupID", adChar, 50
	objRSgroup.Fields.Append "groupShow", adChar, 10
	objRSgroup.Open

If Len(strGroup) Then
	For x = 0 To UBound(xBoxar)
		objRSgroup.AddNew
		objRSgroup("groupName") = Trim(xBoxar(x))
		objRSgroup.Update
	Next
	objRSgroup.MoveFirst
	For x = 0 To UBound(xShows)
		objRSgroup("groupShow") = Trim(xShows(x))
		objRSgroup.Update
		
	Next
	objRSgroup.MoveFirst
	For x = 0 To UBound(xID)
		objRSgroup("groupID") = Trim(xID(x))
		objRSgroup.Update
	Next

	objRSgroup.MoveFirst
	Do Until objRSgroup.EOF
		Response.Write("namn; " & objRSgroup("groupName") & "&nbsp;&nbsp;Visa; " & objRSgroup("groupShow") & "&nbsp;&nbsp;ID; " & objRSgroup("groupID") & "<br>")
	objRSgroup.MoveNext
	Loop
Response.End()