Ir para conteúdo
Fórum Script Brasil
  • 0

Apagando Arquivo Errado


Guest Eloisa

Pergunta

Olá!

Estou fazendo um upload de imagens, onde tb posso incluir novas imagens e excluir as já existentes.

A cada upload eu insiro 1 texto e 2 imagens. A Cada upload feito aparece na minha tela o texto inserido e logo abaixo as duas fotos, cada upload aparece um abaixo do outro. o mais antigo aparece em cima e os outros aparecem embaixo consecutivamente. Cada upload que aparece na tela possui um botão de excluir o registro.

O erro que está dando é o seguinte. Quando tento excluir o ultimo registro, ele é excluido corretamente do meu banco de dados em Access, porém ele está excluindo o arquivo errado (está excluindo a 2 primeiras fotos que estão no primeiro registro e deveriam excluir as 2 ultimas fotos que estão no meu ultimo registro). Independente da sua escolha ele está escluindo somente as fotos do primeiro registro.

Segue meu código:

<%

'url_conexao = Server.MapPath("dados.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("dados.mdb")

strSQL = "SELECT * FROM fotos"

Set rs = conexao.Execute(strSQL)

%>

<%

'#####EXCLUSÃO DE DADOS#######

id = request.querystring("id")

sessao = request.querystring("sessao")

Select case sessao

Case "excluir"

Set FSO= Server.CreateObject("Scripting.FileSystemObject")

Set Pasta = FSO.GetFile(Server.MapPath(rs("foto")))

pasta.delete

Set Pasta2 = FSO.GetFile(Server.MapPath(rs("foto2")))

pasta2.delete

conexao.execute = "Delete from fotos where id = "&id

Response.write "<b><font size=3>Dados Excluidos com Sucesso!</font></b>"

response.write "<br><br>Você será redirecionado em 1 segundos..<br>"

response.write "<meta http-equiv='refresh' content='1; url=default.asp'/>"

End Select %>

<p><font size="5" face="Verdana"><b><a href="anuncio.asp">Novo Cadastro</a></b></font></p>

<table border="0" cellspacing="1" style="border-collapse: collapse" width="58%" id="table1">

<tr>

<%

If rs.EOF or rs.BOF Then

Response.Write "<font face=Verdana size=2><strong> Não foi encontrado nenhum registro.</strong></font>"

%>

<br>

<br>

<table>

<form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data">

<tr><font color="#6666FF"><strong>INSERIR REGISTRO:</strong></tr>

<tr>

<td>Informação:</td>

<td><input type="text" name="informacao" size="20"></td>

</tr>

<tr>

<td>Foto:</td>

<td><input type="file" name="foto" size="14"></td>

</tr>

<tr>

<td> Foto2</td>

<td> <input type="file" name="foto2" size="14"></td>

</tr>

<tr>

<td colspan="2"> <input type="submit" name="submit" value="Enviar"> </td>

</tr>

</form>

</table>

<% Else

Do While not rs.EOF

intCounter=intCounter+1

intMod=intcounter mod 2

if intmod=0 then

rcolor = "#c0c0c0"

elseif intmod=1 then

rcolor = "#FFFFFF"

end if

%>

<td colspan="2"><font face="Verdana" size="2"><b>Informa&ccedil;&atilde;o:

</b> <%=rs("informacao")%></font></td>

</tr>

<tr>

<td colspan="2">&nbsp;</td>

</tr>

<tr>

<td width="13%"><font face="Verdana" size="2"><b>Foto1: </b> <img src=<%=rs("foto")%> width="150" height="150"></font></td>

<td width="87%"><font face="Verdana" size="2"><b>Foto2: </b> <img src=<%=rs("foto2")%> width="150" height="150"></font></td>

</tr>

<tr>

<td colspan="2">&nbsp;</td>

</tr>

<tr>

<td colspan="2"><b><font color="#000000" size="1" face="Verdana">

<a href="default.asp?id=<%=rs("id")%>&sessao=excluir">EXCLUIR

REGISTRO</a></font></b></td>

</tr>

<tr>

<td colspan="2"><hr></td>

</tr>

<%

rs.MoveNext

Loop

End If

rs.close

set rs = nothing

set conexao = nothing

%>

</table>

Desde já agradeço!

Eloisa dias

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...