riuscite a spiegarmi perche' anche se ho cambiato getCompletePathFile con getfilename nel database mi inserisce tutto il path dell'immagine e non solo il nome?
io non sono riuscito a capirlo , anche perche' con il response.write della var stampa mi da solo il nome immagine.voelvo sapere se avevo sbagliato qui o se dovevo modificare qualcosa nel file upload.asp
<%
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
%>
Rispondi quotando
