errore di upload

[grario]

Sto facendo un adattamento dell'Upload di Baol, e ho copiato il file Upload.asp direttamente della root principale del server, senza modifiche, ma quando richiamo la pagina del form con l'include mi esce questo messaggio:

Microsoft VBScript runtime error '800a01a8'

Object required: 'Files'

/upload.asp, line 365

cosa devo fare?

[alexba64]

Non conosco lo script di baol ma dalì'errore è evidente che manca qualcosa (Object required: 'Files')

Che c'e' scritto alla riga 365 ?

[lucacasu]

do

[Roby_72]

La cartella files esiste? deve avere i permessi di scrittura

Roby

[grario]

Originariamente inviato da alexba64
Non conosco lo script di baol ma dalì'errore è evidente che manca qualcosa (Object required: 'Files')
Che c'e' scritto alla riga 365 ?

il file UPLOAD.asp di Baol non è stato modificato.

L'errore si verifica con questo codice nella pagina di invio dati (allegato.asp):

      Dim oUpload
      Set oUpload = new cUpload
	oUpload.AutoRename = False
	oUpload.Overwrite = true
	oUpload.SetPath "download/" '--cartella di salva
	oUpload.Upload
	'oUpload.SaveAs "Pippo.mp3"
	'--definisce il nome salvato del file inviato
	'--con Case, se il campo inviato è ALLEGATO recupera il nome e salva in NomeAllegato
	'--Nomeallegato è il nome del file che verrà salvato in DB
	oUpload.Save()
	Select Case lCase(oUpload.Files("InputName"))
		Case "campoallegato"
		NomeAllegato = oUpload.GetFileName()
	End Select
      Set oUpload=Nothing

mentre con questo codice non da errore:

	Dim oUpload
	Set oUpload = new cUpload
		oUpload.AutoRename = False
		oUpload.Overwrite = true
		oUpload.SetPath "."
		'oUpload.SetPath "public/files" '--cartella di salva
		oUpload.Upload
		'oUpload.SaveAs "Pippo.mp3"
	Set oUpload=Nothing

[Roby_72]

Ma la cartella download esiste ed ha i permssi di scrittura?
Se sei su Aruba solo su public/ e sottocartelle devi scrivere...

Roby

[grario]

Ciao Roby
non sono su Aruba, uso 9netweb.
Comunque i test li faccio in locale e la cartella ha i permessi di scrittura.

Comunque quel problema non si presenta più utilizzando:
oUpload.SetPath "."
che salva sulla root principale.

Ora c'è un altro problema: se per errore invio il form con il campo vuoto, mi da errore: Eccezione

come posso controllare se il campo è vuoto e mandare un avviso che il campo è vuoto?

[alexba64]

Fai un controllo del campo con javascript !

[grario]

Ho fatto così, ma non funziona:

'--controllo se il campo file è vuoto
If submitted then
If Request("campoallegato") <> "" then
else%>
<script language="JavaScript">
alert("ERRORE il campo file è vuoto...")
history.back()
</script>
<%
End if
End if
'--------CODICE UPLOAD-------------------------------------------
%>

<%
	Dim oUpload
	Set oUpload = new cUpload
		oUpload.AutoRename = False
		oUpload.Overwrite = true
		oUpload.SetPath "."
		'oUpload.SetPath "public/files" '--cartella di salva
		oUpload.Upload
		'oUpload.SaveAs "Pippo.mp3"
	Set oUpload=Nothing
%>

Mi si attiva sempre l'avviso Javascript.
Come devo fare?

[alexba64]

Ma no, io non intendevo nella condizione else if ma nella pagina che contiene il form !