Saludos: E visto varios foros y varias respuestas de como borrar archivos al mismo tiempo, por lo cual me llevo a una confucion.
Tengo el siguiente codigo y yo se que me sirve para borrar 1 archivo de una tabla, y lo cual yo quiero es borrar 1 archivo de 1 tabla y TODOS los archivos de una Segunda tabla.
Este es el codigo que poseo:
Código:
<%
Response.Buffer = True
Dim con, rs, SQL, SQL2, pase, foto, foto2
foto=Request.Form("puntero2")
foto2=Request.Form("puntero22")
pase=Request.Form("puntero")
If Request.Form("puntero") = "" Then
Response.Redirect("error.asp")
Else
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/intranet/mes/galerias/galerias.mdb")
SQL = "DELETE * FROM noticia WHERE id_noticia like '%"&pase&"%';"
SQL2 = "DELETE * FROM fotosnews WHERE id_noticia like '%"&pase&"%';"
Set rs = con.Execute(SQL, SQL2)
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Call fso.DeleteFile(Server.MapPath("fotosnoticias/"&foto&""), True)
Call fso.DeleteFile(Server.MapPath("fotosnoticias/"&foto2&""), True)
Response.Redirect ("borrado.asp?msg= La noticia fue eliminada con éxito")
End if
%>