Problema para excluir arquivos

Bom meu problema é o seguinte:Estou fazendo um upload sem componentes, até aí tudo bem, funcionou, eu faço o upload e gravo o caminho da imagem no BD, acontece q quando eu vou excluir este arquivo, tenho uma pagina onde o usuário escolhe os itens q quer excluir com check box, se ele escolhe apenas um meu codigo funciona, mas se ele escolhe mais de um ele não exclui todas as imagens, somente a do primeiro chek box, aqui segue o código: id = Request("chkId") array_id = split(id,",") For i=0 to ubound(array_id) sql_id = sql_id & "tbJogos.IdJogo = " & Trim(array_id(i)) & " OR " Next sql_id = left(sql_id,(len(sql_id)-4)) stringSQL = "SELECT * FROM tbJogos WHERE "&sql_id&"" Set objRs = objConexao.Execute(stringSQL) strAFotoPeq = objRs("FotoPequena") strAFotoGran = objRs("FotoGrande") SET strDeletaImagem1 = CreateObject("Scripting.FileSystemObject") SET strDeletaImagem2 = CreateObject("Scripting.FileSystemObject") IF (strDeletaImagem1.FileExists(Server.MapPath(strAFotoPeq))) THEN strDeletaImagem1.DeleteFile(Server.MapPath(strAFotoPeq)) END IF IF (strDeletaImagem2.FileExists(Server.MapPath(strAFotoGran))) THEN strDeletaImagem2.DeleteFile(Server.MapPath(strAFotoGran)) END IF objConexao.close Set objConexao = NothingColoquei somente a parte de excluir o arquivo, a parte de excluir os dados do BD está funcionando, acho q tenho que usar outro FOR, mas não to conseguindo, se alguém puder me ajudar eu agradeço. Obrigado!!!