Problema upload Baol

[mr_chiocco]

Sto usando l'upload di Baol per caricare 2 immagini, mi da questo errore:

il file 01.jpg è stato salvato 


ADODB.Stream error '800a0e79' 

Operation is not allowed when the object is open. 

/upload.asp, line 862

la linea 862 dice:
Stream.Open

ho dimenticato qualcosa nel codice?:

<%
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("dati/dati.mdb"),"SELECT Top 1 * FROM immagini"
.EnabledAspUpload	= False
.EnabledImageSize	= True
.EnabledLog 		= False
.AutoRename 		= True
.Overwrite			= False
.SetPath "foto\"
.Load
.MoveFirst
if .EOF then
	NumFiles = .Count()
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file."
elseif (.Files("Height") = 600 and .Files("Width") = 800) or (.Files("Height") = 98 and .Files("Width") = 130) then
	.Database.Open()
	While Not .EOF
			.Save
			response.Write "il file " & .GetFileName &" è stato salvato
"
			'Inserimento dei valori
			.Database.Fields("nome") = .GetCompletePathFile
			'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
else
	Response.write ("Le dimensioni dell'immagine " &_
	.GetFileName() &" non sono corrette (" &_
	.Files("Height") &"x" & .Files("Width") &"): File non caricato
")
end if
End With
Set oUpload = Nothing
%>

aiutoo

[mr_chiocco]

Broblema risolto!

non erano impostati i diritti di scrittura sulla cartella in cui volevo inserire i files...