Che cosa vuol dire questo errore: Operation is not allowed...

[zeweb]

Operation is not allowed when the object is closed.

/admin_cedab/admin/Upload_Semplice.asp, line 12

<%
Dim oUpload
Set oUpload = new cUpload
	oUpload.SetPath "mediaroom\note\"
	oUpload.UploadAndSave
Set oUpload=Nothing
response.write "Files nella cartella:"&"
"
'ANDREA
dir="mediaroom/note"
set file1=createobject("Scripting.FileSystemObject")
set file2=file1.getfolder(server.mappath(dir))
set file3= file2.files
for each file in file3
	response.write "
"&file.name
next
%>

[Roby_72]

Prova:

set file1=server.createobject("Scripting.FileSystemObject")

Roby

[zeweb]

no adesso va bene il file me lo carica solo che mi crea una cartella nuova sotto admin mentre la cartella giusta dovrebbe essere subito sooto la root del sito

/mediaroom/note/

[zeweb]

[CODE]

<%
Dim oUpload
Set oUpload = new cUpload
oUpload.SetPath "\mediaroom\note\"
oUpload.UploadAndSave
Set oUpload=Nothing
response.write "Files nella cartella:"&"
"
'ANDREA
dir="/mediaroom/note"
set file1=createobject("Scripting.FileSystemObject")
set file2=file1.getfolder(server.mappath(dir))
set file3= file2.files
for each file in file3
response.write "
"&file.name
next
%>

[weppos]

E' il 5 post sull'upload di Baol.
Non puoi aprirne solo uno? Almeno è + semplice aiutarti.

[zeweb]

Sì ma ho pensato che essendo specifico può aiutare meglio la ricerca a chi ha questo problema, i post sull'upload di Baol sono tanti !

Scusa cmq ho risolto.

Adesso devo solo unire due script

1) che carica e mi dice i documenti presenti nella cartella
2) che mi aggiorni anche i campi del DB

<%
Dim oUpload
Set oUpload = new cUpload
	oUpload.SetPath "\mediaroom\cscedab\"
	oUpload.UploadAndSave
Set oUpload=Nothing
response.write "Files nella cartella:"&"
"
'ANDREA
dir="/mediaroom/cscedab/"
set file1=createobject("Scripting.FileSystemObject")
set file2=file1.getfolder(server.mappath(dir))
set file3= file2.files
for each file in file3
	response.write "
"&file.name
next
	response.redirect "default_cs.asp"
%>

<%
	Dim publishDate
	publishDate = request.form("startMonth") & "/" & request.form("startDay") & "/" & request.form("startYear") 

	if request.form("func") = "Modifica Comunicato" then
	Set objCon = Server.CreateObject ("ADODB.Connection")
	Set objRec = Server.CreateObject ("ADODB.Recordset")
	objCon.Open strCon
	sql = "Select * from comunicati where newsID = "& request.form("newsID")
	objRec.Open sql, objCon, 2, 3
	objRec("titolo") = trim(request.form("titolo"))
	objRec("data") = publishDate
	objRec("sommario") = trim(request.form("sommario"))
	objRec("attach") = trim(request.form("attach"))
	objRec.Update
	objRec.Close
	objCon.Close
	Set objRec = nothing
	Set objCon = nothing	
	response.write "<font size=""2"" color=""#CC0000"" face=""arial"">Il COMUNICATO è stato aggiornato.</font>

"  

	elseif request.form("func") = "Elimina Comunicato" then
	Set objCon = Server.CreateObject ("ADODB.Connection")
	objCon.Open strCon
	sql = "Delete from comunicati where newsID = "& request.form("newsID")
	objCon.execute(sql)
	objCon.Close
	Set objCon = nothing	
	response.write "<font size=""2"" color=""#CC0000"" face=""arial"">Il COMUNICATO è stato eliminato ! </font>

"  
	
	end if
	
	
%>

[weppos]

Controlla la documentazione.
La classe di baol è in grado di scrivere anche sul database i parametri dei file uploadati.

[zeweb]

ok ma cosa significa in questo codice

.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

.Database.Fields("Titolo") = .Form("Titolo")
.Database.Fields("Percorso") = .GetCompletePathFile

[weppos]

Significa che viene aperta una connessione al database e con un ciclo viene verificato ogni file da uploadare.

Per ogni file viene salvato il nome ed altre info nel database.

.Database.Fields("Titolo") = .Form("Titolo")
.Database.Fields("Percorso") = .GetCompletePathFile

.FOrm("nomecampo") recupera un campo form
.GetCompletePathFile recupera il percorso del file uploadato
.Database.Fields("nomecampo") definisce il campo del db.

[zeweb]

I mie campi sono
newsID, titolo, sommario, data, attach

Mi puoi fare un esempio di come modificare lo scirpt ?

<%
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("/database/cedab.mdb"),"SELECT Top 1 * FROM comunicati"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "\mediaroom\cscedab\"
.Load
.MoveFirst
if .EOF then
	NumFiles = .Count()
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo 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
%>

Grazie