probleminha ao deletar 2 fotos ao mesmo tempo

[Jadson Souza 0]

olá pessoal, estou tentando deletar a imagem e o thumb junto com o registro do BD Access + só consigo deletar a imagem e o registro alguem pode me ajudar só falta o thumb... rrerer

 

esse é o código

 

//Index.asp

 

<%	  sqlstmt = "SELECT * FROM galeria ORDER BY idprod DESC"
		  Set rs = Server.CreateObject("ADODB.Recordset")
		  rs.Open sqlstmt, Dados, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 999
	If rs.eof then
		Exit For
	Else
		date1 = rs("data")
		id = rs("idprod")
		name1 = rs("comenta")
		name = rs("data")
		  link = date
		name = name
		description = name1
		leia = "<a href='view.asp?id=" & id & "'>Leia mais</a>"
		imagem = "<a href='view.asp?id=" & id & "'></a>"
		 %>
	  <% if rs("image") = "N" then %>
	  <a href="view.asp?id=<%=(rs.Fields.Item("id").Value)%>"><img src="imagens/semfoto.gif" width="150" height="150" hspace="8" vspace="2" border="0" align="left"></a>
	  <% else %>
	  <span class="sublong"></span></span>
		<table border="0" cellpadding="5" cellspacing="0" bordercolor="#000000">
		  <tr>
			<td align="center"><div align="center"><span class="corpo"><span class="sublong"><span class="data"><a href="deletafoto.asp?pasta=imagens_galeria&foto=<%Response.write rs("image")%>"><img src="imagens_galeria/<%=rs("image")%>" width="250" height="200" border="0" align="left"></a></span></span></span></div></td>
		  </tr>
		  <tr>
			<td align="left" valign="top"><span class="corpo"><span class="sublong"><span class="data"> </span></span></span><span class="branco_menu"> </span><span class="formulario">Comentário: 
			<%=((rs.Fields.Item("comenta").Value))%></span></td>
		  </tr>
	  </table>
	  <span class="corpo">
	  <% end if %>
	</span></td>
  </tr>
  <tr>
	<td align="center" valign="top"><span class="corpo">
	  <%
rs.MoveNext
End If
Next%>

 

// deletafoto.asp

 

<%@LANGUAGE="VBSCRIPT"%>
<style type="text/css">
@import url("../../style.css");
'</style>
<%
foto = request.querystring("foto")
pasta = request.querystring("pasta")
deletar = pasta&"/"&foto

' deletando o arquivo
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
  objFS.Deletefile(Server.MapPath(deletar))
Set objFS = Nothing

' excluindo o registro do bd
Dim Conexao
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\galeria_completa\dados\dados.mdb"

Conexao.execute("Delete * from galeria where image = '"&foto&"'")
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='0; url=index.asp'/>"
%>

[Anderson Roberto 0]

Tópico movido.

 

Artigos, Dicas, Tutoriais e Matérias (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

 

Altere o código para excluir mais de uma foto.

[Mário Monteiro 179]

voce precisa do nome da miniatura

 

ai voce inlcui mais uma linha semelhante a esta

 

objFS.Deletefile(Server.MapPath(deletar))

 

so que com o nome do outro arquivo