Upload Facoltativo classe Baol

[Altamira]

ciao,

da una ricerca sul forum ho trovato alcune modifiche
da fare al codice per rendere upload del file facoltativo,
però mi da questo errore:
(Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A03F6)
Previsto 'End'
/prova/admin/Upload_Database.asp, line 37
Else)

Questa è il codice:

<%

Function InsertDbValues(Upload)
	With Upload
		.Database.Fields("Data") = .Form("Data")
			.Database.Fields("Titolo") = .Form("Titolo")
			.Database.Fields("Notizia") = .Form("Notizia")
			.Database.Fields("Percorso") = .GetFileName
	End With
End Function

Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../database/db_admin.mdb"),"SELECT Top 1 * FROM tb_offerteIT"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "..\foto\fotonews\"
.Load
	.UploadOnly "Images"
	If Not .EOF then
		.Database.Open()
			While Not .EOF
					.Save
					Response.Write "Dati inseriti e la foto " & .GetFileName &" è stata salvata 
"
					Response.write ("Ritorna Indietro
")
					InsertDbValues(Upload)
					.Database.Fields("Percorso") = .GetFileName
					.Database.AddNew()
		.MoveNext
			Wend
		End if 
	Else
	 .database.Open()
	 InsertDbValues(Upload)
	 .Database.AddNew()
	
End With
Set oUpload = Nothing

%>

[anise373]

cosi'?


<%

Function InsertDbValues(Upload)
With Upload
.Database.Fields("Data") = .Form("Data")
.Database.Fields("Titolo") = .Form("Titolo")
.Database.Fields("Notizia") = .Form("Notizia")
.Database.Fields("Percorso") = .GetFileName
End With
End Function

Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../database/db_admin.mdb"),"SELECT Top 1 * FROM tb_offerteIT"
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "..\foto\fotonews\"
.Load
.UploadOnly "Images"
If Not .EOF then
.Database.Open()
While Not .EOF
.Save
Response.Write "Dati inseriti e la foto " & .GetFileName &" è stata salvata
"
Response.write ("Ritorna Indietro
")
InsertDbValues(Upload)
.Database.Fields("Percorso") = .GetFileName
.Database.AddNew()
.MoveNext
Wend
Else
.database.Open()
InsertDbValues(Upload)
.Database.AddNew()
End if
End With
Set oUpload = Nothing

%>

[Altamira]

Non funziona, ora mi da questo errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: 'UpLoad'
/hoteldalponte/admin/Upload_Database.asp, line 5

[Roby_72]

Lo script è costruito per eseguire l'aggiornamento del db all'interno del ciclo di recupero dei file trasferiti.
Se il traferimento è opzionale allora devi togliere tutta la parte di inserimento nel db dello script di baol, assegnare i campi e i file a variabili d'appoggio e poi costruirti la query di inserimento nel db a parte, dopo lo script di Baol.

Roby

[Altamira]

il mio scopo non è di aggiornare il database ma di
inserire nuovi record avendo la possibilità di
non trasferire le foto.

Altamira

[Roby_72]

Appunto! Ed io cosa ho detto?

Roby

[Altamira]

Di seguito il codice che uso per fare l'upload, ma non saprei come modificarlo per rendere facoltativo l'invio del file
non sono molto esperto in asp

<%
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/db_admin.mdb"),"SELECT Top 1 * FROM tb_offerteIT"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "..\foto\fotonews\"
.Load
.UploadOnly "Images"
If Not .EOF then
.Database.Open()
	While Not .EOF
		.Save
		response.Write "il file " & .GetFileName &" è stato salvato 
"
			'Inserimento dei valori
			.Database.Fields("Data") = .Form("Data")
			.Database.Fields("Titolo") = .Form("Titolo")
			.Database.Fields("Notizia") = .Form("Notizia")
			.Database.Fields("Percorso") = .GetFileName
			'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
.Database.Close
else
 response.write("Nessuna immagine caricata")
end if
End With
Set oUpload = Nothing
%>

Altamira

[Altamira]

Grazie a tutti ho risolto il problema

Altamira