Borrar varios archivos al mismo tiempo

[karmish]

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
%>