aiuto per modificare pagina upload

[Starky]

Ho un problema che non riesco proprio a risolvere!!
Quando cerco di fare l'upload di 2 file la pagina mi restituisce questo errore :

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

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.
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:

<%
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! =)

[kluster]

<%
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()
		.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 ' dove è questa variabile?
		.Database.Fields("APPUNTAMENTO_DATA") = .Form("appuntamento_data")
		.Database.Fields("APPUNTAMENTO_TA_FK") = .Form("appuntamenti_id")
		While Not .EOF
			.Save
			response.Write "il file " & .GetFileName &" è stato salvato 
"
			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
%>

[Starky]

:master:

[kluster]

Ho spostato
.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 ' dove è questa variabile?
.Database.Fields("APPUNTAMENTO_DATA") = .Form("appuntamento_data")
.Database.Fields("APPUNTAMENTO_TA_FK") = .Form("appuntamenti_id")

Fuori dal while
perchè se i file sono 2 lui passa 2 volte sull'oggetto Database FIELDS e quindi sovrascrive il valore del recordset anche se non lo ha aggiornato quindi vai in errore

[Starky]

Originariamente inviato da kluster
Ho spostato
.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 ' dove è questa variabile?
.Database.Fields("APPUNTAMENTO_DATA") = .Form("appuntamento_data")
.Database.Fields("APPUNTAMENTO_TA_FK") = .Form("appuntamenti_id")

Fuori dal while
perchè se i file sono 2 lui passa 2 volte sull'oggetto Database FIELDS e quindi sovrascrive il valore del recordset anche se non lo ha aggiornato quindi vai in errore

Nonostante le modifiche continua a non funzionare ... in locale invece funziona perfettamente ...

[kluster]

sempre il solito errore ADODB.Stream ?

[Starky]

Originariamente inviato da kluster
sempre il solito errore ADODB.Stream ?

identico

il file imm3.jpg è stato salvato 

ADODB.Stream error '800a0e79' 

Operation is not allowed when the object is open. 

/nuorocom/admin/appuntamenti/upload.asp, line 789

[kluster]

mah ho guardato anche l'esempio che fornisce baol sul sito:

Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("news.mdb"),"SELECT Top 1 * FROM news"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "files\"
.Load
.MoveFirst 
if .EOF then
	NumFiles = .Count()
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
	.Database.Open()
	While Not .EOF
			.Save
			response.Write "il file " & .GetFileName &" è stato salvato 
"
			'Inserimento dei valori
			.Database.Fields("Titolo") = .Form("Titolo")
			.Database.Fields("Percorso") = .GetCompletePathFile
			'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
end if
End With
Set oUpload = Nothing

guardando il tuo codice a parte il select case la differenza
sembrerebbe solo il semplice
.MoveFirst
L'unica cosa che mi viene da consigliarti è se
hai messo nel form che invia l'attributo enctype="multipart/form-data"
di + nin zo

[Starky]

Si. l'attributo al form l'ho messo ...

Anche io non riesco a capire cosa possa essere ... mi chiedevo se usare un'unica stringa di connessione al DB potesse risolvere qualcosa

Magari è proprio questo che crea l'errore!

[Roby_72]

Metti una sola connessione.

Roby