Excluir Arquivos Que Upei

[Zek]

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 que quando eu vou excluir este arquivo, tenho uma pagina onde o usuário escolhe os itens que 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 = Nothing

Coloquei somente a parte de excluir o arquivo, a parte de excluir os dados do BD está funcionando, acho que tenho que usar outro FOR, mas não to conseguindo, se alguém puder me ajudar eu agradeço. Obrigado!!!

[bareta]

tente o seguinte...

boxes=request.form("box")

sql="select * from tabela where id in("&boxes&")"

.....

e ai faz o loop e vai apagando

[Marcos-rj]

Tenta assim:

id = Request("chkId")
array_id = split(id,",")

For i=0 to Lbound(array_id) to Ubound(array_id)
dados = Trim(array_id(i))
sql_id = sql_id & "tbJogos.IdJogo = " & dados & " OR "
Next

[Zek]

Vou tentar aqui com o que vocês recomendaram, mas desde já eu agradeço pela ajuda

[Zek]

tentei o codigo mas deu o seguinte erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/lojazek/admin/NovoJogoBD.asp, line 163, column 28

For i=0 to Lbound(array_id) to Ubound(array_id)

-------------------------------^

tem ideia do que eu devo fazer?

obrigado...

[Marcos-rj]

Foi mal errei. coloquei um ti a+

id = Request("chkId")

array_id = split(id,",")

For i=0 Lbound(array_id) to Ubound(array_id)

dados = Trim(array_id(i))

sql_id = sql_id & "tbJogos.IdJogo = " & dados & " OR "

Next

[Zek]

Coloquei:

id = Request("chkId")

array_id = split(id,",")

For i= Lbound(array_id) to Ubound(array_id)

dados = Trim(array_id(i))

sql_id = sql_id & "tbJogos.IdJogo = " & dados & " 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 = Nothing

Set objRs = Nothing

Mas continua deletando a imagem apenas do primeiro check box, se eu selecionar apenas um ela deleta normalmente, mas se eu selecionar mais de um deleta apenas o primeiro.

Obrigado.

[Marcos-rj]

tenta fazer com For each para ver se funciona.

[Zek]

Cara eu não conheço esse For each direito tem como me explicar, ou dar um exemplo?

Obrigado.

[Marcos-rj]

tenta assim:

For each dados in request("chkId")
sql_id = sql_id & "tbJogos.IdJogo = " & dados & " OR "
next

[bareta]

tentou do modo que passei?

[Zek]

Desculpe bareta, do seu jeito eu não consegui, tem como me dar uma explicação mais detalhada por favor.

Obrigado

[Zek]

Pessoal já consegui solucionar o problema, muito obrigado ao Marcos-rj, e ao bareta, graças as dicas deles que consegui.

Estou muito contente com o forum, 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))) THEN

strDeletaImagem1.DeleteFile(Server.MapPath(strAFotoPeq))

END IF

IF (strDeletaImagem2.FileExists(Server.MapPath(strAFotoGran))) THEN

strDeletaImagem2.DeleteFile(Server.MapPath(strAFotoGran))

END IF

Next

objConexao.close

Set objConexao = Nothing

Set objRs = Nothing

valeu abraços à todos...

[Cristiano Lagame]

Eu estou com um problema parecido mas isso não resolveu, eu tenho um esquema de upload de componente, é um formulário de envio de currículo e tem vários campos, destre eles há alguns checkboxes e só consigo pegar o valor do primeiro checkbox que for marcado. Li em diversos sites, inclusive em francês que é possível coletar todos os checkboxes, mas o código é muito difícil de entender e nem consigo descobrir como funciona, alguém pode me ajudar?