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

[Giro12]

<%
id = request("id")
set fso = server.createObject("scripting.fileSystemObject")
set folder = fso.getFolder(server.mapPath("gallery") & "/" & id & "/")
set files = folder.files
'controllo file in cartella
for each file in files
if 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 if
next


response.Redirect "fotogallery.asp"


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

scusate per il codice scitto male ... copiato dal file

[abellos]

ciao se vedi dove c'e' scritto conn.close vi e' la dicitura ( riga 28) dovresti cancellarla e credo poi ti funzionerà tutto.

[Giro12]

ciao grazie per la risposta adesso funziona alla granze
con questa modifica ancora rispetto al 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 cartella
for each file in files
if 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




set files = nothingset 
folder = nothingset 
fso = nothing  

end if
next

response.Redirect "fotogallery.asp"%>

[br1]

Mai visto nulla di piu' sconclusionato
ho messo un pochino in ordine, prova questo:

<%
id = request("id")


'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


set fso = server.createObject("scripting.fileSystemObject")
set folder = fso.getFolder(server.mapPath("gallery") & "/" & id & "/")
set files = folder.files
'controllo file in cartella
for each file in files
    rfn = right(file.name,4)    
    if rfn = ".jpg" or rfn) = ".gif" or rfn = ".png"  or rfn = ".bmp" then
        SQL = "INSERT INTO foto (diritto,id_cat) VALUES ('"& file.name&"',"& id &")"
        Conn.Execute SQL
    end if
next




set files = nothing
set folder = nothing
set fso = nothing  


Conn.close
set Conn = nothing


response.Redirect "fotogallery.asp"
%>

[Vincent.Zeno]

if rfn =".jpg"or rfn)=".gif" ....

scappata una parentesi di troppo?

[br1]

(s)capita

[Giro12]

Perfetto grazie ancora
Vorrei implementarlo nel segunte modo
es cartella 1 con 8 immagini caricate nel db successivamente tramite ftp carico 10 foto e vorrei salvarle sul db( evitando di caricare quelle già caricate in precedenza)
come posso fare?

[optime]

prima della INSERT le cerchi con una SELECT e agisci di conseguenza

[Giro12]

ho fatto cosi... pero non succede nulla nel senso che non inserisce la foto sia che sia presente sul db che non ci sia

<%
id = request("id")

'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

set fso = server.createObject("scripting.fileSystemObject")
set folder = fso.getFolder(server.mapPath("gallery") & "/" & id & "/")
set files = folder.files
'controllo file in cartella
for each file in files
    rfn = right(file.name,4)    
    if rfn = ".jpg" or rfn = ".JPG" or rfn = ".png"  or rfn = ".bmp" then
'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

set files = nothing
set folder = nothing
set fso = nothing  



Conn.close
set Conn = nothing


response.Redirect "fotogallery.asp"
%>