Ciao a tutti, sto utilizzando la Classe del MITICO Baol74, solo che ho il seguente errore:
La linea in questione è:codice:ADODB.Stream error '800a0e79' Operation is not allowed when the object is open. /new/admin/upload.asp, line 789
All'interno della Sub Modules_Save.codice:Stream.Type = Files("StreamType") >>> Stream.Open Stream.Write Files("Content")
I file da uppare sono così richiamati:
Spero che qualcuno possa darmi una mano perchè è una settimana che sto impazzendo con questo errore ...codice:Dim oUpload Dim NomeFoto Set oUpload= new cUpload With oUpload .AutoRename = False .Overwrite = True .SetPath "\public\" .Load .UploadOnly "Images" .Movefirst i=numero While Not .Eof if trim(.GetFileName)="" then 'End With Set oUpload = Nothing Session("Loggato")="SI" Session("Procedura")="inserisci_err2" response.redirect("inc_soci.asp?id=1") end if NomeFoto="/public/" & replace(nome," ","_") & "_" & i & right(.GetFileName(),4) if numero=i then NomeFoto=prev(NomeFoto) end if if numero=i+1 then foto=NomeFoto end if .SaveAs NomeFoto .Save .MoveNext i=i+1 Wend End With![]()
Grazie in anticipo.![]()


Rispondi quotando