Upload pdf

[Gio&Ste]

Sto provando a fare l'upload dei documenti pdf usando la classe di BAOL

<% 
Dim oUpload 
Set oUpload = new cUpload 
With oUpload 
.Filter = "Name='test' and ext='pdf'" 
.SetPath "public\bandi\" 
.Load 
.SaveAll 
Set oUpload = Nothing 
%>

Il codice che ho scritto l'ho trovato sul forum, non ho ben capito a cosa serva Name='test', forse è più che sufficiente ext='pdf'

Cmq quando cerco di inviare i dati dal form mi viene fuori questo msg d'errore.

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/Upload_Database.asp, line 10

[Roby_72]

Forse non hai copiato bene lo script peché ti sei dimenticato "probabilmente" un end if

Roby

[Gio&Ste]

Ho utilizzato un altro script postato da BAOL per fare l'upload
Riesco a fare l'upload ora, ma mi viene fuori questo msg d'errore
Microsoft VBScript runtime error '800a01a8'

Object required: 'oUaplod'

/upload/Upload_Database.asp, line 14

Questo è lo script utilizzato

<%
Dim oUpload
	Set oUpload = new cUpload
		oUpload.AutoRename = False
		oUpload.Overwrite = true
		oUpload.SetPath "../public/bandi/"
		oUpload.Upload
		oUpload.PrintForm() 'Stampa il contenuto dell'oggeto form
		oUpload.PrintStatus "Files inviati" 'Stampa il contenuto dell'oggeto files (contenente i files inviati)
		oUpload.MoveFirst()
		While not oUpload.EOF 'Questo ciclo sostituisce SaveAll()
		oUpload.Save() 
		Response.Write("Il file " & oUpload.GetFileName & " è stato salvato in " & oUaplod.GetCompletePathFile &"
") 
		oUpload.MoveNext
		Wend
		Set oUpload=Nothing
%>

LA linea in rosso è quella segnalata nel msg d'errore

[kluster]

Si hai scritto oUaplod .GetCompletePathFile mentre l'oggetto è
oUpload .GetCompletePathFile

[Gio&Ste]

Grazie Kluster, volendo salvare dei dati nel db aggiungo queste righe subito sotto il move.first? oppure aggiungo un move.first dopo While not oUpload.EOF

Titolo = oUpload.GetFileName()
.Database.Fields("PIC_IMAGE") = Titolo
.Database.Fields("Descrizione") = .Form("Descrizione")
.Database.Addnew()

[kluster]

Grazie Kluster, volendo salvare dei dati nel db aggiungo queste righe subito sotto il move.first ? oppure aggiungo un move.first dopo While not oUpload.EOF

la prima che hai detto

[Gio&Ste]

Ho aggiunto le righe che ho postato prima più queste altre sotto riportate, ma mi viene fuori un errore:

'La riga seguente imposta 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("../mdb-database/amministrazione.mdb"),"SELECT * FROM upload " 

Microsoft VBScript runtime error '800a01f9'

Invalid or unqualified reference

upload/Upload_Database.asp, line 14

[Gio&Ste]

Visto che non sto riuscendo a capire quale è il problema, non posso salvare prima di effettuare l'upload i dati nel db?

[kluster]

Il problema è .SetDatabase
l'invalid reference è il punto
se il blocco è dentro un
with oUpload
puoi usare il .SetDatabase
se non sta dentro al with
devi qualificare l'oggetto in questo modo oUpload.SetDatabase ....

[vaargard]

comunque all'errore iniziale che hai postato bastava aggiungere


End With


prima del set .... = nothing

ciao ciao