Problema para excluir arquivos

[zecanaya 0]

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!!!

[zecanaya 0]

Pessoal já consegui solucionar o problema, muito obrigado a todos, que me ajudaram.Se interessar pra alguém, o código correto ficou assim:id=request.form("chkId") array_id = split(id,",") For i= Lbound(array_id) to Ubound(array_id) dados = Trim(array_id(i)) sql="SELECT * FROM tbJogos WHERE IdJogo=" & dados Set objRs = objConexao.Execute(sql) strAFotoPeq = objRs("FotoPequena")strAFotoGran = objRs("FotoGrande")SET strDeletaImagem1 = CreateObject("Scripting.FileSystemObject")SET strDeletaImagem2 = CreateObject("Scripting.FileSystemObject")IF (strDeletaImagem1.FileExists(Server.MapPath(strAFotoPeq))) THENstrDeletaImagem1.DeleteFile(Server.MapPath(strAFotoPeq))END IFIF (strDeletaImagem2.FileExists(Server.MapPath(strAFotoGran))) THENstrDeletaImagem2.DeleteFile(Server.MapPath(strAFotoGran))END IFNextobjConexao.closeSet objConexao = NothingSet objRs = Nothingvaleu abraços à todos...