Upload di Baol74 modifica nome foto senza cambiare la foto esistente

[saretta_074]

Salve ragazzi utilizzo l'upload si baoal per caricare e modificare testo e immagini
nel mi sito. Premessa uso un db per salvare nome e descrizione della foto, quando inserisco una nuova foto, nome e descrizione, non ho problemi. Mentre invece quando voglio modificare il nome o la descrizione di una foto già presente nel database, la foto mi si cancella dal database e non si visualizza piu.
Ho provato iserendo il parametro oUpload.Count=0 mi cancella il nome della foto e il percorso nel database e non riesco poi a recuperarla.. Ho provato sia passando i dati in un'altra pagina, che ad effettuarlo nella stessa

come in questo nel codice che è qui sotto:
Qualcuno mi sa dare un suggerimento?

Ciao e grazie in anticipo

-----------------------------------------------------------------------

modifica_foto.asp


<%
If Request.QueryString("Save")="1" then
Dim oUpload
Dim strNomefoto

Set oUpload = new cUpload
oUpload.EnabledAspUpload = False
oUpload.EnabledImageSize = False
oUpload.EnabledLog = False

oUpload.AutoRename = True
oUpload.Overwrite = False
oUpload.SetPath "../foto/" 'Impostazione del percorso
oUpload.Load
While Not oUpload.EOF
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))
Case "campo1"
fotogrande = oUpload.GetFileName()
fotogrande2 = oUpload.GetCompletePathFile
End Select

oUpload.MoveNext
Wend



id = oUpload.Form("id")
nome = oUpload.Form("campo2")
nome = Replace(oUpload.Form("campo2") , "'", "''")
nome = trim(oUpload.Form("campo2"))


if oUpload.Count=0 then
strNomefoto="../link/no_foto.gif"
else




Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../data-db/13122003.mdb")
Set Rs=server.CreateObject("ADODB.Recordset")


SQL = "SELECT * FROM FOTO_GALLERY WHERE ID ="&id&""
Rs.Open SQL,Conn,3,3
Rs.update
Rs("filefoto") = fotogrande
Rs("percorso") = fotogrande2
Rs("nome") = oUpload.Form("campo2")
Rs("descrizione") = oUpload.Form("campo4")

Rs.update


Rs.Close
Conn.Close
Set Rs = Nothing

Response.Redirect("elenco_foto.asp")


End if

End if

%>

<FORM method="post" ENCTYPE="multipart/form-data" name="data" action="?ID=<%=ID%>&campo2=<%=nome%>&save=1">
<input name="id" type="hidden" value="<%=id%>">

<TBODY>
<TR>
<TD class=borcell2 align=middle></TD>
<TD class=borcell2 align=middle width="25%">
[img]../foto/<%=RSfoto( [/img]" border=0 width="120" height="90">
</TD>
<TD class=borcell2 align=left>
</TD></TR>
<TR>
<TD class=borcell2 align=middle>
[img]images/flag_ita.gif[/img] Nome
Foto :</TD>
<TD class=borcell2 colspan="2"><INPUT class=yform size=50 name="campo2" value="<%=RSfoto( "nome" )%>"></TD>
</TR>
<TR>
<TD class=borcell2 align=middle>Descrizione :</TD>
<TD class=borcell2 colspan="2"><TEXTAREA class=yform name=campo4 rows=6 cols=90

value="<%=descrizione%>"></TEXTAREA></TD>
</TR>
<TR>
<TD class=borcell2 align=middle>CARICA / MODIFICA IMMAGINE</TD>
<TD class=borcell2 colspan="2"><INPUT class=yform type=file size=60 name="campo1"></TD>
</TR>
<TR>
<TD class=borcell align=middle colSpan=3>
<P align=center><INPUT class=yform type=submit value="Modifica Nome e Foto" name="data"

onclick="SubmitContent();"></P>
<P align=center></P></TD></TR></FORM></TBODY></TABLE></CENTER>

[Santino83_02]

non ho capito la situazione.. tu vuoi modificare il nome della foto, che c'entra baol?

[saretta_074]

Ciao Santino, come spiegavo nel primo post, nome, foto, e descrizione di una foto gia caricata nel database e nella cartella di destinazione. Che succede quando vado a modificare il testo o la descrizione della foto, mi si cancella il il percorso della foto nel campo foto del database...Comuque sono riuscita ha risolvere fotumatamente era solo una questio principarlemnte di sistemare il codice in questo modo..così potrà essere utile per gli altri del form...

------------

<%
If Request.QueryString("Save")="1" then
Dim oUpload
Dim strNomefoto

Set oUpload = new cUpload
oUpload.EnabledAspUpload = False
oUpload.EnabledImageSize = False
oUpload.EnabledLog = False
oUpload.AutoRename = True
oUpload.Overwrite = false
oUpload.SetPath "../foto/" 'Impostazione del percorso
oUpload.Load


if oUpload.Count=0 then

id = oUpload.Form("id")
nome = oUpload.Form("campo2")


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../data-db/13122003.mdb")
Set Rs=server.CreateObject("ADODB.Recordset")


SQL = "SELECT * FROM FOTO_GALLERY WHERE ID ="&id&""
Rs.Open SQL,Conn,3,3
Rs.update

Rs("nome") = oUpload.Form("campo2")
Rs("descrizione") = oUpload.Form("campo4")


Rs.update
Rs.Close
Set Rs = Nothing



else

While Not oUpload.EOF
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))
Case "campo1"
fotogrande = oUpload.GetFileName()
fotogrande2 = oUpload.GetCompletePathFile
End Select

oUpload.MoveNext

Wend


id = oUpload.Form("id")
nome = oUpload.Form("campo2")


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../data-db/13122003.mdb")
Set Rs=server.CreateObject("ADODB.Recordset")


SQL = "SELECT * FROM FOTO_GALLERY WHERE ID ="&id&""
Rs.Open SQL,Conn,3,3
Rs.update
Rs("filefoto") = fotogrande
Rs("percorso") = fotogrande2
Rs("nome") = oUpload.Form("campo2")
Rs("descrizione") = oUpload.Form("campo4")

Rs.update
Rs.Close
Conn.Close
Set Rs = Nothing



End if


Response.Redirect("elenco_foto.asp")


End if


%>
-------------------------
Comunque ti ringrazio ugualmente santino, per avermi risposto almeno...e posso approfittare vorrei chiederti due cosette sempre su l'upload di baol...
1) Come mai anche se l'upload offre la possibilità di passare valori con oUpload.Form("campo") quando si và a modificare dei dati nome, descrizione, bisogna passare i valori in questo modo:
<FORM method="post" ENCTYPE="multipart/form-data" name="data" action="?ID=<%=ID%>&campo2=<%=nome%>&save=1">
2) Ho notato che quando carico file poco superiori a 10 mb, l'upload fallisce...mi appare una schemata vianca e non carica nulla...da cosa diperde dal time.out del server? Inserendo nella pagina dove c'è il codice questa stringa Server.ScriptTimeout=1800 risolvo il problema? o puo dipendere dal server?
Ciao e grazie

[Santino83_02]

allora,

se la foto è caricata e non vuoi dare la possibilità di modificare il file, ma solo il titolo e la descrizione, basta che fai un form normale (senza enctype) e gestirtelo come ogni altro form.. se naturalmente lo stesso form deve fare anche un eventuale upload di immagine per sostituire quella già caricata, allora usi enctype.. poi volendo puoi fare una cosa tipo:

imageTitle = oUpload.form("title")
imageDesc = oUpload.form("description")

imageName = old_image_name
if not oUpload.eof then

  imageName = oUpload.getFileName() 'mi pare sia questa la funzione
  oUpload.save()

end if

..
..
conn.execute("update images set title='" & imageTitle & "', description='" & imageDesc & "', imageName='" & imageName & "' where id=" & id_image)

e hai fatto..

il discorso del fatto che ti crashi la pagina dopo tot mb può dipendere da un pò di cose, in genere cmq un limite di upload da impostare è intorno ai 10 mb perchè, appunto, dopo ti va in timeout lo script o cmq può facilmente fallire l'upload