Ho un problema che non riesco proprio a risolvere!!
Quando cerco di fare l'upload di 2 file la pagina mi restituisce questo errore :
In locale mi funziona tutto senza problemi ... non vorrei che sul server gli dia fastidio il fatto che ci siano 2 connessioni al database aperte.codice:il file loghi_cits.gif è stato salvato ADODB.Stream error '800a0e79' Operation is not allowed when the object is open. /nuorocom/admin/appuntamenti/upload.asp, line 789
A questo punto stavo pensando di sfruttare un unica connessione (tanto entrame le connessioni puntano allo stesso DB) sperando di risolvere il problema.
La pagina è questa:
codice:<% Dim oUpload Set oUpload= new cUpload With oUpload .SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/nuorocom/database/db_nuoro.mdb"),"SELECT Top 1 * FROM APPUNTAMENTI" .AutoRename = True .Overwrite = False .SetPath "/nuorocom/appuntamenti/file" .Load If Not .EOF then .Database.Open() While Not .EOF .Save response.Write "il file " & .GetFileName &" è stato salvato " Database.Fields("APPUNTAMENTO_TITOLO") = .Form("appuntamento_titolo") .Database.Fields("APPUNTAMENTO_TESTO") = .Form("appuntamento_testo") .Database.Fields("APPUNTAMENTO_FILE_MIN") = nome_file_min .Database.Fields("APPUNTAMENTO_FILE") = nome_file .Database.Fields("APPUNTAMENTO_DATA") = .Form("appuntamento_data") .Database.Fields("APPUNTAMENTO_TA_FK") = .Form("appuntamenti_id") Select Case lCase(.Files("InputName")) Case "appuntamento_file_min" :.Database.Fields("APPUNTAMENTO_FILE_MIN") = .GetFileName Case "appuntamento_file" :.Database.Fields("APPUNTAMENTO_FILE") = .GetFileName END SELECT MoveNext Wend '.Database.AddNew() .Database.Close else response.write("Nessuna immagine caricata") end if End With Set oUpload = Nothing %>
La stringa di connessione che voglio usare è inclusa (connection.inc) e si chiama oConn ... come devo fare?![]()
![]()
Grazie 100000 a chi mi da una mano! =)


Rispondi quotando