Salve
mi rivolgo a voi di questo forum perchè sono davvero in panne.
Sto utilizzando il codice di Baol per un Upload su Aruba ma mentre in locale funziona benissimo, sul server non funzione. Ho provato a modificarlo tentando di inserire i giusti riferimenti per il 2003 (perchè questo penso sia il problema) ma ancora non va.
Questo è il codice che sto utilizzando:
--------------------------------------------------------
<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.Load
File = .Form("File")
FotoMax = .Form("Fotomax")
Descrizione = .Form("Descrizione")
if File = "" then
response.redirect("/Avvisi.asp?Int=Attenzione!&Msg=Non hai caricato alcun file")
end if
if Mid(Descrizione,50,1) <> "" then
response.redirect("/Avvisi.asp?Int=Attenzione!&Msg=la descrizione è troppo lunga (max 50 caratteri).")
end if
.EnabledAspUpload = False
.EnabledImageSize = False 'Se impostata a true , vengono calcolate le dimensioni delle immagini.
.EnabledLog = False
.AutoRename = False
.Overwrite = True
.SetPath "/"
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=/mdb-database/Archivio.mdb","SELECT Top 1 * FROM File"
.Database.Open()
.Database.Fields("Tabella") = .Form("Tabella")
.Database.Fields("IdLink") = .Form("IdLink")
.Database.Fields("IdUtente") = session("idutente")
.Database.Fields("Descrizione") = .Form("Descrizione")
If Not .EOF then
.Save
.Database.Fields("File") = .GetFileName
.Save
end if
.Database.AddNew()
.Database.Close
End With
response.redirect("/Avvisi.asp?Int=OK!&Msg=Operazione conclusa con successo!")
'Set oUpload = Nothing
%>
--------------------------------------------------------
Sapreste aiutarmi?