Oprydning virker ikke

Hvad kan der være galt?

'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 = '%" & 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 = '%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 = '%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 = '%468x60[1].gif%'
Følgende fil er slettet af oprydningen: 468x60[1].gif -
etc...

Det stememr ikke. Jeg har ca. samme oprydning kørende et andet sted, som virker. Kan ikke selv se hvad der er galt. Nogen ideer?