Problem med opdatering af holddatabase

Ved hjælp af en liste med alle klubbens medlemmer, kan holdet sættes ved at klikke checkboxe til og fra. Checkboxene har navnet chk1.
Vha. nedenstående skulle tabellen 'hold' så meget gerne opdateres. Scriptet skulle først løbe alle numre igennem, som er indeholdt i chk1, men den når kun til det første. På samme måde fjernes alle andre, da scriptet ikke kan se dem i arrayet.
Jeg ved positivt, at arrayet indeholder de rigtige numre, og det er sat op på følgende måde:

'', '001','004', ........


Arr_Numre = Split(Request.Form("chk1"), ",")
Str = "''"
For i = 0 To UBound(Arr_Numre)
  Str = Str & ", '" & Arr_Numre(i) & "'"
Next

strSQLIN = "SELECT medlemsnr FROM medlemmer WHERE medlemsnr IN (" & Str & ")"
set rsIN = conn.execute(strSQLIN)
   
While not rsIN.EOF
    strSQL1 = "SELECT * FROM hold WHERE medlemsnr = '" & rsIN("medlemsnr") & "' AND teamid = '" & request.querystring("team") & "'"
    set rs1 = conn.execute(strSQL1)
    If rs1.BOF and rs1.EOF Then
        strSQL2 = "INSERT INTO hold (medlemsnr, teamid) VALUES ('" & rsIN("medlemsnr") & "', '" & request.querystring("team") & "')"
        set rs2 = conn.execute(strSQL2)
    End If
    rsIN.movenext
Wend

strSQLNOTIN = "SELECT medlemsnr FROM medlemmer WHERE medlemsnr NOT IN (" & Str & ")"
set rsNOTIN = conn.execute(strSQLNOTIN)

While not rsNOTIN.EOF
           
    strSQL1 = "SELECT * FROM hold WHERE medlemsnr = '" & rsNOTIN("medlemsnr") & "' AND teamid = '" & request.querystring("team") & "'"
    set rs1 = conn.execute(strSQL1)
       
    If rs1.BOF and rs1.EOF Then
    Else
    strSQL2 = "DELETE FROM hold WHERE medlemsnr = '" & rsNOTIN("medlemsnr") & "' AND teamid = '" & request.querystring("team") & "'"
    set rs2 = conn.execute(strSQL2)
    End If
    rsNOTIN.movenext
Wend