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:
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
%>