fso og arry loop ting

Dette stykke kode skulle tage value fra en de checkboks der er valgt og smide dem ind i et arry.
Så skulle scriptet kopier de filer der var valgt.
Af en eller anden grund tager den kun den første fil ??

'lave et arry til at gemme id i og fjerne , fra den

response.cookies("Action")=""
myArr = Split(Request.Form("Checkbox"), ",")
For i = 0 To UBound(myArr)
Response.Cookies("Action")(myArr(i)) = myArr(i)
Next
response.redirect "refresh.asp?dir="&request.form("refresh")&""
end if


'==================================================Kopier filer
if Request.Form("her")="Sætind" AND session("doit")="kopier" then

Set fso = CreateObject("Scripting.FileSystemObject")

For Each key in request.Cookies("Action")
filen = Request.Cookies("Action")(key)

Set rs = Connect.Execute("SELECT * FROM billeder WHERE id = " & filen & "")

Do while not rs.eof

if fso.FileExists(""&mapperoden&request.form("copystien")&"/"&rs("filnavn")&"") Then
StrErr = "Alle filer blev ikke kopieret da der findes en eller flere filer i denne mappe med samme navn"
response.redirect "ups.asp?error="&StrErr

else

sourceFile = mapperoden&rs("billeddir")&"/"&rs("filnavn")
destFile = mapperoden&request.form("copystien")&"/"&rs("filnavn")
fso.CopyFile sourceFile,destFile,false
Response.Write "<b>"&rs("filnavn")&"</b> blev kopieret<br>"

set connect = server.createobject("ADODB.Connection")
Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../db/"&database&"")
SQL = "insert into billeder (billeddir,filnavn,beskrivelse,sogeord,adgang) Values('"&request.form("copystien")&"','"&rs("filnavn")&"','"&rs("beskrivelse")&"','"&rs("sogeord")&"','"&rs("adgang")&"')"
Connect.Execute(SQL)
set Connect = Nothing

end if

rs.movenext
    loop


Next
rs.close
Set fso = Nothing
response.cookies("Action")=""
session("doit")=""
response.redirect "refresh.asp?dir="&request.form("refresh")&""
end if