Inserimento nome file da cartella a database

[Giro12]

Ciao a tutti vorrei fare uno scrip dove "inserisco" il nome delle foto ( caricate tramite Ftp) in un database

ho il seguente codice

id = request("id")
set fso = server.createObject("scripting.fileSystemObject")set folder = fso.getFolder(server.mapPath("gallery") & "/" & id & "/")set files = folder.files'controllo file in cartellafor each file in filesif right(file.name,4) = ".jpg" or right(file.name,4) = ".gif" or right(file.name,4) = ".png"  or right(file.name,4) = ".bmp" then
'connessione al database
Set Conn = Server.createobject("ADODB.Connection")Conn.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.Mappath("/mdb-database/ov.mdb")Conn.Open
SQL = "INSERT INTO foto (diritto,id_cat) VALUES ('"& file.name&"',"& id &")"Conn.Execute SQL
end ifnext


response.Redirect "fotogallery.asp"


Conn.Close ( riga 28)Set Conn = Nothing
set files = nothingset folder = nothingset fso = nothing 

riscontrando un errore

Errore di run-time di Microsoft VBScript error '800a01a8'


Necessario oggetto: 'Conn'


/public/up_foto_db.asp, riga 28

Ma io la connessione l 'ho aperta e successivamente chiusa