Ho un ciclo che controllo se il file è presente nel DB, praticamente cerca il file nel DB e conta i records con il recordcount, se il recordcount è =0 allora lo aggiungo:


Set objFso = Server.createObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(DIR)
Set objFiles = objFolder.Files
c=0
For Each strFile in objFiles
c=c+1
response.write c&"<br>"
sql_CERCA= "SELECT * from FILES where FILE='" & strFile.name & "'"
Set rds_CERCA = Server.CreateObject("ADODB.Recordset")
rds_CERCA.Open sql_CERCA, objConn ,3,3 ' <- connessione
if (rds_CERCA.recordcount=0) and (Right(strFile.name, Len(".db")) <> ".db") then
nome(j)=strFile.name
dimensione(j)=strFile.Size
strEstensione = GetFileExtension(strFile.name)
tipo(j)=strEstensione
j=j+1
end if
rds_Cerca.Close()
Next



Il problema è che dopo circa 660 cicli, cioè 660 file da controllare, compare l'errore:
[Microsoft][Driver ODBC Microsoft Access] Impossibile aprire altre tabelle.

provando a sostituire la stringa come da consiglio di andrewz74:
rds_CERCA.Open sql_CERCA, Conn ,3,3
con:
rds_CERCA.Open sql_CERCA, objConn ,3,3
non funziona lo stesso...

la mia connessione al DB è così:
<%
Set objConn=Server.CreateObject("ADODB.Connection")
Conn="driver={Microsoft Access Driver (*.mdb)}; "
Conn=conn & " DBQ=" & Server.MapPath("database/database.mdb")
objConn.Open(conn)
%>


Come posso fare a risolvere questo problema...perfavore aiutatemi...


Grazie,
Marco

Ok, scusa ma credevo che se faceva una nuova domanda trovavo altre risposte visto che l'argomento non è quello per il quale ho fatto la domanda precedente...