Upload immagini: problema con db!

[Delo80]

Ciao a tutti ragazzi

ho scaricato upload di baol ma ho un problema
Tra i vari esemi non c'è quello che serve a me

In pratica una volta seleionata l'immagine che si vuole uplodare iil nome dell'immagine dovrebbe essere salvato su un db dove già presente il campo predisposto (quindi già record con id suo)

baol dice di fare così per i DB

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()
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "files\"
.Load
.MoveFirst
if .EOF then
NumFiles = .Count()
Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
.Database.Open()
While Not .EOF
.Save
response.Write "il file " & .GetFileName &" è stato salvato
"
'Inserimento dei valori
.Database.Fields("Titolo") = .Form("Titolo")
.Database.Fields("Percorso") = .GetCompletePathFile
'Inserimento
.Database.AddNew()
.MoveNext
Wend
end if
End With

response.write

Set oUpload = Nothing

ma non è il mio caso.
Il mio problema è che non è quello che mi serve
Dovrei inserire una stringa tipi questa se non sbagliuo

sql="UPDATE negozi SET foto1 = '"&.GetFileName&"' where id = "&request("id")&"

è giusto?
Mi sapreste dare un aiuto?
Grazie a tutti

[Mems]

sql = "UPDATE negozi SET foto1 = '" & GetFileName & "' where [id] = " & request("id")

[Delo80]

O mio salvatore ma se questo è il mio codice

Dim oUpload
Set oUpload= new cUpload
'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()
oUpload.SetPath "public\"
oUpload.UploadAndSave
Set oUpload=Nothing

Set rs_negozio=Server.createobject("ADODB.Recordset")
sql = "UPDATE negozi_provvisorio SET foto1 = '" & GetFileName & "' where id = " & request("id") &""
rs_negozio.open sql,connectme
response.write sql
Set oUpload = Nothing

e mi spara fuori un bel

Operation is not allowed when the object is closed.

da cosa può dipendere?

ps getfilename è possibile che mi dia valore "" ?

[Delo80]

Ho risolto il tutto sempre con il magico upload baol ma ho unh problema

Nel momento in cui trova un file nella cartella con lo stesso nome, lui rinomina il file (giustamente). Il mio problema è che non so quale sia il nuovo nome.

Nel file upload.asp pare se non erro che la variabile di riferimento sia questa "FileName" ma non mi da nessun risultato

Sbaglio io?

Grazie ancora

[Mems]

Per evitare di sovrascrivere file esistenti, e quindi fare in modo di avere sempre nomi file univoci, puoi, aggiungere al nome file una stringa in coda del tipo:

anno = datePart("yyyy",date())
mese = datePart("m",date())
if mese < 10 the mese = "0" & mese
giorno = datePart("d",date())
if giorno < 10 then giorno = "0" & giorno
ora = datePart("h",time())
if ora < 10 then ora = "0" & ora
minuti = datePart("n",time())
if minuti < 10 then minuti = "0" & minuti
secondi = datePart("s",time())
if secondi < 10 then secondi = "0" & secondi
nomeFile = anno & mese & giorno & ora & minuti & secondi & "_" & nomeFile

In questo modo avrai nomi file di questo tipo:
20070305110018_pippo.zip
20070305110106_pippo.zip
A parita di nome file orginale "pippo.zip" il suffisso "annomesegiornooraminutisecondi_" dovrebbe garantirti di non sovrascrivere mai alcun file.

[Delo80]

Quando posso offrirti una birra ?

[Delo80]

Ehm...problema.

In pratica questa è la funzione che salva il file su upload.asp

Public Function SaveAs(NewName)
Dim FolderDest,FileName
If IsMultipart then
if Not Files.EOF then
If Not Files("Cancel") and Not Files("Saved") then
FolderDest = Files("DestPath")
If CreateFolderDest(FolderDest)=0 then
if NewName<>"" then FileName = SetNewName(NewName)
FileName = FolderDest & GetFileName()
If Files("AutoRename")=True then
FileName = Rename(Files("Name"),Files("Ext"),-1)
end if
If Files("Ext")<>"asp" or EnabledAspUpload then
Modules_Save FileName
else
Files.Delete
Files.Update
end if
If EnabledLog then SaveLog(LogName)
end if
end if
End if
end if
end function

il problema è il salvataggio lo fa qua (a quanto ho capito) ma la funzione di rinomina indicatami da voi io l'ho applicata dopo.
In questo modo il file non cambia di nome ma cambia solo l nome che gli do nel db

Come posso fare?Heeeeeeeeeeeelp me plz

[Mems]

anno = datePart("yyyy",date())
mese = datePart("m",date())
if mese < 10 the mese = "0" & mese
giorno = datePart("d",date())
if giorno < 10 then giorno = "0" & giorno
ora = datePart("h",time())
if ora < 10 then ora = "0" & ora
minuti = datePart("n",time())
if minuti < 10 then minuti = "0" & minuti
secondi = datePart("s",time())
if secondi < 10 then secondi = "0" & secondi
nomeFile =  nomeFile
FileName = FolderDest & GetFileName()
FileName = anno & mese & giorno & ora & minuti & secondi & "_" & FileName

[Delo80]

So che mi odi, ma la funzione da te postata la dovrò mettere in upload.asp (il file generale di baol) al posto di quella da me postata, o semplicemente dovrò modificare quella già presente dall'altra parte dove vado a creare la query?

Grazie ancora

[Mems]

Originariamente inviato da Delo80
So che mi odi, ma la funzione da te postata la dovrò mettere in upload.asp (il file generale di baol) al posto di quella da me postata, o semplicemente dovrò modificare quella già presente dall'altra parte dove vado a creare la query?

Grazie ancora

Devi modificarla.