Errore su upload di 2 file

[Starky]

Salve,

Ho un problema con una pagina che mi da errore quando cerco di uplodare 2 file (sto usando la classe di Baol :-)

La cosa strana è che l'errore viene fuori solo nel server mentre in locale funziona tutto alla perfezione.

Questa è la pagina che esegue richiama la classe ed esegue l'inserimento sul db:

<%
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"
.EnabledAspUpload = False
.AutoRename = True
.Overwrite = False
.SetPath "/nuorocom/appuntamenti/file"
.Load
.MoveFirst
	.Database.Open()
	.Save
	nome_file_min = .GetFileName()
	.MoveNext()
	.Save
	response.Write "il file " & nome_file_min &" è stato salvato 
"
	nome_file = .GetFileName()
	response.Write "il file " & nome_file &" è stato salvato 
"
	'Inserimento dei valori
	.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")
	'Inserimento
	'.Database.AddNew()
	.MoveNext
	
End With
Set oUpload = Nothing
%>

mentre questo è l'errore che viene fuori:

Operation is not allowed when the object is open. 

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

Chi puo' aiutarmi??

grazie!

[buji]

Qual è la riga in questione?

[Starky]

la riga è questa:

	Stream.Open

il file è upload.asp.

[cicetaar]

l' errore su stream.open lo ha dato pure a me

ho risolto nn mettendo 2 .movenext
prova cosi.. io nn ho provato e certamente nn ti assicuro nulla

simone

<%
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"
.EnabledAspUpload = False
.AutoRename = True
.Overwrite = False
.SetPath "/nuorocom/appuntamenti/file"
.Load
.MoveFirst
dim i
i=0
while not .Eof


	.Save
	session("nome_file" & i) = .GetFileName()
	i= i+1
	
	.MoveNext
wend	
	.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
	.Database.Fields("APPUNTAMENTO_DATA") = .Form("appuntamento_data")
	.Database.Fields("APPUNTAMENTO_TA_FK") = .Form("appuntamenti_id")
	.Database.AddNew()

	response.Write "il file " & session("nome_file1") &" è stato salvato 
"
	response.Write "il file " & session("nome_file2") &" è stato salvato 
"

End With
Set oUpload = Nothing
%>

[Starky]

Cicetaar ho provato il tuo suggerimento ma l'errore continua ad uscire

Quello che non riesco a capire è perchè in locale funzioni mentre sul server no!

[cicetaar]

bè era solo un tentativo.. mi dispiace nn esserti stato utile..

cmq è strano che ti dia problema solo in un caso..

in bocca al lupo!
simone

[Starky]

up!

qualcuno che sappa aiutarmi?

[Starky]

Visto che non ho ancora risolto il problema riporto su questo 3d sperando in un aiuto


Quando cerco di eseguire questo codice

<%
oConn.Close()


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"
.SetPath "/nuorocom/appuntamenti/file"
'.EnabledAspUpload = False
.AutoRename = True
.Overwrite = False
.Load
.MoveFirst


.Database.Open()
.Save
nome_file_min = .GetFileName()
.MoveNext()
.Save
'Response.Write("il file " & nome_file_min &" è stato salvato 
")
nome_file = .GetFileName()
'Response.Write("il file " & nome_file &" è stato salvato 
")
'Inserimento dei valori
.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")
'Inserimento
.Database.AddNew()
.MoveNext
	
End With

%>

la paginami restituisce questo errore:

ADODB.Stream error '800a0e79' 

Operation is not allowed when the object is open. 

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

ho pensato che forse poteva essere dato dal fatto che all'inizio della pagina in questione c'è incluso un file "connection.inc" in cui si apre una connessione ... poi all'interno del codice postato è aperta un'altra connessione ... magari da problemi ...
qualcuno ha suggerimenti preziosi?

grazie

Sara