Oprydning virker ikke - part II

Altså, jeg har en oprydningsfunktion, der kører på en anden side som er næsten ligesådan som denne. Men den her dur ikke:

'OPRYDNING:
response.write "<br><br>"
path = server.MapPath(".") & "\Bannere"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(path)
Set objFolderContents = objFolder.Files
For Each objFileItem in objFolderContents
'response.write "<hr>Gennemsyn af folder og DB:***********************************************<br>"
FileNameFound = objFileItem.name
response.write "<br>Fundet fil i folder: " & FileNameFound & "<br>"
    strSQLdelBanner = " select BannerURL from Bannere where BannerURL LIKE '%" & FileNameFound & "%' "
    response.Write strSQLdelBanner & "<br>"
    rs.open strSQL, conn
    If Not rs.EOF Then
        response.write "Fundet i DB: " & rs("BannerURL") & "<br>"
        response.write "Behold: " & objFileItem.name & "<br><br>"
        else
        'objFileItem.Delete
        response.write "<span style='margin-left:15px;color:black'>Følgende fil er slettet af oprydningen: " & objFileItem.name & "</span> - "
    End If
    rs.Close
    'set rs = nothing
Next
Set objFSO = Nothing


Output på side af ovenstående er:

Fundet fil i folder: 120x60[1].gif
select BannerURL from Bannere where BannerURL LIKE '%120x60[1].gif%'
Følgende fil er slettet af oprydningen: 120x60[1].gif -
Fundet fil i folder: 234x60[1].gif
select BannerURL from Bannere where BannerURL LIKE '%234x60[1].gif%'
Følgende fil er slettet af oprydningen: 234x60[1].gif -
Fundet fil i folder: 468x60[1].gif
select BannerURL from Bannere where BannerURL LIKE '%468x60[1].gif%'
Følgende fil er slettet af oprydningen: 468x60[1].gif -
etc...

Ovenstående output stemmer ikke. Der skal findes filer i URLen i databasen, som svarer til de fundne i folderen. Det er så fidusen at de filer i folderen der ikke bruges mere i databasen skal slettes. Jeg har slået delete fra indtil det kører.

Ideer er meget velkomne.