Inserimento nome file da cartella a database

[optime]

prova con

rfn = lcase(right(file.name,4))

[Giro12]

Nulla sempre uguale
credo di aver sbagliato qualcosa sul controllo se il file presente in cartella fosse anche nel db se non presente procedo con l'inserimento.... ma non riesco a capire dove sia l'errore

'effetto il controllo se la foto risulta gia presente 
    SQLL="Select * from foto where diritto='"&file.name& "'"
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open SQLL, conn ,3,3


    if rs.eof then
'NON è presente, memorizzo
'####################################################################################




        SQL = "INSERT INTO foto (diritto,id_cat) VALUES ('"& file.name&"',"& id &")"
        Conn.Execute SQL
        
        
    end if


next
        else
        Response.Redirect "fotogallery.asp?txt=immagini+già+presenti!!!"
    end if

[optime]

metti qualche response.write qua e là per capire cosa fa