errore su upload

[pegaso]

lo script mi funziona e nonostante faccia quello che deve fare mi printa sta roba, inoltre volevo sapere se possibile non salvare tutto il path del file ma solo il nome
I files sono stati salvati.
Errore durante l'inserimento di riferimento :

Errore durante l'inserimento di idcat :

Errore durante l'inserimento di categoria :

Errore durante l'inserimento di localita :

Errore durante l'inserimento di descrizione :

Errore durante l'inserimento di prezzo :

Errore durante l'inserimento di foto :

Errore durante l'inserimento di foto1 :

Errore durante l'inserimento di foto2 :

Errore durante l'inserimento di foto3 :

Errore durante l'inserimento di foto4 :

Errore durante l'inserimento di foto5 :

[Roby_72]

Di cosa parli? E' sempre la discussione di prima o cosa?

Roby

[pegaso]

riguarda sempre lo script di prima solo che ho risolto tutti i problemi di upload.
Nonostante cio' una volta fatto l'upload mi restituisce quegli errori, anche se in realtà l'aggiornamento del db è avvenuto regolarmente.
Poi quello che mi interessava era sapere se con l'upload di BAOL al posto di fare l'upload di tutto il path del file es. c:\pippo\pluto\paperino.jpg era possibile passare al db solo il nome del file.

[Roby_72]

Lo puoi recuperare tramite le funzioni per il trattamento delle stringhe altrimenti usando il metodo GetFileName o qualcosa del genere dell'upload di Baol.

Roby

[pegaso]

conoscerai bene questo script come vedi ho evidenziato dove ho cambiato i parametri da getcompletepathfile in getnomefile, e facendo il response con la var stampa mi stampa solo il nome del file pero' in upload mi carica tutto il path...........

<%
Dim oUpload,SaveOK
Set oUpload = new cUpload
SaveOK = True
oUpload.OverWrite=True
oUpload.AutoRename=False
oUpload.SetPath "Files\"
oUpload.Load
oUpload.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db_categorie.mdb"),"SELECT Top 1 * FROM categorie"
oUpload.Database.Open()
Do While Not oUpload.EOF
oUpload.Save()
If oUpload.Files("ErrorNumber")<>0 then
SaveOK=False
Exit Do
End if
oUpload.Database.Fields(oUpload.Files("InputName") ) = oUpload.GetFileName
stampa =oUpload.GetFileName 'oUpload.Database.Fields(oUpload.Files("InputName" )) = oUpload.GetCompletePathFile
oUpload.MoveNext
Loop

If Not SaveOK then
oUpload.Movefirst
Do While oUpload.EOF
If oUpload.Files("Saved") then
oUpload.Fso.DeleteFile oUpload.GetFileName(),true

'oUpload.Fso.DeleteFile oUpload.GetCompletePathFile(),true End if
oUpload.MoveNext
Loop
Else
Response.Write "I files sono stati salvati."
'Inserimento dei valori
response.write stampa
oUpload.Database.Fields("riferimento") = oUpload.Form.Item("riferimento")
oUpload.Database.Fields("idcat") = oUpload.Form.Item("idcat")
oUpload.Database.Fields("categoria") = oUpload.Form.Item("categoria")
oUpload.Database.Fields("localita") = oUpload.Form.Item("localita")
oUpload.Database.Fields("descrizione") = oUpload.Form.Item("descrizione")
oUpload.Database.Fields("prezzo") = oUpload.Form.Item("prezzo")
oUpload.Database.Fields("foto") = oUpload.Form.Item("foto")
oUpload.Database.Fields("foto1") = oUpload.Form.Item("foto1")
oUpload.Database.Fields("foto2") = oUpload.Form.Item("foto2")
oUpload.Database.Fields("foto3") = oUpload.Form.Item("foto3")
oUpload.Database.Fields("foto4") = oUpload.Form.Item("foto4")
oUpload.Database.Fields("foto5") = oUpload.Form.Item("foto5")

oUpload.Database.AddNew()
End if
oUpload.Database.Close()
Set oUpload=Nothing
%>