aggiornare immagini con upload baol74

[cri76]

Buongiorno a tutti, ho creato un'area riservata per un cliente in cui gli permetto di inserire, cancellare e modificare record.
Ho problemi con la modifica delle immagini.
In ogni record ci sono 4 immagini e vorrei poter mettere in condizione il cliente di modificare anche solo 1 img di quelle già presenti.

Posto il codice che utilizzo per fare questa azione: non mi da errori ma innanzi tutto mi modifica le img del primo record e non di quello che richiamo con "id" e poi se voglio modificarne solo una e lascio gli altri campi vuoti nella pag di visualizzazione mi mostra l'immagine cambiata ma le altre spariscono.

<!--#include file="upload.asp"-->
<%
 If Request.QueryString("Save")="1" then
  Dim oUpload
  Set oUpload = new cUpload
  oUpload.AutoRename = True
  oUpload.Overwrite = False
  oUpload.SetPath "/public/" 'Impostazione del PERCORSO della cartella delle IMMAGINI
  oUpload.Load
  While Not oUpload.EOF
   oUpload.Save()
   Select Case lCase(oUpload.Files("InputName"))
    Case "immg1"
     FileName_immg1 = oUpload.GetFileName()
    Case "immg2"
     FileName_immg2 = oUpload.GetFileName()
    Case "immg3"
     FileName_Immg3 = oUpload.GetFileName()
    Case "immg4"
     FileName_Immg4 = oUpload.GetFileName()
   End Select
   oUpload.MoveNext
  Wend   
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/prova.mdb")
  Set Rs=server.CreateObject("ADODB.Recordset")
  id = oUpload.Form("id")
  SQL = "SELECT * FROM test WHERE id =  " & id & ";"
  Rs.Open SQL,Conn,3,3
  Rs.update
  Rs("immg1") = FileName_immg1
  Rs("immg2") = FileName_immg2 
  Rs("immg3") = FileName_Immg3
  Rs("immg4") = FileName_Immg4
 
  Rs.update
  Rs.Close
  Conn.Close
  Set Rs = Nothing
  Set Conn=Nothing    
  Set oUpload = Nothing
  Response.Redirect("mod_test.asp")
 End if
%>
..............
<form method="post"  enctype="multipart/form-data" action="save=1">
<input type="hidden" name="id" value="<%=Request.Form("id")%>/>
<input name="immg1" type="file" id="immg1" size="20" />
<input name="immg2" type="file" id="immg2" size="20" />
<input name="immg3" type="file" id="immg3" size="20" />
<input name="immg4" type="file" id="immg4" size="20" />
<input type="submit" name="Submit" value="Invia" />

Mi dareste una mano a capire dove sbaglio?
Grazie 10000000000....

 

[lukeonweb]

In che senso modificare?

 

[cri76]

intendo aggiornare...
ho le 4 immagini: 1, 2, 3, 4 (nomi img)
Vorrei permettere al cliente di sostituire ad esempio la 3 con la 5 senza toccare le altre.

Spero di essere stato abbastanza chiaro.
Grazie ancora

 

[bepdido]

Upload Di Diversi Campi

In che senso modificare?

non riesco a fare l'upload di diversi campi contemporaneamente.
L'istruzione
sql="update archivio_statali set denominazione='"&vdenominazione&"' where codice='"&vcodice&"' "
funziona correttamente, ma se chiedo di aggiornare anche solo un altro campo , va in errore interno.
Sicuramente è un problema di sintassi (ho fatto vari tentativi, tra cui questo:
sql="UPDATE archivio_statali SET (tipologia = vtipologia, denominazione = vdenominazione, comune =vcomune, provincia = vprovincia) WHERE where codice='"&vcodice&"' "

con o senza parentesi, con punto e virgola, ecc.

Qualcuno è in grado di propormi una soluzione già provata?
grazie
BeppeDido