modificare immagini

[stewe19]

Ciao a tutti!
sono bloccato su un procedimento che non riesco a risolvere....

Pagina dove stampo l'elenco di immagini che posso modificare o eliminare dal db:
<% Set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="SELECT * FROM IMMAGINI WHERE ID_VI='"&request("id_vi")&"'"
rs4.open sql4,conn,3,3
While Not rs4.eof%>
[img]../../public/<%=rs([/img]" width="50" alt="<%=rs("grande")%>" id="anteprima" /></a>
elimina: <input type="checkbox" name="elimina" value="<%=rs("grande")%>" />
modifica:<input type="file" name="modifica" />
<% rs4.movenext
Wend%>

nella pagina successiva dove aggiorno i record ho:

id= oUpload.Form("id_vi")

sql6 = "SELECT * FROM IMMAGINI WHERE ID_VI = " & id & ";"
Set rs6 = Server.CreateObject("ADODB.Recordset")
rs6.open sql6,conn,3,3
if not rs6.eof then
if oUpload.Form("elimina")<>"" then
ArrDel=split(oUpload.Form("elimina"),", ")
For i=0 to ubound(ArrDel)
sql = "DELETE FROM IMMAGINI WHERE ID_VI='"&id&"' AND GRANDE='"&ArrDel(i)&"'"
conn.execute(sql)
next
end if
end if
for i=1 to 15
if oUpload.Form("img0"&i&"")<>"" then
nomeFile = oUpload.Form("img0"&i&"")
if inStr(nomeFile,"\") > 0 then
nomeFile = mid(nomeFile,inStrRev(nomeFile,"\")+1)
end if
sql6 = "SELECT * FROM IMMAGINI;"
Rs6.Addnew
rs6("id_vi")=id
rs6("grande")=nomeFile

Rs6.Update
end if

next

il problema è che non aggiorna ma aggiunge le immagini che voglio modificare
scusate se scrivo di fretta ma lo sono!devo risolvere entro loe 7 e sto impazzendo!

[iceblu]

:master: :master: :master: :master:
e qual'è il problema?

[stewe19]

scusa...mi era scivolato il dito e ho inviato il messaggio mentre stavo scrivendo....tanto per capire quanto sono sclerato e schiaccio la tastiera a random

[iceblu]

Se usi Rs6.Addnew
lui aggiungerà un record....no?

devi fare la sql in modo da trovare l'immagine corrispondente all'ID
sql6 = "SELECT * FROM IMMAGINI WHERE id =" ID

e poi
Rs6.Update
Rs6.requery

[stewe19]

ma come faccio a dirgli quale è l'immagine che deve effettivamente modificare?
io come glielo passo il valore dell'id dell'immagine che voglio modificare?

graficamente io ho l'immaginetta piccola(che è quella inserita in precedenza) affianco il checbok per l'elimina e affianco lo sfoglia per "sostituire" l'immagine presente...se metto un input hidden con valore id dell'immagine da sostituire mi prende tutti gli id di tutte le immagini presenti e quindi non se ne fa nulla...darlo all'input file del modifica non posso...devo trovare un modo per "prendere i valori" delle foto che stanno "affianco" allo sfoglia del modifica...

....spero di essere stato chiaro...anche se dubito...

[iceblu]

il value del checkbox associato all'immagine.....

[stewe19]

ma il checkbox lo uso solo se elimino non se modifico

[iceblu]

non capisco...cmq

rs6("id_vi")=id

id (oovero id= oUpload.Form("id_vi")) cos'é?

Fai più form (uno per immagine)...

[stewe19]

scusa se rispondo ora ma ieri non ho avuto piu tempo di dedicarmi al forum...comunque ti faccio sapere che sono riuscito a risolvere!

facendo cosi':


PAGINA DI INSERIMENTO IMMAGINI:

<%for i=1 to 15%>
<input type="hidden" name="grande<%=i%>" value="<%=arrImg(i)%>" />
modifica:<input type="file" name="modifica<%=i%>" /></td>
<%next%>

dove arrImg è un array con i valori del campo dell'immagine(ossia il nomedel file)

for i=1 to 15
if oUpload.Form("modifica"&i&"")<>"" then

nomeFile2 = oUpload.Form("modifica"&i&"")
if inStr(nomeFile2,"\") > 0 then
nomeFile2 = mid(nomeFile2,inStrRev(nomeFile2,"\")+1)
end if

sql5 = "SELECT * FROM IMMAGINI WHERE ID_VI='"&id&"' AND GRANDE='"&oUpload.Form("grande"&i&"")&"'"
rs5.open sql5,conn,3,3
Rs5.Update
rs5("grande")=nomeFile2

Rs5.Update
Rs5.Close
end if
next

Grazie comunque per l'aiuto!

Ciao!