Que bueno que ya te funciona,, ahora lo que deverias de hacer es poner la solucion a tu problema. para tamien saber nosotros que fue lo que arreglaste o modificaste
y para lo de tu otra pregunta
Código:
do while not rs.EOF
foto = rs("Imagen")
foto2 = rs("Imagen2")
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.GetFile(Server.MapPath("../web/imagenes/"& foto))
oFile.Delete
Set oFile1 = oFSO.GetFile(Server.MapPath("../web/imagenes/"& foto2))
oFile1.Delete
rs.movenext
loop
'Despues
sSQL="DELETE FROM TABLE WHERE IdImagen="&IdImagen
oConn.execute(sSQL)
oye una pregunta: no te marca error la linea de
strSQL = "delete from anuncio where fecha <= #"&Fecha_tope&"#"
set rs = oConn.Execute(strSQL)
ya que una accion de update o delete no se puede almacenar porque no arroja resultados
saludos