excluir as fotos selecionadas da pasta

[kbssa 0]

intaum galera to com esse problema e naum to conseguindo resolve

 

eh o seguinte

 

tenho um painel de administração de galeria de foto onde o kra inclui foto, altera mais na hr de exclui as fotos do servidor soh exclui uma

 

o problema esta q estou usando o checkbox para excluir

qnd o kra seleciona mais de uma foto para ser excluida ele se perde gostaria de saber como separa os dados q estaum vindo.

 

o codigo q estou usando para excluir eh esse.

 

If Request.form("id") <> "" Then  x_id = Request.form("id")	  Set RS = Server.CreateObject("ADODB.Recordset")  RS.CursorType = adOpenKeyset  strQ = Request.form("id")  RS.Open "SELECT * FROM tab_foto WHERE id_foto="&strQ, Conexao  strQ = Replace(strQ,","," OR id_foto=")  x_img = RS.Fields("foto_galeria")  strQ = "DELETE * FROM tab_foto WHERE id_foto="&strQ  Set objRS = conexao.Execute(strQ)  dim fs,f  set fs=Server.CreateObject("Scripting.FileSystemObject")  set f=fs.GetFile("Caminho da pasta no servidor\"&x_img)  f.Delete  set f=nothing  set fs=nothing      Response.Redirect("galeria.asp?usuario="+x_usuario+"&id="+Request.QueryString("id")+"&alterar=1")End If

intaum do banco ele exclui tudo certinho mais da pasta naum

alguem poderia me ajudar.

 

vlw

[jrcardozo 4]

cria uma estrutura de repetição e a cada id do array ele passa o paramentro para apagar o arquivo

 

referencia pra você fazer isso está em "Dúvidas frequentes" http://forum.imasters.com.br/index.php?sho...amp;#entry89219

 

Claro que ai mostra como excluir do banco...é só você adicionar a linha pra excluir o arquivo dentro do for each

[kbssa 0]

po ainda naum consegui

 

da esse erro

 

ADODB.Field erro '800a0bcd' BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /sistema/artistico/painel/fotos_excluir.asp, line 35

a linha 35 eh onde eu faço a select

 

For x = 1 To Request.form("id").Count  RS.Open "SELECT * FROM tab_foto WHERE id_foto="& Request.form("id")(x) , Conexao  x_img = RS.Fields("foto_galeria")  dim fs,f  set fs=Server.CreateObject("Scripting.FileSystemObject")  set f=fs.GetFile("caminho para a pasta\"&x_img)  f.Delete  set f=nothing  set fs=nothing  Next

[kbssa 0]

ninguem...

[Mário Monteiro 179]

voce priemeiro deve excluir os arquivos e depois os registros do DB

[kbssa 0]

nussa kra q erro de logica besta haoweHAWEOIhoawe era isso mesmo marioufpa eu exclui o registro do banco depois procura por ele e logicamente naum iria encontrar pq ele ja foi apagado rrsrsrsrsrsrsrsrvlw pessoal t+

[Mário Monteiro 179]

tranquilo tiozinho

 

parabens pela solução do problema http://forum.imasters.com.br/public/style_emoticons/default/clap.gif