Apagando Arquivo Errado

[Guest Eloisa]

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

[bareta]

use um select no id que sera excluido e apos isso delete os arquivos...

select * from tabela where id="&id

[Guest Guest]

Era isso mesmo!

Obrigada Bareta!