Optimering: Hvordan slettes fysisk filer, der ikke findes i db ?

Hej Alle, jeg har lavet en side hvor man kan uploade billeder og derefter give dem værdier i en database, fx tekst og overskrift, men da der altid kan gå et eller andet galt,
har jeg lavet en side, der fysisk tjekker om filen findes i databasen og jeg ville høre om andre har en smartere måde at skrive det på:

Det er med andre ord en optimeringsopgave. Jeg har ikke den store rutine i brug af Filesystem.

Kode:
<!--#include file = "incforbindelse.asp"-->
<%
dim aspdir, fs, folder, files, aspfile
aspdir = "/images"
set fs = createobject("scripting.filesystemobject")
set folder = fs.getfolder(server.mappath(aspdir))
set files = folder.files

for each aspfile in files
' response.write aspdir & "/" &  aspfile.name & "<br>"

rs.open "select billede from table", conn, adopenstatic, adlockoptimistic, adcmdtext 'table eller text
dim tal
tal = 0

do while not rs.eof
if not aspfile.name = rs("billede") then
tal = tal + 0
else
tal = tal + 1
end if
rs.movenext
loop

if tal = 0 then
fs.deletefile folder & "\" & aspfile.name
end if

rs.close
next
set fs = nothing

set rs = nothing
conn.close
set conn = nothing

response.write "Nu er billederne, der ikke er i brug - slettet !"
%>


Det virker fint nu, men jeg vil lige teste det hele lidt grundigere.