Borrar registro

[Blashak]

vale ya me funciona. mi codigo queda asi por si alguien le interresa.
Mi codigo:
<%
fecha_tope = dateadd("d",-30,date())

set oConn = Server.Createobject("Adodb.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("registrate.mdb")&";"
'sqlpnm = "SELECT * FROM anuncio where fecha <= #"&Fecha_tope&"#"
strSQL = "delete from anuncio where fecha <= #"&Fecha_tope&"#"
set rs = oConn.Execute(strSQL)
%>

ahora una cosa mas para borrar dos fotos de una carpeta junto con el registro como seria mi orden es asi pero nose como juntalas.

do while not rs.EOF
foto = rs("Imagen")
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.GetFile(Server.MapPath("../web/imagenes/"& foto))
oFile.Delete
rs.movenext
loop

do while not rs.EOF
foto = rs("Imagen2")
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.GetFile(Server.MapPath("../web/imagenes/"& foto))
oFile.Delete
rs.movenext
loop