problemi con inserimento in database

[bronz]

Salve a tutti!!!

sono giorni e giorni che sto cercando di creare uno script

che legge i file in una cartella sul server, e automaticamente li

inserisce nel database.....

trovate che il mio codice e' sbagliato?

<%

'connessione
DIM Conn, strConn, rs
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("prove/dbimages.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Tabella"

'Controlla i files nella cartella dataimages
Set fso = CreateObject("Scripting.FileSystemObject")
Set folderObject = fso.GetFolder(Server.MapPath("dataimages"))
Set filesObject = folderObject.Files
i=0

'per ogni file nella cartella dataimages aggiunge un record al database
For Each file In filesObject
i=i+1 
response.write("File"&i&"
"&file.name&"

")
rs.Open sql, Conn ,3,3
rs.addnew
rs("id")= i
rs("fotolink")= file.name
rs("data") = datePart("h",now()) + ":" + datePart("n",now())
rs("descrizione")= "descrizione"&i 
next
%>

l'unica cosa che mi fa vedere a video sono il numero di file ed il nome, poi mi da questo errore


ADODB.Recordset error '800a0e7d'

Connessione chiusa o non valida in questo contesto. Impossibile utilizzarla per eseguire l'operazione.

/indice.asp, line 32

mi sapreste aiutare?

[Roby_72]

1) Apri il recordset dentro la for, devi quindi chiuderlo e distruggre l'oggetto prima del next
2) Inserisci l'id ma se è un campo contatore non lo devi mettere tu.

Roby

[bronz]

devo fare cosi'?

For Each file In filesObject
i=i+1 
response.write("File"&i&"
"&file.name&"

")
rs.Open sql, Conn ,3,3
rs.addnew
rs("id")= i
rs("fotolink")= file.name
rs("data") = datePart("h",now()) + ":" + datePart("n",now())
rs("descrizione")= "descrizione"&i
rs.close
next

[bronz]

non funziona mi da questo errore

File1
bronzavatar2.gif

ADODB.Recordset error '800a0e7d' 

Connessione chiusa o non valida in questo contesto. Impossibile utilizzarla per eseguire l'operazione. 

/indice.asp, line 32

percheeeeeeee

[Roby_72]

La riga 32?

Roby

[bronz]

che devo fare alla riga 32?

[Roby_72]

Mi devi dire qual'è

Roby

[bronz]

rs.Open sql, Conn ,3,3

[Roby_72]

Non hai aperto la connessione:

Conn.open strConn

Roby

[bronz]

ok adesso incece mi da errore piu' giu'


ADODB.Recordset error '800a0c93'

Operazione non consentita nel contesto corrente.

/indice.asp, line 42


la riga 42 è :

rs.Close

che faccio sto impazzendo!